rather use auto class d/ctor

This commit is contained in:
Basile Burg 2016-06-26 00:54:19 +02:00
parent be91856958
commit 0f385033a7
1 changed files with 4 additions and 8 deletions

View File

@ -21,8 +21,8 @@ type
procedure getList(sender: TObject);
public
class function showAndWait(out value: string): TModalResult; static;
class procedure classCtor;
class procedure classDtor;
class constructor classCtor;
class destructor classDtor;
constructor Create(TheOwner: TComponent); override;
property text: string read getText;
end;
@ -180,12 +180,12 @@ begin
itm.Selected := True;
end;
class procedure TDubPackageQueryForm.classCtor;
class constructor TDubPackageQueryForm.classCtor;
begin
fList := TStringList.Create;
end;
class procedure TDubPackageQueryForm.classDtor;
class destructor TDubPackageQueryForm.classDtor;
begin
fList.Free;
end;
@ -797,8 +797,4 @@ begin
end;
end;
initialization
TDubPackageQueryForm.classCtor;
finalization
TDubPackageQueryForm.classDtor;
end.