Leer informacion de un objeto creado

[ecfisa]

Hola edorantes.

Empezado por edorantes

No se que paso con las respuestas aneriores, a grandes rasgos...

Lo que sucede es que lamentablemente no podemos permanecer conectados a Club Delphi todo lo que nos gustaria...

Empezado por edorantes

lo que pasa es que desde mi clase no puedo usar nada visual lo que tengo que hacer es que una vez que guarde la informacion de los usuarios, despues la pueda visualizar en una tabla desde mi form pricipal

Te soy sincero, no entiendo la lógica de tu código. Pero te pongo una de las formas en que lo haría, espero que te sirva para sacar alguna idea.

Por lo que comentas arriba ("no puedo usar nada visual"), supongo que tenes que realizarlo en modo consola:

Código Delphi [-]
program Project2; {$APPTYPE CONSOLE}

uses SysUtils;

type
  TUsuarios = class(TObject)
  private
    Fid                : Integer;
    FSupCder, FsupSder : Currency;
    FNombre, FCultivo  : string;
    FVUsuarios         : array of TUsuarios;
  public
    property Nombre: string read FNombre write FNombre;
    property Cultivo: string read FCultivo write FCultivo;
    property SupCDer: Currency read FSupCDer write FSupCDer;
    property SupSDer: Currency read FSupSDer write FSupSDer;
    constructor Create;
    procedure Add(const aID: Integer; const aNombre,aCultivo : string;
      const aSupConDer, aSupSinDer: Currency);
    function GetUser(const id: Integer): TUsuarios;
    destructor Destroy; override;
  end;

// Crear
constructor TUsuarios.Create;
begin
  inherited;
  FVusuarios := nil
end;

// Añadir usuarios
procedure TUsuarios.Add(const aID: Integer; const aNombre,aCultivo : string;
  const aSupConDer, aSupSinDer: Currency);
begin
  SetLength(FVUsuarios, Length(FVUsuarios)+1);
  FVUsuarios[High(FVUsuarios)] := TUsuarios.Create;
  with FVUsuarios[High(FVUsuarios)] do
  begin
    Fid     := aID;
    FNombre := aNombre;
    FCultivo:= aCultivo;
    FSupCder:= aSupConDer;
    FsupSder:= aSupSinDer;
  end;
end;

// Obtener usuario a partir del ID
function TUsuarios.GetUser(const aID: Integer): TUsuarios;
var
  i: Integer;
begin
  Result := nil;
  for i:= High(FVUsuarios) downto Low(FVUsuarios) do
    if aID = FVUsuarios[i].Fid then
     Result := FVUsuarios[i]
end;

// Liberar memoria
destructor TUsuarios.Destroy;
var
  i: Integer;
begin
  for i := High(FVUsuarios) downto Low(FVUsuarios) do
    FVUsuarios[i].Free;
  FVUsuarios := nil;
  inherited
end;

(* Ejemplo del uso *)
var
  U,R: TUsuarios;
begin
  U := TUsuarios.Create;
  try
    U.Add(1,'Juan','trigo',2,3);
    U.Add(2,'Andrea','soja',5.25,3.12);
    U.Add(3,'Maria','cebada',12.13,1.83);
    R := U.GetUser(2);
    if Assigned(R) then
    begin
      Writeln('Nombre : ',R.Nombre);
      Writeln('Cultivo: ',R.Cultivo);
      Writeln('SupCDer:',R.SupCDer:8:2);
      Writeln('SupSDer:',R.SupSDer:8:2);
    end;
  finally
    U.Free;
  end;
  readln;
end.

Saludos.