Este es el codigo de mi unidad
Código Delphi
[-]
unit uUsuarios;
interface
uses classes, Types, SysUtils;
type
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;
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;
end;
procedure Tusuarios.add (id : Integer; nombre : String;supConDer : Currency ; supSinDer:Currency; cultivo:String);]begin
idU[ap] := id;
nombreU.Add(nombre);
supCder[ap] := supConDer;
supSder[ap] := supSinDer;
cultivoU.Add(cultivo);
end;
procedure Tusuarios.get (indice : Shortint);begin
end;
end.
Bueno en mi ojeto guardo la informacion de los usuarios pero no se como hacer el de mostrar