Sendo mais específico: Array Multi como Parâmetro

Delphi

18/11/2003

Preciso passar um array multidimencinal como parâmetro:



Ex:

( (´Joao´,´1200´), (´Antonio´,´270´),(´Carlos´,´520´) )

é uma array com 3 elementos que são arrays com 2 elementos cada.

e aí não consigo passar, me retorna erro de sindaxe.

consiguo declarar mas não sei como passar.

Obrigado.


Elocom

Elocom

Curtidas 0

Respostas

Beppe

Beppe

18/11/2003

TDados = record
  S1, S2: String;
end;

function Dado(const S1, S2: String): TDados;
begin
  Result.S1 := S1;
  Result.S2 := S2;
end;

procedure SuaRotina(const Args: array of TDados);
begin
...
end;


Chame assim:
SuaRotina([Dado(´Joao´,´1200´), Dado(´Antonio´,´270´), Dado(´Carlos´,´520´)]);



GOSTEI 0
POSTAR