• R/O
  • SSH
  • HTTPS

dzbdslauncher: Commit


Commit MetaInfo

Revision36 (tree)
Zeit2020-09-20 22:27:08
Autordummzeuch

Log Message

* Bugfix: FreeAndNil is wrong for string arrays (why did this not bomb out at runtime?)
* Can now also handle dpk files

Ändern Zusammenfassung

Diff

--- trunk/src/u_dzBdsLauncher.pas (revision 35)
+++ trunk/src/u_dzBdsLauncher.pas (revision 36)
@@ -76,8 +76,6 @@
7676
7777 destructor TDelphiInfo.Destroy;
7878 begin
79- FreeAndNil(FExtensions);
80- FreeAndNil(FProjectVersions);
8179 inherited;
8280 end;
8381
@@ -144,7 +142,7 @@
144142 procedure HandleGroupProj(const _fn: string);
145143 procedure HandleBdsProj(const _fn: string);
146144 procedure HandleDof(const _fn: string);
147- procedure HandleDpr(const _fn: string);
145+ procedure HandleDprOrDpk(const _fn: string);
148146 function CheckExcludedPackages(_sl: TStringList; const _Possibles: TDelphiVersionSet): TDelphiVersion;
149147 public
150148 constructor Create;
@@ -434,7 +432,7 @@
434432 end;
435433 end;
436434
437-procedure TDelphiInfoList.HandleDpr(const _fn: string);
435+procedure TDelphiInfoList.HandleDprOrDpk(const _fn: string);
438436 var
439437 fn: string;
440438 begin
@@ -463,7 +461,10 @@
463461 Ext := ExtractFileExt(_fn);
464462 if SameText(Ext, '.dpr') then begin
465463 StdOut.WriteLn('DPR file detected');
466- HandleDpr(_fn);
464+ HandleDprOrDpk(_fn);
465+ end else if SameText(Ext, '.dpk') then begin
466+ StdOut.WriteLn('DPK file detected');
467+ HandleDprOrDpk(_fn);
467468 end else if SameText(Ext, '.dproj') then begin
468469 StdOut.WriteLn('DPROJ file detected');
469470 HandleDproj(_fn);
Show on old repository browser