Como passar parametro
:(
Caros colegas,
Gostaria muito de saber como passar uma parâmetro pra um exe em Delphi (Seria uma data em formato dd/mm/aaaa) pretendo usa-la para
processar os registros em uma tabela em que um determinado campo
fosse igual a data passada no parametro.
Não tenho a mínima idéia de como fazer isso,,
Se alguem puder me ajudar...
Caros colegas,
Gostaria muito de saber como passar uma parâmetro pra um exe em Delphi (Seria uma data em formato dd/mm/aaaa) pretendo usa-la para
processar os registros em uma tabela em que um determinado campo
fosse igual a data passada no parametro.
Não tenho a mínima idéia de como fazer isso,,
Se alguem puder me ajudar...
Arildo.a
Curtidas 0
Respostas
Werlon Goulart
08/05/2003
Use
ParamStr(0) retorna o Nome do Executavel;
ParamStr(1) Retorna o Primeiro parametro da linha de comando
ParamStr(2) Retorna o Segundo Parametro da linha de comando
...
...
...
ParamStr(9) Retorna o Nono parametro da Linha de comando
Lembre-se : q se augum dos parametros contiver espaços dentro passe-o entre aspas duplas. Os parametros são do tipo String.
Assim seu programa pode pegar parametros da linha de comando.
Ex : Programaexecutavel ´´Param1 teste´ ´param2´
Param(0) retornara ´Programaexecutavel ´
Param(1) retornara ´Param1 teste´
Param(2) Retornara ´param2´
Para Fazer a selecao dos registros use um query.
Query.Close;
Query.Sql.Clear;
Query.Sql.Text:=´Select * from NomeTabela Where CampoData Between ´+QuotedStr(ParamStr(1))+´ and ´+QuotedStr(ParamStr(2));
Query.Open;
Um Abraço
Werlon Goulart
ParamStr(0) retorna o Nome do Executavel;
ParamStr(1) Retorna o Primeiro parametro da linha de comando
ParamStr(2) Retorna o Segundo Parametro da linha de comando
...
...
...
ParamStr(9) Retorna o Nono parametro da Linha de comando
Lembre-se : q se augum dos parametros contiver espaços dentro passe-o entre aspas duplas. Os parametros são do tipo String.
Assim seu programa pode pegar parametros da linha de comando.
Ex : Programaexecutavel ´´Param1 teste´ ´param2´
Param(0) retornara ´Programaexecutavel ´
Param(1) retornara ´Param1 teste´
Param(2) Retornara ´param2´
Para Fazer a selecao dos registros use um query.
Query.Close;
Query.Sql.Clear;
Query.Sql.Text:=´Select * from NomeTabela Where CampoData Between ´+QuotedStr(ParamStr(1))+´ and ´+QuotedStr(ParamStr(2));
Query.Open;
Um Abraço
Werlon Goulart
GOSTEI 0