Цикл и форма

[moscow]

Искал код с одним потоком и нашел на одном форуме, но с ним проблема и на нее никто не ответил там. Вот код:

1. Все норм, но когда передвигаю форму, цикл сразу ... весь заканчивается. Что не так?

procedure Chikl.Execute;
var
a:integer;
begin
try
for a:=1 to StrToInt (Form1.Edit1.Text) do begin
Form1.memo1.Lines.Add(IntToStr(a));
{sleep (1000)}
end;
finally
terminate;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
x:Chikl;
begin
try
Button1.Enabled:=false;

x:=Chikl.Create(true);
x.FreeOnTerminate:=true;
x.Priority:=tpNormal;
x.Resume;
while not x.Terminated do begin sleep(25);
application.ProcessMessages;
end;

finally
Button1.Enabled:=true;
end;
end;

2. Как сделать чтобы цикл по таймеру был из Edit?

[veniside]

> Что не так?

с VCL нельзя работать не в контексте "главного" потока. Вот этот код (и любой другой, работающий с VCL) переносим из Execute() в отдельный метод класса Chikl, и вызываем этот метод через Synchronize():

for a:=1 to StrToInt (Form1.Edit1.Text) do begin
Form1.memo1.Lines.Add(IntToStr(a));

[moscow]

veniside, спасибо за ответ. Ответ правда не для школьников.
Если не затруднит, пример привести. Школьник в этом деле еще, на пальчиках нужно объяснять.

[Mifody]

как говориться "тупо для вашего примера", только не пойму зачем цикл в поток выносить...

type
  TChikl = class(TThread)
  private
    str : string;
    { private declarations }
    procedure Uptdate;
  protected
    procedure execute; override;
  public
    startI : integer;
  end;

procedure TChikl.Execute;
var
  a:integer;
begin
  try
    for a:=1 to startI do
    begin
      str := IntToStr(a);
      Synchronize(Uptdate);
      {sleep (1000)}
    end;
  finally
    terminate;
  end;
end;

procedure TChikl.Uptdate;
begin
   Form1.memo1.Lines.Add(a);
end;


procedure TForm1.Button1Click(Sender: TObject);
var
x:TChikl;
begin
try
Button1.Enabled:=false;

x:=TChikl.Create(true);
x.FreeOnTerminate:=true;
x.Priority:=tpNormal;
x.startI := StrToInt (Form1.Edit1.Text);
x.Resume;
while not x.Terminated do begin sleep(25);
application.ProcessMessages;
end;

finally
Button1.Enabled:=true;
end;
end;

З.Ы. Написано "на коленке", так что скорее всего будут "зявки"

[moscow]

Сообщение от Mifody

З.Ы. Написано "на коленке", так что скорее всего будут "зявки"

"Заявок" не будет, ответ сами дали, и не пишите больше "на коленке".