Zeos variable zuweißen

[Sharky]

Hai G G,

mit diesem Codebeispiel würden alle IDs und User in ein Memo eingetragen werden.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  ZQuery1.Close;
  ZQuery1.SQL.Text := 'SELECT * FROM tabelle';
  ZQuery1.Open
  ZQuery1.First  // Gehe zum ersten Datensatz
  While not (ZQuery1.eof) do  // Solange es noch Datensätze gibt mach weiter mit der Schleife
  begin
    Memo1.Lines.Add (
      ZQuery1.FieldByName ('id').AsString
      + ' -> '
      + ZQuery1.FieldByName ('user').AsString
      );
    ZQuery1.Next // Gehe zum nächsten Datensatz
  end;
end;

So wird es wohl etwas heller im dunklen Tunnel der Datenbank anbindung