|
@@ -292,6 +292,7 @@ begin
|
|
paramstr:='';
|
|
paramstr:='';
|
|
end;
|
|
end;
|
|
|
|
|
|
|
|
+{$ifdef FPC_RTLSTRING_UTF16}
|
|
function argv: PPAnsiChar;
|
|
function argv: PPAnsiChar;
|
|
var
|
|
var
|
|
s: AnsiString;
|
|
s: AnsiString;
|
|
@@ -314,6 +315,13 @@ begin
|
|
end;
|
|
end;
|
|
Result:=FAnsiArgv;
|
|
Result:=FAnsiArgv;
|
|
end;
|
|
end;
|
|
|
|
+{$else}
|
|
|
|
+function argv: PPAnsiChar;
|
|
|
|
+begin
|
|
|
|
+ setup_arguments;
|
|
|
|
+ Result:=Fargv;
|
|
|
|
+end;
|
|
|
|
+{$endif FPC_RTLSTRING_UTF16}
|
|
|
|
|
|
procedure randomize;
|
|
procedure randomize;
|
|
begin
|
|
begin
|