Delphi-Quellcode:
procedure TfrmTestauswahl.cmdbestaetigenClick(Sender: TObject);
begin
cbotestnummer.Items.Clear;
with myQuery do begin
myQuery.SQL.Text := 'SELECT Testnummer FROM friktionstest;
myQuery.Open;
while not Eof do begin
cbotestnummer.Items.Add(myQuery.Fields[0].AsString);
Next;
end;
myQuery.Close;
end;
end.
ich hab das jetzt mal so probiert aber er hat immer einen Fehler beim
with myQuery do begin
und das versteh ich nicht bzw ich weiß ned warum
