[Back to CMDLINE SWAG index]  [Back to Main SWAG index]  [Original]

{    Hey David, try this one out. It Uses a little known fact that TP
will parse the command line each time you call Paramstr(). So by
stuffing a String into the command-line buffer, we can have TP parse it
For us.
}
Program Parse;
Type
    String127 = String[127];
    Cmd = ^String127;

Var
    My_String : Cmd;
    Index : Integer;

begin
    My_String := Ptr(PrefixSeg, $80); {Point it to command line buffer}
    Write('Enter a line of Text (127 caracters Max) ');
    Readln(My_String^);
    For Index := 1 to Paramcount do
        Writeln(Paramstr(Index));
end.

{    You can solve the problem of the 127 caracter limit by reading into
a standard String and splitting it into <127 caracter substrings.
}

[Back to CMDLINE SWAG index]  [Back to Main SWAG index]  [Original]