procedure TForm1.Button1Click(Sender: TObject);
var
astr : TStringList;
I : integer;
id : TGUID;
s : string;
begin
aStr := TStringList.Create;
try
I := 0;
while True do
begin
CoCreateGuid(id);
s := GUIDToString(id);
AStr.Add(s);
Inc(i);
Application.ProcessMessages;
Label1.Caption := IntToStr(I);
end;
finally
AStr.Free;
end;
end;
我运行它,I 已经到了7位数,也没有错
procedure TForm1.Button1Click(Sender: TObject);
var
astr : TStringList;
I : integer;
begin
aStr := TStringList.Create;
try
I := 0;
while True do
begin
AStr.Add('test');
Inc(i);
Application.ProcessMessages;
Label1.Caption := IntToStr(I);
end;
finally
AStr.Free;
end;
end;
我运行它,I 已经到了6位数,也没有错