forks
/
dexed
mirror of https://gitlab.com/basile.b/dexed.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
src/ce_libmaneditor.pas
View File

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