Lista de objetos

[PabloZZZ]

Empezado por Delphius

En fin, creo que mi ejemplo demuestra parte de la reinvencion de la rueda.
PabloZZZ debes hacer un mayor análisis.

PabloZZZ no es que haya sido malo, es que con tan escasos datos que aportas, mucho no podemos ayudar.

Saludos,

Si.. lo que pasa es que mi análisis lo hago en base a los pocos componentes que conozco. Intenté utilizar las DevExpress que dicen que son buenisimas, pero a mi se me complica... pero es otro tema. Por favor, tené en cuenta que trabajo solo y mi unica ayuda son las listas de correo y los foros!

Es mi primer post, voy a tratar de mejorar.

Saludos.

[walito]

Si sabes usar record entonces no debe ser dificil.

Ejemplo de un record:

Código Delphi [-]
  TPersona = record
    edad: integer;
    nombre: string;            
    appelido: string;            
    direccion: string;
    telefono: string;
  end;

Ahora necesitarias un SETer y un GETer como para cargar y obtener datos.

Ejemplo de una clase.

Código Delphi [-]
unit MiClase;

interface

uses
  SysUtils, Windows, Messages, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls;

type  
  TPersona = record
    edad: integer;
    nombre: string;           
    apellido: string;           
    direccion: string;
    telefono: string;
  end;  
  
  TListaPersonas = array of TPersona;  
  
type
  TMiClase = class(TObject)
  private
    contPersonas: Integer;
    listaPersonas: TListaPersonas;
  public
    constructor Create;
    destructor Destroy; override;
    procedure AddPersona(const edad: Integer; const nombre, apellido, direccion, telefono: string);
    function GetPersona(const position: Integer);
    procedure DelPersona(const position: Integer);
  end;


implementation

{
******************************** TMiClase *********************************
}
constructor TMiClase.Create;
begin
    inherited Create;
end;

destructor TMiClase.Destroy;
begin
    inherited Destroy;
end;

procedure TMiClase.AddPersona(const edad: Integer; const nombre, apellido, direccion, telefono: string);
begin
    Inc(contPersonas);

    SetLength(listaPersonas, contPersonas);

    listaPersonas[High(listaPersonas)].edad := edad;
    listaPersonas[High(listaPersonas)].nombre := nombre;
    listaPersonas[High(listaPersonas)].apellido := apellido;
    listaPersonas[High(listaPersonas)].direccion := direccion;
    listaPersonas[High(listaPersonas)].telefono := telefono;
end;

function TMiClase.GetPersona(const position: Integer): TPersona;
begin
  if (position >= Low(listaPersonas)) and (position <= High(listaPersonas)) then
  begin
      Result := listaPersonas[position];
  end;
end;

procedure TMiClase.DelPersona(const position: Integer);
begin

end;

end.

Te dejo para vos el DelPersona.

Espero te sirba mi clase improvisada y pido perdon por algun errror.

Saludos

[[Lepe]]

No entiendo por qué debe ser un "record". ¿Por qué no una clase? Si tienes Firebird, es mejor clases que registros.

TListaPersonas es precisamente un TObjectList. Siempre se ha usado los arrays dinámicos, pero ya que tenemos la clase mencionada, hagamos uso de ella.

Yo al menos usaría la clase TPersona así:

Código Delphi [-]
type TPersona = Class(TObject)

public
  edad: Integer;
  Nombre :string; 
  apellido, direccion, telefono: string;
end;

var Lista :TObjectList;
  p:TPersona;
begin 
   lista := TObjectlist.create(True);
   p := Tpersona.create;
   for i:= 0 to 20 do
   begin
      p:= Tpersona.create;
      p.edad := i;
      lista.Add(p); 
   end;
end;

En el foro hay mucho sobre Tobjectlist.

Saludos

[PabloZZZ]

Empezado por walito

Si sabes usar record entonces no debe ser dificil.

Ejemplo de un record:
Te dejo para vos el DelPersona.

Espero te sirba mi clase improvisada y pido perdon por algun errror.

Saludos

Bueniiiiiiiiiiisimo! mil gracias! ya está todo funcionando de maravilla.
Gracias a todos!

Z

[PabloZZZ]

Acá encontré algo que resumen y complementa todo lo discutido.
Saludos
Z