12.01.2012, 18:53
|
|
Местный
|
|
Регистрация: 04.04.2008
Адрес: Минск
Сообщения: 596
Версия Delphi: 2007 & JAVA EE
Репутация: 10670
|
|
ну как-то так :
memo2 - типа входные данные;
memo1 - типа база;
Код:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls;
type
gggg = class(TThread)
private
{ Private declarations }
protected
procedure Execute; override;
end;
TForm1 = class(TForm)
Timer1: TTimer;
Button1: TButton;
Memo1: TMemo;
Memo2: TMemo;
Button2: TButton;
procedure Timer1Timer(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure gggg.Execute;
begin
while (form1.Timer1.Enabled) do
begin
sleep(205);
if form1.Memo2.Lines.Count>0 then
begin
form1.Memo1.Lines.add(form1.Memo2.Lines[0]);
form1.Memo2.Lines.Delete(0);
end;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var g:gggg;
begin
Timer1.Enabled:=true;
g:=gggg.Create(true);
g.Resume;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Timer1.Enabled:=false;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Randomize;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
memo2.lines.add(inttostr(random(34534534)));
end;
end.
__________________
Последний раз редактировалось Admin, Сегодня в 10:32.
|