paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-19 22:29:37 +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);
vtChar: Result:=Result+Args[i].VChar;
vtPChar: Result:=Result+Args[i].VPChar;
vtPWideChar: Result:=Result+UTF8Encode(Args[i].VPWideChar^);
vtWideChar: Result:=Result+UTF8Encode(Args[i].VWideChar);
vtPWideChar: Result:=Result+UnicodeToUTF8(ord(Args[i].VPWideChar^));
vtWideChar: Result:=Result+UnicodeToUTF8(ord(Args[i].VWideChar));
vtWidestring: Result:=Result+UTF8Encode(WideString(Args[i].VWideString));
vtObject: Result:=Result+DbgSName(Args[i].VObject);
vtClass: Result:=Result+DbgSName(Args[i].VClass);