das bringt mich weiter, thx.
Aber in Problem bleibt: Es kommt zwar keine Fehlermeldung mehr, aber es passiert dafür auch grundsätzlich nicht. Mal die komplette Procedure:
Delphi-Quellcode:
procedure TMainForm.LoadTitleList(WTitel, WVerlag, WBestellnr, WPreis:string);
begin
ZQuery1.SQL.Text :='SELECT * FROM buecher ' + #10 +
'WHERE (Titel LIKE :WTitel)' +#10+
'AND (Verlag LIKE :WVerlag)' +#10+
'AND (Bestellnr LIKE :WBestellnr)' +#10+
'AND (Preis = :WPreis)';
ZQuery1.Open;
while not ZQuery1.Eof do
begin
TitelComboBox.Items.Add(ZQuery1.FieldByName('Titel').AsString);
VerlagComboBox.Items.Add(ZQuery1.FieldByName('Verlag').AsString);
BestellnrComboBox.Items.Add(ZQuery1.FieldByName('Bestellnr').AsString);
PreisComboBox.Items.Add(ZQuery1.FieldByName('Preis').AsString);
ZQuery1.Next;
end;
end;
Ich rufe die Procedure dann noch mit
LoadTitleList('%','%','%','%');
auf.
Letzter Tipp: Drogen. Machen zwar nicht glücklich, geben einem aber wenigstens das Gefühl glücklich zu sein.
Have a lot of fun!