Hier mal ein ganz einfaches Beispiel:
Delphi-Quellcode:
procedure TForm1.ButtonClick(Sender: TObject);
begin
Query1.Close;
Query1.SQL.Text := 'SELECT * FROM tabelle';
Query1.Open; // Tabelle mit Abfrage öffnen
Query1.First; // Zum ersten Datensatz springen
Label1.Caption := Query1.FieldByName ('ipadresse').AsString; // Feld "ipAdresse" auslesen
Query1.Next; // Zum nächsten Datensatz springen
Label2.Caption := Query1.FieldByName ('ipadresse').AsString; // Feld "ipAdresse" auslesen
Query1.Next; // Zum nächsten Datensatz springen
Label3.Caption := Query1.FieldByName ('ipadresse').AsString; // Feld "ipAdresse" auslesen
Query2.Close;
end;
Stephan B.
"Lasst den Gänsen ihre Füßchen"