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

+ implemented a paramstr function which returns an ansistring, nevertheless

Browse Source 
it is limited to 255 chars because it maps to the system.paramstr, maybe
    we should use cmdline instead
This commit is contained in:
florian 1999-07-06 22:44:22 +00:00
parent f3ab1ad437
commit 42780da22f
1 changed files with 15 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
rtl/objpas/objpas.pp
View File

@ -50,6 +50,9 @@ unit objpas;
Procedure AssignFile(Var f:TypedFile;p:pchar); Procedure AssignFile(Var f:TypedFile;p:pchar);
Procedure AssignFile(Var f:TypedFile;c:char); Procedure AssignFile(Var f:TypedFile;c:char);
{ ParamStr should return also an ansistring }
Function ParamStr(Param : Integer) : Ansistring;
implementation implementation
{**************************************************************************** {****************************************************************************
@ -128,10 +131,21 @@ begin
system.Assign (F,C); system.Assign (F,C);
end; end;
Function ParamStr(Param : Integer) : Ansistring;
begin
paramstr:=system.paramstr(Param);
end;
end. end.
{ {
$Log$ $Log$
Revision 1.24 1999-05-17 21:52:43 florian Revision 1.25 1999-07-06 22:44:22 florian
+ implemented a paramstr function which returns an ansistring, nevertheless
it is limited to 255 chars because it maps to the system.paramstr, maybe
we should use cmdline instead
Revision 1.24 1999/05/17 21:52:43 florian
* most of the Object Pascal stuff moved to the system unit * most of the Object Pascal stuff moved to the system unit
Revision 1.23 1999/05/13 21:54:28 peter Revision 1.23 1999/05/13 21:54:28 peter