Tabellenwerte in TStrings mittles TIBDataSet auslesen

[mkinzler]

Delphi-Quellcode:

...
var dbvalues :TStrings;
begin
  dbvalues := TStringList.Create;

  ibdataset1.SelectSQL.Text := 'select VORNAME from test';
  ibdataset1.Open;
  while not ibdataset1.Eof do
  begin
    dbvalues.Add( ibdataset1.FieldByName('vorname').Value);
    ibdataset1.Next;
  end;
...