Werte aus DB auslesen und im RAM zwischenspeichern

[DeddyH]

Ich meinte eine Klasse. Die kannst Du natürlich auch in eine eigene Unit packen. Einfaches Beispiel:

Delphi-Quellcode:

type
  TPerson = class
  private
    FNachname: string;
    FVorname: string;
    FGeburtsdatum: TDate;
  public
    property Nachname: string read FNachname write FNachname;
    property Vorname: string read FVorname write FVorname;
    property Geburtsdatum: TDate read FGeburtsdatum write FGeburtsdatum;
  end;
  
...

procedure TTestForm.GetPersonData;
var
  Person: TPerson;
begin
  Personenliste.Clear; //Das soll eine TObjectList sein 
  Query.SQL.Text := 'SELECT Name, Vorname, Geburtsdatum FROM Personen';
  Query.Open;
  while not Query.EOF do
    begin
      Person := TPerson.Create;
      Person.Nachname := Query.FieldByName('Name').Value;
      Person.Vorname := Query.FieldByName('Vorname').Value;
      Person.Geburtsdatum := Query.FieldByName('Geburtsdatum').Value;
      Personenliste.Add(Person);
      Query.Next;
    end;
  Query.Close;
end;