TStringList Add aus SQLite

[haentschman]

Moin...

Zitat:

jetzt macht es Sinn!

noch nicht...

Frage wo gibst du die Liste frei?
2 Möglichkeiten:
1. die function mit Createxxx: List beginnen, damit man weiß, daß die Liste neu erzeugt wurde
2. die Liste in der aufrufenden procedure erzeugen und übergeben.

besser:

Delphi-Quellcode:

//Variante 2:
procedure Blubb(List: TStrings)
begin
// (some SQL query)
  ZQuery.Open;
  while not ZQuery.EoF do 
  begin
    List.Add(ZQuery.FindByName('TextField').AsString);
    ZQuery.Next;
  end;
end;