pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

tvplanit: Export contacts as vcard files. Fix some bugs in vcard import.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8395 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2022-08-18 17:44:47 +00:00
parent 0afcfc7a66
commit 83950d045a
17 changed files with 512 additions and 176 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
components/tvplanit/source/vpimportpreview_vcard.pas
View File

@ -79,15 +79,15 @@ begin
s := ACard.GetWorkAddress;
if s <> '' then
Result := Result + LineEnding + RSWorkAddress + ' ' + s;
Result := Result + LineEnding + RSWorkAddress + ': ' + s;
s := ACard.GetHomeAddress;
if s <> '' then
Result := Result + LineEnding + RSHomeAddress + ' ' + s;
Result := Result + LineEnding + RSHomeAddress + ': ' + s;
s := ACard.GetPhone;
if s <> '' then
Result := Result + LineEnding + RSPhone + ' ' + s;
Result := Result + LineEnding + RSPhone + ': ' + s;
s := ACard.GetEMail;
if s <> '' then