Lazarus 异步线程
{$mode objfpc}{$H+}
或者
procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Text := 'start...';
TThread.CreateAnonymousThread(
procedure
var
i: integer;
begin
Sleep(1000);
for i := 0 to 99999 do
TThread.Synchronize(nil,
procedure
begin
Form1.Edit1.Text := IntToStr(i);
end
);
Edit1.Text := 'end.';
end
).Start;
end;
大佬们说是要在PFC3.3以上。用的是3.2.2 所以没有验证。