Генератор ссылок [Delphi]

Тема в разделе "Статьи", создана пользователем Dobroe_Utro, 10 июл 2016.

  1. Гость, давай поддержим форум вместе, делись информацией с друзями через кнопки в блоке "Поделиться в социальных сетях"

    Скрыть объявление
  1. Dobroe_Utro

    Dobroe_Utro Публикатор

    
    Регистр:
    12 май 2016
    Сообщения:
    178
    Лайки:
    44
    Дизлайки:
    0
    Баллы:
    30
    Пол:
    Мужской
    Код:
    unit Unit5;
    
    interface
    
    uses
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes,
    Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, sSpinEdit, Vcl.StdCtrls,
    sEdit, sButton, sMemo, sDialogs, sSkinManager;
    
    type
    TForm5 = class(TForm)
    sEdit1: TsEdit;
    sEdit2: TsEdit;
    sEdit3: TsEdit;
    sSpinEdit1: TsSpinEdit;
    sMemo1: TsMemo;
    sButton1: TsButton;
    sButton2: TsButton;
    sSaveDialog1: TsSaveDialog;
    sSkinManager1: TsSkinManager;
    procedure FormCreate(Sender: TObject);
    procedure sButton1Click(Sender: TObject);
    procedure sButton2Click(Sender: TObject);
    private
    { Private declarations }
    public
    { Public declarations }
    end;
    
    type
    Threads = class(TThread)
    private
    { Private declarations }
    protected
    procedure Execute; override;
    procedure Sync;
    end;
    
    var
    Form5: TForm5;
    
    implementation
    
    {$R *.dfm}
    
    procedure TForm5.FormCreate(Sender: TObject);
    begin
    
    end;
    
    { Threads }
    
    procedure Threads.Execute;
    var
    I: Integer;
    begin
    for I := 0 to Form5.sSpinEdit1.Value do
    
    begin
    Form5.sMemo1.Lines.Add(Form5.sEdit1.Text + Form5.sEdit2.Text + IntToStr(I) + Form5.sEdit3.Text);
    end;
    end;
    
    procedure Threads.Sync;
    begin
    
    end;
    
    procedure TForm5.sButton1Click(Sender: TObject);
    begin
    Threads.Create;
    end;
    
    procedure TForm5.sButton2Click(Sender: TObject);
    begin
    if sSaveDialog1.Execute then
    begin
    sMemo1.Lines.SaveToFile(sSaveDialog1.FileName);
    end;
    end;
    
    end.
    
    
    Вот вам код тут нужно 3 sEdit 1 sMemo 2 sButton 1 sSpinEdit
    Синхронизацию не стал использовть дадад ображение к форме из потока ну я написал это на скорую руку так что менять что то лень