Changeset 364
- Timestamp:
- May 22, 2012, 7:44:56 AM (13 years ago)
- Files:
-
- 6 added
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
Common/Common.lpk
r343 r364 22 22 <License Value="GNU/GPL"/> 23 23 <Version Minor="5"/> 24 <Files Count="1 2">24 <Files Count="13"> 25 25 <Item1> 26 26 <Filename Value="StopWatch.pas"/> … … 72 72 <UnitName Value="URegistry"/> 73 73 </Item12> 74 <Item13> 75 <Filename Value="UJobProgressView.pas"/> 76 <UnitName Value="UJobProgressView"/> 77 </Item13> 74 78 </Files> 75 79 <i18n> … … 96 100 <Version Value="2"/> 97 101 </PublishOptions> 102 <CustomOptions Items="ExternHelp" Version="2"> 103 <_ExternHelp Items="Count"/> 104 </CustomOptions> 98 105 </Package> 99 106 </CONFIG> -
Common/Common.pas
r360 r364 10 10 StopWatch, UCommon, UDebugLog, UDelay, UPrefixMultiplier, UURI, UThreading, 11 11 UMemory, UResetableThread, UPool, ULastOpenedList, URegistry, 12 LazarusPackageIntf;12 UJobProgressView, LazarusPackageIntf; 13 13 14 14 implementation -
Common/UCommon.pas
r360 r364 61 61 procedure OpenFileInShell(FileName: string); 62 62 procedure ExecuteProgram(CommandLine: string); 63 procedure FreeThenNil(var Obj); 63 64 64 65 … … 392 393 end; 393 394 395 procedure FreeThenNil(var Obj); 396 begin 397 TObject(Obj).Free; 398 TObject(Obj) := nil; 399 end; 400 394 401 procedure OpenWebPage(URL: string); 395 402 var
Note:
See TracChangeset
for help on using the changeset viewer.