[edorantes]

Este es el codigo de mi unidad

Código Delphi [-]
unit uUsuarios;

interface

uses classes, Types, SysUtils;

type

 //Aqui defino mis propios tipos de variables
 TIntArray = array[0..200] of shortint;
 TSingleArray = array[0..200] of currency;

  Tusuarios = class(TObject)
   Constructor Create;

  private
   idU,cuentaU,subcU  :  TIntArray;
   supCder, supSder :  TSingleArray;
   nombreU, cultivoU    :  TStrings;
   ap : shortint;  {Apuntador, lleva el numero de recibos en el cobro actual}
  public

    procedure inicializa();

    procedure add(id : Integer; nombre : String;
  supConDer : Currency ; supSinDer:Currency; cultivo:String) ;



  end;

implementation

constructor Tusuarios.create;
begin
  nombreU := Tstringlist.create;
  cultivoU := Tstringlist.create;


end;

procedure Tusuarios.inicializa;
begin
  ap := 0; //inicializamos ap que es el apuntador

end;

procedure Tusuarios.add (id : Integer; nombre : String;supConDer : Currency ; supSinDer:Currency; cultivo:String);]//Aqui guardo //los datos de el usuario
begin
    idU[ap] := id;
    nombreU.Add(nombre);
    supCder[ap] := supConDer;
    supSder[ap] := supSinDer;
    cultivoU.Add(cultivo);

end;

   procedure Tusuarios.get  (indice : Shortint);// Este seria el de mostrar los datos guardados anteriores el cual  no se como hacerlo
begin
    

end;

end.

Bueno en mi ojeto guardo la informacion de los usuarios pero no se como hacer el de mostrar