Tuesday, 28 October 2008

Pasar un array como parámetro en Delphi

Para pasar un array como parámetro de un método o procedimiento, hay que asociarlo a un clase. Por lo tanto si queremos hacer esto:


function PasarArrayComoParametro(var a : array of double; valor : double);
var
iPosArray : integer;
begin
iPosArray := Length(a);
SetLength(a, iPosArray + 1);
a[iPosArray] := valor;
end;

Debemos hacer esto:


type
TArrayDouble = array of TDouble;


function PasarArrayComoParametro(var a : TArrayDouble; valor : double);
var
iPosArray : integer;
begin
iPosArray := Length(a);
SetLength(a, iPosArray + 1);
a[iPosArray] := valor;
end;

0 comments:

Post a Comment