pascal/kolmck
1
0
Fork 0
Code Issues Releases Activity

git-svn-id: https://svn.code.sf.net/p/kolmck/code@21 91bb2d04-0c0c-4d2d-88a5-bbb6f4c1fa07

Browse Source
This commit is contained in:
dkolmck
2009-08-31 06:44:24 +00:00
parent 17011970db
commit 3d7f53993a
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
mckCtrls.pas
View File

@ -11171,9 +11171,9 @@ begin
Result := Result + '''' + S + Copy( B, 2, MaxInt ) Result := Result + '''' + S + Copy( B, 2, MaxInt )
else else
if S <> '' then if S <> '' then
Result := Result + 'PChar( ''' + S + ''' + ' + B + ')' Result := Result + 'PKOLChar( ''' + S + ''' + ' + B + ')'
else else
Result := Result + 'PChar( ' + B + ' )'; Result := Result + 'PKOLChar( ' + B + ' )';
end; end;
end; end;
if I < Items.Count-1 then if I < Items.Count-1 then