Hola edorantes.
Cita:
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...
Cita:
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;
constructor TUsuarios.Create;
begin
inherited;
FVusuarios := nil
end;
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;
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;
destructor TUsuarios.Destroy;
var
i: Integer;
begin
for i := High(FVUsuarios) downto Low(FVUsuarios) do
FVUsuarios[i].Free;
FVUsuarios := nil;
inherited
end;
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.