- Timestamp:
- Feb 4, 2022, 12:09:04 PM (3 years ago)
- Location:
- trunk
- Files:
-
- 5 added
- 2 deleted
- 5 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Forms/UFormContacts.pas
r88 r98 6 6 7 7 uses 8 Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,8 Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, 9 9 ComCtrls, Menus, ActnList, UContact, UListViewSort, fgl, LazUTF8, Clipbrd; 10 10 -
trunk/Forms/UFormProperties.pas
r73 r98 6 6 7 7 uses 8 Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,8 Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, 9 9 ComCtrls, Menus, ActnList, UContact, UListViewSort, fgl, LazUTF8; 10 10 -
trunk/Packages/Common/UCommon.pas
r95 r98 84 84 function SplitString(var Text: string; Count: Word): string; 85 85 function StripTags(const S: string): string; 86 function TryHexToInt(Data: string; varValue: Integer): Boolean;87 function TryBinToInt(Data: string; varValue: Integer): Boolean;86 function TryHexToInt(Data: string; out Value: Integer): Boolean; 87 function TryBinToInt(Data: string; out Value: Integer): Boolean; 88 88 procedure SortStrings(Strings: TStrings); 89 89 … … 247 247 end; 248 248 249 function TryHexToInt(Data: string; varValue: Integer): Boolean;249 function TryHexToInt(Data: string; out Value: Integer): Boolean; 250 250 var 251 251 I: Integer; … … 263 263 end; 264 264 265 function TryBinToInt(Data: string; varValue: Integer): Boolean;265 function TryBinToInt(Data: string; out Value: Integer): Boolean; 266 266 var 267 267 I: Integer; -
trunk/UContact.pas
r97 r98 333 333 I := 1; 334 334 O := 1; 335 InNewLine := False; 335 336 SetLength(Result, Length(Text)); // Preallocate string 336 337 while I <= Length(Text) do begin -
trunk/vCardStudio.lpr
r91 r98 8 8 {$ENDIF} 9 9 Interfaces, // this includes the LCL widgetset 10 Forms, UFormMain, UCore, Common, UDataFile, SysUtils, UFormTest, UTest, 11 UFormTestCase; 10 Forms, UFormMain, UCore, Common, SysUtils; 12 11 13 12 {$R *.res}
Note:
See TracChangeset
for help on using the changeset viewer.