Array Bidimensional (como parametro)

21/09/2004

procedure y(param1: NAOSEI; param2, param3: string);

Function X: boolean;
Var
aCmd: Array [01..10, 01..08] Of String;
begin
funcaoy(aCmd, ´PARAM2´, ´PARAM3´);
end;

Como passar como parametro esta array e como trataria ela nesta funcao ?

att.
Nogueira


Kleberns

Respostas

21/09/2004

Bruno Belchior

amigo não entendi bem o q quis dizer mas vou tentar ajudá-lo
vc quer criar uma Array Multidimensional (Matriz) da ordem (10x8) dez linas por oito colunas certo? bem vc poderia criar uma seção de type
como a seguinte

type
Matriz_10x8 = array [1..10,1..8] of string;

depois vc poderia utilizá-lo nas funções q quizesse ex.:

pocedure Y: (Parametro1: Matriz_10x8, Parametro2,Parametro3: string);

e depois chamála normalmente de outro procedimento ex.:

procedure X;
var a: Matriz_10x8;
begin
Y(a,´Para´,´Parb´);
end;

então dentro da função Y vc os trataria da forma como os criou no cabeçalho da mesma ex.:

pocedure Y: (Parametro1: Matriz_10x8, Parametro2,Parametro3: string);
var i,j: integer;
begin
for i:=1 to 10 do
for j:=1 to 8 do
begin
if i=1 and j=5 then Parametro1[i,j] := Parametro2;
if i=2 and j=8 then Parametro1[i,j] := Parametro3;
end;
end;

espero ter te ajudado...


Responder Citar

21/09/2004

Bruno Belchior

(corrigindo) Na verdade a declaração de Y é:
pocedure Y: (Parametro1: Matriz_10x8; Parametro2,Parametro3: string);


Responder Citar

21/09/2004

Kleberns

É isso mesmo, nao sabia deste Type

Vou testar, brigadao !

att.
Nogueira


Responder Citar