фикс тулбара для уникода

git-svn-id: https://svn.code.sf.net/p/kolmck/code@20 91bb2d04-0c0c-4d2d-88a5-bbb6f4c1fa07
2009-08-31 06:43:56 +00:00 · 2009-08-31 06:43:56 +00:00 · 17011970db
commit 17011970db
parent 2ab8b39ada
1 changed files with 1 additions and 1 deletions
--- a/mirror.pas
+++ b/mirror.pas
@ -8609,7 +8609,7 @@ begin
  end;
  if Result <> '' then
    if Result[ 1 ] <> '''' then
-      Result := 'PChar( ' + Result + ' )';
+      Result := 'PKOLChar( ' + Result + ' )';
 end;

 function P_PCharStringConstant( Sender: TObject; const Propname, Value: String ): String;