Changeset 560
- Timestamp:
- Sep 10, 2022, 11:35:01 AM (2 years ago)
- Location:
- Common
- Files:
-
- 1 added
- 13 edited
Legend:
- Unmodified
- Added
- Removed
-
Common/Common.lpk
r559 r560 42 42 <License Value="Copy left."/> 43 43 <Version Minor="10"/> 44 <Files Count="3 1">44 <Files Count="32"> 45 45 <Item1> 46 46 <Filename Value="StopWatch.pas"/> … … 179 179 <UnitName Value="UTestCase"/> 180 180 </Item31> 181 <Item32> 182 <Filename Value="UGenerics.pas"/> 183 <UnitName Value="UGenerics"/> 184 </Item32> 181 185 </Files> 182 186 <CompatibilityMode Value="True"/> -
Common/Common.pas
r559 r560 14 14 UPersistentForm, UFindFile, UScaleDPI, UTheme, UStringTable, UMetaCanvas, 15 15 UGeometric, UTranslator, ULanguages, UFormAbout, UAboutDialog, 16 UPixelPointer, UDataFile, UTestCase, LazarusPackageIntf;16 UPixelPointer, UDataFile, UTestCase, UGenerics, LazarusPackageIntf; 17 17 18 18 implementation -
Common/UCommon.pas
r558 r560 7 7 {$IFDEF UNIX}baseunix,{$ENDIF} 8 8 Classes, SysUtils, StrUtils, Dialogs, Process, LCLIntf, Graphics, 9 FileUtil ; //, ShFolder, ShellAPI;9 FileUtil, Generics.Collections; //, ShFolder, ShellAPI; 10 10 11 11 type … … 65 65 function GetFileFilterItemExt(Filter: string; Index: Integer): string; 66 66 function IntToBin(Data: Int64; Count: Byte): string; 67 function Implode(Separator: Char; List: TList<string>): string; 67 68 function LastPos(const SubStr: String; const S: String): Integer; 68 69 function LoadFileToStr(const FileName: TFileName): AnsiString; … … 313 314 end; 314 315 316 function Implode(Separator: Char; List: TList<string>): string; 317 var 318 I: Integer; 319 begin 320 Result := ''; 321 for I := 0 to List.Count - 1 do begin 322 Result := Result + List[I]; 323 if I < List.Count - 1 then Result := Result + Separator; 324 end; 325 end; 326 315 327 {$IFDEF WINDOWS} 316 328 function GetUserName: string; -
Common/UFindFile.pas
r558 r560 85 85 begin 86 86 s.Free; 87 inherited Destroy;87 inherited; 88 88 end; 89 89 -
Common/UFormAbout.pas
r558 r560 20 20 PanelButtons: TPanel; 21 21 procedure ButtonHomePageClick(Sender: TObject); 22 procedure FormCreate(Sender: TObject);23 22 procedure FormShow(Sender: TObject); 24 private25 { private declarations }26 23 public 27 24 AboutDialog: TObject; //TAboutDialog … … 77 74 end; 78 75 79 procedure TFormAbout.FormCreate(Sender: TObject);80 begin81 end;82 83 76 end. 84 77 -
Common/UJobProgressView.pas
r558 r560 641 641 begin 642 642 FLock.Free; 643 inherited Destroy;643 inherited; 644 644 end; 645 645 -
Common/UListViewSort.pas
r558 r560 149 149 destructor TListViewEx.Destroy; 150 150 begin 151 inherited Destroy;151 inherited; 152 152 end; 153 153 -
Common/UMemory.pas
r558 r560 49 49 procedure TPositionMemory.SetSize(AValue: Integer); 50 50 begin 51 inherited SetSize(AValue);51 inherited; 52 52 if FPosition > FSize then FPosition := FSize; 53 53 end; … … 106 106 begin 107 107 Size := 0; 108 inherited Destroy;108 inherited; 109 109 end; 110 110 -
Common/UPool.pas
r558 r560 106 106 constructor TThreadedPool.Create; 107 107 begin 108 inherited Create;108 inherited; 109 109 Lock := TCriticalSection.Create; 110 110 end; … … 114 114 TotalCount := 0; 115 115 Lock.Free; 116 inherited Destroy;116 inherited; 117 117 end; 118 118 -
Common/UResetableThread.pas
r558 r560 165 165 FreeAndNil(FStopEvent); 166 166 FreeAndNil(FLock); 167 inherited Destroy;167 inherited; 168 168 end; 169 169 … … 284 284 constructor TThreadPool.Create; 285 285 begin 286 inherited Create;286 inherited; 287 287 end; 288 288 … … 291 291 TotalCount := 0; 292 292 WaitForEmpty; 293 inherited Destroy;293 inherited; 294 294 end; 295 295 -
Common/USyncCounter.pas
r558 r560 68 68 begin 69 69 Lock.Free; 70 inherited Destroy;70 inherited; 71 71 end; 72 72 -
Common/UThreading.pas
r558 r560 292 292 end; 293 293 FThread.Free; 294 inherited Destroy;294 inherited; 295 295 end; 296 296 -
Common/UURI.pas
r558 r560 182 182 begin 183 183 Items.Free; 184 inherited Destroy;184 inherited; 185 185 end; 186 186 … … 231 231 begin 232 232 Path.Free; 233 inherited Destroy;233 inherited; 234 234 end; 235 235 … … 242 242 Fragment := TURI(Source).Fragment; 243 243 Query := TURI(Source).Query; 244 end else inherited Assign(Source);244 end else inherited; 245 245 end; 246 246 … … 290 290 destructor TURL.Destroy; 291 291 begin 292 inherited Destroy;292 inherited; 293 293 end; 294 294 … … 343 343 begin 344 344 Directory.Free; 345 inherited Destroy; 346 end; 347 345 inherited; 346 end; 348 347 349 348 end.
Note:
See TracChangeset
for help on using the changeset viewer.