programa consola ¿como parsear parametros?

[ecfisa]

Hola JXJ.

Los parámetros los podés obtener indicándole el índice a la función ParamStr y el total de parámetros enviados mediante la función ParamCount. Mientras que el texto ingresado con la variable CmdLine y con la función FindCmdLineSwitch podés comprobar la existencia de un switch en la cadena enviada.

Te pongo un ejemplo para ser mas explícito:

Código Delphi [-]
program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  i: integer;
begin
  Writeln('Texto ingresado: ' + Pchar(CmdLine));
  Writeln('Numero de parametros: ', ParamCount);
  for i:= 1 to ParamCount do
    Writeln('Parámetro ' + IntToStr(i) + ': ' + ParamStr(i));
  if FindCmdLineSwitch('x') then
    Writeln('Switch x presente')
  else
    Writeln('Switch x no presente');
end.

Y luego de compilarlo desde el cmd haces:

Conecta -u usuario -p password -host 127.0.0.1 -archivo c:\micrachivo.txt /eliminar [email protected]

El resultado va a ser:

Texto ingresado: Conecta -u usuario -p password -host 127.0.0.1 -archivo c:\micrachivo.txt /eliminar [email protected]
Numero de parametros: 10
Parametro 1: -u
Parametro 2: usuario
Parametro 3: -p
Parametro 4: password
Parametro 5: -host
Parametro 6: 127.0.0.1
Parametro 7: -archivo
Parametro 8: c:\miarchivo.txt
Parametro 9: /eliminar
Parametro 10: [email protected]
Switch x no presente

Saludos