[david duarte]

Hola!!!

Tengo un problema, necesito crear un arreglo bidimensional para guardar dos datos en ellos, estos datos son, un dato string y el otro entero, entonces lo que hago es lo siguiente:


Primero declaro mi clase Tposicion

Código Delphi [-]
type Tposicion = class(TObject)
Public
  analisis : String;
  izq : Integer;
end;

postriormente hago mi procedimiento de crear arreglo

Código Delphi [-]
procedure CreaArreglo();
begin
  Arreglo := TObjectList.Create(True);
end;

Despues mi procedimiento de CreaPosicion

Código Delphi [-]
procedure CreaPosicion(an : string; posizq : Integer );
var
  a: Tposicion;
Begin
  a := TPosicion.Create;
  a.analisis := an;
  a.izq := posizq;
  Arreglo.Add(a); --> se supone que aqui lo añade al arreglo
end;

y aqui lo mando llamar

Código Delphi [-]
CreaPosicion(modulotablas.resul_textil.FieldDefs.Items[cont].DisplayName,izq);

pero en el Arreglo (TObjectiList), no guarda nada, cuando recorro el arreglo, me aparece, pura basura, alguien tiene alguna sugerencia???

Ya lei algunos hilos que estan por este foro y a partir de ahi construi estos, pero no se que tiene mal

Gracias

Cómo te sientes hoy??