Задачка

Оптимизируйте функцию

procedure TForm1.Button1Click(Sender: TObject);
var
fmMain : TfmMain;
begin
fmMain := TfmMain.Create;
fmMain.ShowModal;
end;


Вариант

procedure TForm1.Button1Click(Sender: TObject);
var
fmMain : TfmMain;
begin
fmMain := TfmMain.Create(nil);
try
fmMain.ShowModal;
finally
FreeAndNil(fmMain);
end;
end;

Исходник

Leave a Reply

You must be logged in to post a comment.