paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-21 17:09:36 +01:00
Code Issues Packages Projects Releases Wiki Activity

codetools: fixed compilation win32

Browse Source 
git-svn-id: trunk@35096 -
This commit is contained in:
mattias 2012-02-02 21:01:49 +00:00
parent c186d1b6cc
commit db1ea8ca0c
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/codetools/fileprocs.pas
View File

@ -2090,8 +2090,8 @@ begin
vtAnsiString: Result:=Result+AnsiString(Args[i].VAnsiString); vtAnsiString: Result:=Result+AnsiString(Args[i].VAnsiString);
vtChar: Result:=Result+Args[i].VChar; vtChar: Result:=Result+Args[i].VChar;
vtPChar: Result:=Result+Args[i].VPChar; vtPChar: Result:=Result+Args[i].VPChar;
vtPWideChar: Result:=Result+UTF8Encode(Args[i].VPWideChar^); vtPWideChar: Result:=Result+UnicodeToUTF8(ord(Args[i].VPWideChar^));
vtWideChar: Result:=Result+UTF8Encode(Args[i].VWideChar); vtWideChar: Result:=Result+UnicodeToUTF8(ord(Args[i].VWideChar));
vtWidestring: Result:=Result+UTF8Encode(WideString(Args[i].VWideString)); vtWidestring: Result:=Result+UTF8Encode(WideString(Args[i].VWideString));
vtObject: Result:=Result+DbgSName(Args[i].VObject); vtObject: Result:=Result+DbgSName(Args[i].VObject);
vtClass: Result:=Result+DbgSName(Args[i].VClass); vtClass: Result:=Result+DbgSName(Args[i].VClass);