Changeset 63 for trunk/UContact.pas

Timestamp:

Dec 9, 2021, 11:17:22 PM (3 years ago)

Author:

chronos

Message:

• Fixed: Open directory with saved split contact files in default file manager under Linux.
• Fixed: Don't use forbidden characters in saved contact file name.

File:

• trunk/UContact.pas (modified) (2 diffs)

trunk/UContact.pas

@@ -110 +110 @@
     Properties: TContactProperties;
     Parent: TContactsFile;
+    function FullNameToFileName: string;
     function GetProperty(Field: TContactField): TContactProperty; overload;
     function GetProperty(FieldIndex: TContactFieldIndex): TContactProperty; overload;
@@ -728 +729 @@
 end;
 
+function TContact.FullNameToFileName: string;
+var
+  I: Integer;
+begin
+  Result := Fields[cfFullName];
+  for I := 1 to Length(Result) do begin
+    if Result[I] in [':', '/', '\', '.', '"', '*', '|', '?', '<', '>'] then
+      Result[I] := '_';
+  end;
+end;
+
 function TContact.GetProperty(Field: TContactField): TContactProperty;
 var