Leer informacion de un objeto creado

[ecfisa]

Hola.

A grandes rasgos, como para darte una idea, primero tendrías que incrementar el índice ap en el método add:

Código Delphi [-]
procedure Tusuarios.add(id: Integer; nombre: string; supConDer,
  supSinDer: Currency; cultivo: string);
begin
  idU[ap]:= id;
  nombreU.Add(nombre);
  supCder[ap] := supConDer;
  supSder[ap] := supSinDer;
  cultivoU.Add(cultivo);
  Inc(ap);  // <- Aquí
end;

Y un ejemplo para mostrar el contenido:

Código Delphi [-]
procedure Tusuarios.Show(Indice: Integer);
begin
  if (Indice < 0)or(Indice > ap-1) then
     raise Exception.Create('Indice fuera de rango');
  ShowMessage(Format('%d %s %f %f %s',
   [idU[Indice],nombreU[Indice],supCder[Indice],supSder[Indice],CultivoU[Indice]]))
end;

Saludos.

[edorantes]

Bueno amigo hay te va lo que tengo que hacer, 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
Ejemplo

Código Delphi [-]
var
 InformacionU : Tusuarios;

InformacionU.Create;
InformacionU.add(idU,nombreU,GsupCder,ed_superficie.Value,
         cbox_clave.Items.Text);// Aqui meto la cantidad que quiera de informacion accediendo a mi objeto NOTA enstoy en mi Form NO en mi clase


//Lo que quiero es que desde aqui pueda y sacar la informacion necesaria solo enviandole el numero de apuntador 
y agregarlo a una tabla o listview yo primero lo hacia mostrando directamente los datos en la tabla
asi

with ListView.Items.Add do
begin
   Caption:= '1';
   SubItems.Add( '35' );
   SubItems.Add( 'Eduardo' );
end;
 
pero me dijeron que no que me creara un objeto y mediante eso muestre elmine y agregue


//como viste he tratado de hacerlo el de agregar que es ADD me falta el de mostrar y eliminar si ves que tengo errores ayudame
//Espero me hayas entendido

[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.

[edorantes]

Bueno amigo hay te va lo que tengo que hacer,
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
Ejemplo

Código Delphi [-]
var
 InformacionU : Tusuarios;

InformacionU.Create;
InformacionU.add(idU,nombreU,GsupCder,ed_superficie.Value,
         cbox_clave.Items.Text);// Aqui meto la cantidad que quiera de informacion accediendo a mi objeto NOTA enstoy en mi Form NO en mi clase


//Lo que quiero es que desde aqui pueda y sacar la informacion necesaria solo enviandole el numero de apuntador y agregarlo a una tabla o listview 
yo primero lo hacia mostrando directamente los datos en la tabla pero me dijeron que no que me creara un objeto y mediante eso muestre elmine y agregue
//como viste he tratado de hacerlo el de agregar que es ADD me falta el de mostrar y eliminar si ves que tengo errores ayudame
//Espero me hayas entendido

[edorantes]

No se que paso con las respuestas aneriores, a grandes rasgos quisiera saber como se hace algo asi que ponga un boton y obtenga los datos pero no se como quedaria mi clase, aqui un ejemplo

Código Delphi [-]
procedure TFormMain.btn_cobroClick(Sender: TObject);
begin
 
//ASi es como quisiera que quedara pero aun no se como
 showmessage(Tusuarios.Show(0).getNombre);// Aqui si quisiera mostrar solo el nombre
O tambien
showmessage(IntToString(Tusuarios.Show(0).getCuenta)+Tusuarios.Show(0).getNombre);// Aqui si quisiera mostrar cuenta y Nombre
 
end;