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

LazUtf8: Fix compiling Windows implementation of ParamStrUtf8 for fpc 2.6.0.

Browse Source 
git-svn-id: trunk@41724 -
This commit is contained in:
bart 2013-06-16 11:55:10 +00:00
parent 1a3c2a2531
commit 2aa7ae79c9
1 changed files with 15 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
components/lazutils/winlazutf8.inc
View File

@ -33,6 +33,20 @@ end;
//*************** START WideString impementations
//fpc 2.6.0 does not have StrLen for WideChar.
//Remove this when we have 2.6.4 or higher
{$if FPC_FULLVERSION < 20602}
function StrLen(PW: PWideChar): SizeInt;
var
i: SizeInt;
begin
i:=0;
if assigned(PW) then
while (PW[i] <> #0) do inc(i);
Result := i;
end;
{$endif}
procedure SetupCommandlineParametersWide;
var
@ -40,7 +54,7 @@ var
argstart,
Quote : Boolean;
Buf: array[0..259] of WChar; // need MAX_PATH bytes, not 256!
PCmdLineW: PWChar;
PCmdLineW: PWideChar;
CmdLineW: WideString;
procedure AllocArg(Idx, Len:longint);