GitHub-Mirror/x2utils
1
0
Fork 0
mirror of synced 2024-12-22 09:13:07 +01:00
Code Issues Projects Releases Wiki Activity

X2UtNamedFormat compatibility with Delphi 2007

Browse Source
This commit is contained in:
Mark van Renswoude 2014-02-27 09:26:55 +00:00
parent c249606540
commit 4d9a76cb35
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
X2UtNamedFormat.pas
View File

@ -204,7 +204,9 @@ begin
vtAnsiString: name := string(PChar(param.VAnsiString)); vtAnsiString: name := string(PChar(param.VAnsiString));
vtWideChar: name := string(param.VWideChar); vtWideChar: name := string(param.VWideChar);
vtWideString: name := string(WideString(param.VWideString)); vtWideString: name := string(WideString(param.VWideString));
{$IF CompilerVersion >= 23}
vtUnicodeString: name := string(UnicodeString(param.VUnicodeString)); vtUnicodeString: name := string(UnicodeString(param.VUnicodeString));
{$IFEND}
else else
raise Exception.CreateFmt('Parameter name at index %d is not a string value', raise Exception.CreateFmt('Parameter name at index %d is not a string value',
[paramIndex div 2]); [paramIndex div 2]);