Como criar parâmetros...
No Delphi, como eu crio parâmetros?
Assim:
Eu vou no DOS e coloco:
programa parametro
Como fasso para eu adicionar tals parâmetros...
Como o Telnet, tem:
telnet IP Porta Termo
O arp tem:
O -a, -s IP Protocolo, etc...
Assim:
Eu vou no DOS e coloco:
programa parametro
Como fasso para eu adicionar tals parâmetros...
Como o Telnet, tem:
telnet IP Porta Termo
O arp tem:
O -a, -s IP Protocolo, etc...
Jasig Aurumalfa
Curtidas 0
Respostas
Maicongabriel
22/02/2004
Para trabalhar com parametros no Delphi, você utiliza a função [b:b6794b808c]ParamStr()[/b:b6794b808c].
Exemplo do Telnet (se o seu programa fosse o telnet)::
ParamStr(1) :: retornaria :: IP
ParamStr(2) :: retornaria :: Porta
ParamStr(3) :: retornaria :: Termo[/quote:b6794b808c]
Você pode utilizar isto no OnCreate do Form, por exemplo::
[i:b6794b808c]Exemplo bobo...[/i:b6794b808c]
Exemplo do Telnet (se o seu programa fosse o telnet)::
[quote:b6794b808c]telnet IP Porta Termo
ParamStr(0) :: retornaria :: Caminho+telnetParamStr(1) :: retornaria :: IP
ParamStr(2) :: retornaria :: Porta
ParamStr(3) :: retornaria :: Termo[/quote:b6794b808c]
Você pode utilizar isto no OnCreate do Form, por exemplo::
if ParamStr(1) = ´IP´ then
begin
{ testa se digitou o texto ´IP´ como 1º parâmetro }
end;[i:b6794b808c]Exemplo bobo...[/i:b6794b808c]
GOSTEI 0
Jasig Aurumalfa
22/02/2004
Muito obrigado maicongabriel, você ajudou... :D
GOSTEI 0
Jasig Aurumalfa
22/02/2004
Eu gostaria de saber se usa alguma uses e se eu coloco isso no arquivo project ou então na unit...
GOSTEI 0
Maicongabriel
22/02/2004
[quote:2819afd708=´Jasig Aurumalfa´]Eu gostaria de saber se usa alguma uses e se eu coloco isso no arquivo project ou então na unit...[/quote:2819afd708]
[b:2819afd708]ParamStr()[/b:2819afd708] utiliza a unit [b:2819afd708]System[/b:2819afd708].
Você pode colocar no project(.dpr) ou na unit(na principal de preferência) :wink:
[b:2819afd708]ParamStr()[/b:2819afd708] utiliza a unit [b:2819afd708]System[/b:2819afd708].
Você pode colocar no project(.dpr) ou na unit(na principal de preferência) :wink:
GOSTEI 0