Tabellenwerte in TStrings mittles TIBDataSet auslesen

[fapsons]

Hallo Leute,

bin leider totaler Delphi-Anfänger und brauche Hilfe...


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

ibdataset1.SelectSQL.Clear;
ibdataset1.SelectSQL.Add('select VORNAME from test');
dbvalues := ibdataset1.SelectSQL;
showmessage (dbvalues[0]);
ibdataset1.Active := True;
...


Wie müsste ich meinen eingefügten Code abändern, damit mir die Showmessage den Rückgabewert von meiner SQL-Anweisung liefert?
Wollte eine Tabelle mit allen Werten auslesen lassen und diese als Strings in die dbvalues schreiben.

Vielen Dank!


--fapsons--

[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;
...

[fapsons]

Super, vielen Dank.
Du hast mir sehr weitergeholfen...

Gruß

--fapsons--