Pasar array como parámetro

[santiago14]

Quiero agradecerles a todos que a esta hora de la noche se han tomado la molestia de buscar una solución a todo esto.
Hasta ahora no he tenido buenos resultados; espero encontrar la respuesta en el corto plazo.

Agradecido nuevamente les deseo buenas noches.

Por supuesto que voy a considerar todas las respuestas y veo si haciendo un merengue entre todas puedo llegar a algo. Por favor, si tienen nuevas sugerencias no duden en ponerlas.

[Neftali [Germán.Estévez]]

Yo tengo esto funcionando en Delphi 6 desde hace mucho tiempo:

Código Delphi [-]
procedure DefaultSort(AttrIndex:array of integer;
                              AttrSortType: array of TSQLSortType);
....

Y la llamada...

Self.DefaultSort([1],[sstASC]);

[[coso]]

Hola, es normal q te salte error puesto q no le estas pasando un array de TDatos, sino un array de enteros. Puedes hacer varias cosas (para mantener el formato de pares de numeros...).

1.- hacer overload de 'proceso' : mientras que en una acepte array de tdatos, en la otra acepte array de [0..1] real (pares de numeros), llamando, luego de transformar los parametros, una a la otra, segun te convenga.
2.- Crear una clase cuyo constructor acepte pares de numeros, tendras que llamar a proceso entonces de la manera proceso([TDatos(0,1),TDatos(20,3)]) etc...
3.- Crear una funcion que, a partir de pares de numeros, te devuelva un array de tdatos. Algo parecido a Rect()... te quedaria como proceso(A_Datos([(0,1),(20,80),(30,20)]));
4.- Crear una clase TDatos con un array [0..1] of double, y dentro ella crear dos propiedades, temperatura y humedad, con su read/write, los cuales devolverian v[0] i v[1];
5.- Que proceso solo acepte array de array[0..1] of double, y que TDatos sea eso (type TDatos : array [0..1] of double), sabiendo tu ya q el primer valor es temperatura y el segundo humedad.

... y alguna q otra manera mas hay, seguro...

Para mi la mejor de todas seria la primera (la menos laboriosa y visualmente mas entendible, una vez escrita) si bien segun para q lo quieras (si tiene q desarrollarse bastante) quizas te salga mas a cuenta crear una clase correctamente (la opcion 4). Creo q en c del antiguo si se podia tratar una struct (record) asi tal como escribes, colocandose cada valor en su sitio. Me parece q la OOP anulo esto , pues son necesarios los typecast para casi todo. Igualmente, no estoy seguro, investigo un poco. Saludos y a ver si te sirve lo escrito.

[[coso]]

Código Delphi [-]
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

type
 TPar = record
 temperatura : double;
 humedad : double;
end;

procedure Proceso( T: array of TPar);

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }

  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

function Par(t, h : double) : TPar;
begin
        result.temperatura := t;
        result.humedad := h;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
        t : TPar;
begin
        t.temperatura := 50;
        t.humedad := 0;
        proceso([Par(20,78), Par(30,40),t]);
end;

procedure Proceso( T: array of TPar);
var
        i : integer;
begin
        for i := 0 to length(T) - 1 do
        begin
                SHowmessage(FormatFloat('0.00',T[i].temperatura) + ' ' + FormatFloat('0.00',T[i].humedad));
        end;
end;

otra...esta es analoga a como trabaja TPoint.

[santiago14]

Empezado por coso

Código Delphi [-]
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

type
 TPar = record
 temperatura : double;
 humedad : double;
end;

procedure Proceso( T: array of TPar);

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }

  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

function Par(t, h : double) : TPar;
begin
        result.temperatura := t;
        result.humedad := h;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
        t : TPar;
begin
        t.temperatura := 50;
        t.humedad := 0;
        proceso([Par(20,78), Par(30,40),t]);
end;

procedure Proceso( T: array of TPar);
var
        i : integer;
begin
        for i := 0 to length(T) - 1 do
        begin
                SHowmessage(FormatFloat('0.00',T[i].temperatura) + ' ' + FormatFloat('0.00',T[i].humedad));
        end;
end;

otra...esta es analoga a como trabaja TPoint.

Gracias Coso, la verdad que está bueno el proceso que mandaste.