Parametro na chamada do programa ?

[@beto 0]

Fala ai...

 

Como daria para fazer para que o programa receba parametros e trabalhar estes parametros, este parametros poderia ser string...

 

Alguem sabe como fazer isso...

 

Valeu desde já..

 

http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

[marcio.theis 3]

Bem fácil de trabalhar com estes parâmetros, basta colocar no seu OnCreate do form algo do tipo:

 

var	x: integer;	parametro: string;beginfor x:=1 to ParamCount() do	begin	parametro:=ParamStr(x);	ShowMessage(parametro);	end;

Coloca o .exe no C:\ e pode chamar ele assim:

c:\Project1.exe -a -b -c

Vai exibir três mensagens, conforme os parâmetros, sendo que assim que tiver um espaço, é considerado outro parâmetro.

Se criar um projeto de teste, o fonte deve de ficar algo do tipo:

 

unit Unit1;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs;type  TForm1 = class(TForm)	procedure FormCreate(Sender: TObject);  private	{ Private declarations }  public	{ Public declarations }  end;var  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);var	x: integer;	parametro: string;beginfor x:=1 to ParamCount() do	begin	parametro:=ParamStr(x);	ShowMessage(parametro);	end;end;end.