Changeset 98


Ignore:
Timestamp:
Feb 4, 2022, 12:09:04 PM (3 years ago)
Author:
chronos
Message:
  • Fixed: Build warnings.
  • Added: KAddressBook samples.
  • Added: vCard 2.1 specification.
Location:
trunk
Files:
5 added
2 deleted
5 edited

Legend:

Unmodified
Added
Removed

  • trunk/Forms/UFormContacts.pas

    r88 r98  
    66
    77uses
    8   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
     8  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs,
    99  ComCtrls, Menus, ActnList, UContact, UListViewSort, fgl, LazUTF8, Clipbrd;
    1010

  • trunk/Forms/UFormProperties.pas

    r73 r98  
    66
    77uses
    8   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
     8  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs,
    99  ComCtrls, Menus, ActnList, UContact, UListViewSort, fgl, LazUTF8;
    1010

  • trunk/Packages/Common/UCommon.pas

    r95 r98  
    8484function SplitString(var Text: string; Count: Word): string;
    8585function StripTags(const S: string): string;
    86 function TryHexToInt(Data: string; var Value: Integer): Boolean;
    87 function TryBinToInt(Data: string; var Value: Integer): Boolean;
     86function TryHexToInt(Data: string; out Value: Integer): Boolean;
     87function TryBinToInt(Data: string; out Value: Integer): Boolean;
    8888procedure SortStrings(Strings: TStrings);
    8989
    … …  
    247247end;
    248248
    249 function TryHexToInt(Data: string; var Value: Integer): Boolean;
     249function TryHexToInt(Data: string; out Value: Integer): Boolean;
    250250var
    251251  I: Integer;
    … …  
    263263end;
    264264
    265 function TryBinToInt(Data: string; var Value: Integer): Boolean;
     265function TryBinToInt(Data: string; out Value: Integer): Boolean;
    266266var
    267267  I: Integer;

  • trunk/UContact.pas

    r97 r98  
    333333  I := 1;
    334334  O := 1;
     335  InNewLine := False;
    335336  SetLength(Result, Length(Text)); // Preallocate string
    336337  while I <= Length(Text) do begin

  • trunk/vCardStudio.lpr

    r91 r98  
    88  {$ENDIF}
    99  Interfaces, // this includes the LCL widgetset
    10   Forms, UFormMain, UCore, Common, UDataFile, SysUtils, UFormTest, UTest,
    11 UFormTestCase;
     10  Forms, UFormMain, UCore, Common, SysUtils;
    1211
    1312{$R *.res}
Note: See TracChangeset for help on using the changeset viewer.