paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-16 18:39:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ implemented ParamCount and ParamStr for win16 (ParamStr(0) is not implemented yet)

Browse Source 
git-svn-id: trunk@31548 -
This commit is contained in:
nickysn 2015-09-06 10:42:33 +00:00
parent eea09632a3
commit 48e83479ef
1 changed files with 14 additions and 28 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

42
rtl/win16/system.pp
View File

@ -181,59 +181,45 @@ begin
end;}
{function GetCommandLine: string;
function GetArg(ArgNo: Integer; out ArgResult: string): Integer;
var
len, I: Integer;
begin
len := PFarByte(Ptr(PrefixSeg, $80))^;
SetLength(GetCommandLine, len);
for I := 1 to len do
GetCommandLine[I] := PFarChar(Ptr(PrefixSeg, $80 + I))^;
end;}
{function GetArg(ArgNo: Integer; out ArgResult: string): Integer;
var
cmdln: string;
I: Integer;
InArg: Boolean;
begin
cmdln := GetCommandLine;
ArgResult := '';
I := 1;
I := 0;
InArg := False;
GetArg := 0;
for I := 1 to Length(cmdln) do
while CmdLine[I]<>#0 do
begin
if not InArg and (cmdln[I] <> ' ') then
if not InArg and (CmdLine[I] <> ' ') then
begin
InArg := True;
Inc(GetArg);
end;
if InArg and (cmdln[I] = ' ') then
if InArg and (CmdLine[I] = ' ') then
InArg := False;
if InArg and (GetArg = ArgNo) then
ArgResult := ArgResult + cmdln[I];
ArgResult := ArgResult + CmdLine[I];
Inc(I);
end;
end;}
end;
function paramcount : longint;
{var
tmpstr: string;}
var
tmpstr: string;
begin
{ paramcount := GetArg(-1, tmpstr);}
paramcount:=0;
paramcount := GetArg(-1, tmpstr);
end;
function paramstr(l : longint) : string;
begin
{ if l = 0 then
paramstr := GetProgramName
if l = 0 then
paramstr := ''{GetProgramName}
else
GetArg(l, paramstr);}
paramstr:='';
GetArg(l, paramstr);
end;
procedure randomize;