Fun��o multiparametros

Question

ol� galera!Bem, trabalhei com clipper muitos alguns anos e nele tinha um comando muito util chamado STORE, que servia para atribuir um valor(n�merico ou string) a varias variaveis ao mesmo tempo. Ex: ...

Beppe · Answer

Cara, complicado o que quer...ter� que fazer via ponteiros, uma rotina para cada tipo:

procedure Store(const V: String; A: array of Pointer); overload;
var
  I: Integer;
begin
  for I := Low(A) to High(A) do
    String(P^) := S;
end;

procedure Store(const V: Integer; A: array of Pointer); overload;
var
  I: Integer;
begin
  for I := Low(A) to High(A) do
    Integer(P^) := S;
end;

Na chamada, passe ponteiros para as vari�veis:

Store(98, [@a, @b, @c, @d, @e, @i, @j]);
Store(�MARIA DA SILVA�, [@a, @b, @c, @d]);

PS: N�o testei, se n�o funcionar, posta aqui para corrigirmos o erro.

Ricardoif · Answer

Olha tentei mas n�o consegui, vou tentar novamente, e obridado pela atencao!

procedure TForm1.Store(const V: String; A: array of Pointer);
var
i: Integer;
p: ^String;
begin
for I := Low(A) to High(A) do
String(P^) := V;
end;

procedure TForm1.Store(const V: Integer; A: array of Pointer);
var
i: Integer;
p: ^Integer;
begin
for I := Low(A) to High(A) do
Integer(P^) := v;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
a,b,c: string;
e,f,g: integer;
begin
store(�Maria MADALENA�,[@a,@b,@c]);
Label1.caption:=a;
msg(a);
msg(b);
msg(c);

store(1550,[@e,@f,@g]);
msg(e);
msg(f);
msg(g);

end;

Marcelo Saviski · Answer

Em vez de [color=green:fcf1ed133d]P^[/color:fcf1ed133d] n�o deveria ser [color=green:fcf1ed133d]A^ [/color:fcf1ed133d]?...

Beppe · Answer

[quote:3dc3bb1ee4=�Marcelo Saviski�]Em vez de [color=green:3dc3bb1ee4]P^[/color:3dc3bb1ee4] n�o deveria ser [color=green:3dc3bb1ee4]A[I]^ [/color:3dc3bb1ee4]?[/quote:3dc3bb1ee4]
Exatamente isso! :oops: :wink:

F�rum Fun��o multiparametros #277735