Changeset 170 for trunk/Packages/VCard/VCard.pas

Timestamp:

Jul 2, 2023, 11:07:39 PM (11 months ago)

Author:

chronos

Message:

• Fixed: Show only supported import formats.

File:

• trunk/Packages/VCard/VCard.pas (modified) (1 diff)

trunk/Packages/VCard/VCard.pas

@@ -698 +698 @@
   Lines := TStringList.Create;
   Lines.LoadFromFile(FileName);
-  {$IF FPC_FULLVERSION>=30200}
-  if (Length(Lines.Text) > 0) and (Pos(VCardBegin, Lines.Text) = 0) then begin
-    Lines.LoadFromFile(FileName, TEncoding.Unicode);
-    if (Length(Lines.Text) > 0) and (Pos(VCardBegin, Lines.Text) = 0) then begin
-      Lines.LoadFromFile(FileName, TEncoding.BigEndianUnicode);
-    end;
-  end;
-  {$ENDIF}
   try
     ImportFromStrings(Lines, Format, HumanReadableHeader);