Array Bidimensional (como parametro)
21/09/2004
0
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
Posts
21/09/2004
Bruno Belchior
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...
21/09/2004
Bruno Belchior
pocedure Y: (Parametro1: Matriz_10x8; Parametro2,Parametro3: string);
21/09/2004
Kleberns
Vou testar, brigadao !
att.
Nogueira
Clique aqui para fazer login e interagir na Comunidade :)