Changeset 61 for trunk/UContact.pas


Ignore:
Timestamp:
Dec 9, 2021, 12:31:17 AM (3 years ago)
Author:
chronos
Message:
  • Fixed: Build with older FPC version.
  • Added: Show also normal phone and work phone in the contact list.
File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/UContact.pas

    r60 r61  
    640640var
    641641  I: Integer;
    642   C: Integer;
    643 begin
    644   C := Count;
     642begin
    645643  I := 0;
    646644  while (I < Count) and (Items[I].SysName <> SysName) do Inc(I);
    … …  
    653651var
    654652  I: Integer;
    655   C: Integer;
    656 begin
    657   C := Count;
     653begin
    658654  I := 0;
    659655  while (I < Count) and not Items[I].Match(SysName, Groups) do Inc(I);
    … …  
    951947  try
    952948    Lines.LoadFromFile(FileName);
     949    {$IF FPC_FULLVERSION>=30200}
    953950    if (Length(Lines.Text) > 0) and (Pos(VCardBegin, Lines.Text) = 0) then begin
    954951      Lines.LoadFromFile(FileName, TEncoding.Unicode);
    … …  
    957954      end;
    958955    end;
     956    {$ENDIF}
    959957    LoadFromStrings(Lines);
    960958  finally
    … …  
    11241122  Lines := TStringList.Create;
    11251123  Lines.LoadFromFile(FileName);
     1124  {$IF FPC_FULLVERSION>=30200}
    11261125  if (Length(Lines.Text) > 0) and (Pos(VCardBegin, Lines.Text) = 0) then begin
    11271126    Lines.LoadFromFile(FileName, TEncoding.Unicode);
    … …  
    11301129    end;
    11311130  end;
     1131  {$ENDIF}
    11321132  try
    11331133    I := 0;
Note: See TracChangeset for help on using the changeset viewer.