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

tvplanit: Fix compilation in Linux (issue #33852).

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6487 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2018-06-12 09:22:00 +00:00
parent cc7ef858c4
commit dcffe6f0aa
1 changed files with 7 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
components/tvplanit/source/vpvcard.pas
View File

@ -279,7 +279,7 @@ function TVpVCardItem.UnEscape(AValueText: String): String;
const const
BUFSIZE = 100; BUFSIZE = 100;
var var
p: PChar; p, q: PChar;
idx: Integer; idx: Integer;
procedure AddChar(ch: Char); procedure AddChar(ch: Char);
@ -303,9 +303,12 @@ begin
if p^ = '\' then begin if p^ = '\' then begin
inc(p); inc(p);
if p^ = 'n' then begin if p^ = 'n' then begin
AddChar(LineEnding[1]); q := PChar(LineEnding);
if Length(LineEnding) > 1 then AddChar(Char(q^));
AddChar(LineEnding[2]); if Length(LineEnding) > 1 then begin
inc(q);
AddChar(char(q^));
end;
end else end else
AddChar(char(p^)); AddChar(char(p^));
end else end else