Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Go Back   Foros Club Delphi > Principal > Varios
Register FAQ Members List Calendar Guía de estilo Today's Posts

Coloboración Paypal con ClubDelphi

Reply
 
Thread Tools Search this Thread Display Modes
  #1  
Old 04/07/2003
Alejo Alejo is offline
Miembro
 
Join Date: Jun 2003
Posts: 37
Poder: 0
Alejo Va por buen camino
Question Como paso una matriz a una funcion

pues el asunto lo dice todo;
¿Como paso una matriz a una funcion?

intente algo asi como

procedure Funcion(a: array of array of byte)

pero no funciona !!!!
Reply With Quote
  #2  
Old 04/07/2003
andres1569 andres1569 is offline
Miembro
 
Join Date: May 2003
Posts: 908
Poder: 24
andres1569 Va por buen camino
Puedes únicamente pasar un array dinámico de una sola dimensión. Para el caso que planteas, mejor definirte un tipo de array, y pasarle un array de ese tipo:
Code:
type  
  MiLista = array of Byte;

function DevuelveNumero (const v: array of MiLista) : Integer;
var
  i, j : Integer;
begin
  for i:=Low(v) to High(v) do
    for j:=Low(v[i]) to High (v[i]) do
      ...
end;
Otra cosa, es preferible, para ganar eficiencia en la forma en que Delphi pasa los parámetros que son matrices dinámicas, anteponer la palabra reservada const si no vas a modificarlo, o si vas a modificarlo var.
__________________
Guía de Estilo
Reply With Quote
  #3  
Old 04/07/2003
Alejo Alejo is offline
Miembro
 
Join Date: Jun 2003
Posts: 37
Poder: 0
Alejo Va por buen camino
Question

oiga men, pero el dato ke necesito pasar es un array multidimensional (una matriz) no un vector....

como se convierte un array de este tipo en vector???
Reply With Quote
  #4  
Old 04/07/2003
delphi.com.ar's Avatar
delphi.com.ar delphi.com.ar is offline
Federico Firenze
 
Join Date: May 2003
Location: Buenos Aires, Argentina *
Posts: 5,965
Poder: 29
delphi.com.ar Va camino a la fama
Andrés te respondió correctamente a lo que tu preguntaste, vale la pena que veas el código que enviaste en el primer post.
Code:
type
  MiArray = array[0..10, 0..10] of Byte;
...
procedure Procedimiento(AValue : MiArray);
begin
  ...
end;
__________________
delphi.com.ar

Dedique el tiempo suficiente para formular su pregunta si pretende que alguien dedique su tiempo en contestarla.
Reply With Quote
  #5  
Old 04/07/2003
Alejo Alejo is offline
Miembro
 
Join Date: Jun 2003
Posts: 37
Poder: 0
Alejo Va por buen camino
Smile

jeje pues sorry es ke estaba confundido pues yo define el array como esto:

Datos:array [0..255] of array [0..255] of Byte ...

solo por curiosidad... ke fue lo ke defini aki???
Reply With Quote
  #6  
Old 04/07/2003
andres1569 andres1569 is offline
Miembro
 
Join Date: May 2003
Posts: 908
Poder: 24
andres1569 Va por buen camino
Hola Alejo:

Lo que Delphi no admite es pasar arrays dinámicos multidimensionales por eso te puse la opción que puedes ver en mi mensaje anterior, con la que vienes a lograr una matriz bidimensional, basando un array dinámico de una dimensión en un tipo que a su vez es otro array dinámico de una dimensión.

Esa limitación se aplica a arrays dinámicos, si el array es estático, sí que puedes pasarlo como parámetro aunque sea bidimensional, ejemplo:
Code:
type
  TMatriz = array [0..100, 0.. 50] of Byte;

function CalculaElementos (Lista: TMatriz) : Integer;
var
  i, j : Integer;
begin
  result := 0;
  for i:=Low(Lista) to High(Lista) do
    for j:=Low(Lista[i]) to High(Lista[i]) do Inc (result);
end;
La diferencia entre dinámicos y estáticos es que en unos no sabes a priori cuántos elementos tienen y en los otros están definidos sus límites desde la sección type.
__________________
Guía de Estilo
Reply With Quote
Reply



Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

vB code is On
Smilies are On
[IMG] code is On
HTML code is Off
Forum Jump


All times are GMT +2. The time now is 10:20.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi