Mam taki oto kodzik i chciałbym go zoptymalizowac zeby szybciej dzialal bo na słabszych kompach to strasznie wolno chodzi.Prosze o pomoc [browar]
procedure TForm1.Button1Click(Sender: TObject);
var
Edit:TEdit;
nLabel:TLabel;
i,j:integer;
begin
for i:=1 to strtoint(Edit1.Text) do
begin
for j:=1 to strtoint(Edit2.Text) do
begin
Canvas.TextOut(200,50+j*30,inttostr(j));
Edit := TEdit.Create(Self);
Edit.Parent := Self;
Edit.Text := '';
Edit.Width:=20;
Edit.Left :=200+i*30 ;
Edit.Top :=50+j*30;
nLabel:=TLabel.Create(Self);
nLabel.Parent :=Self;
nLabel.Width:=10;
nLabel.Left:=200;
nLabel.Top:= 50+j*30;
nLabel.Caption:=inttostr(j) ;
end;
end;
end;