Hier der Code-Ausschnitt:
Delphi-Quellcode:
try
dummy:=StrToInt(edt_SearchEdit.Text); //prüfen ob artikelnummer eingegeben wurde, sonst except ausführen
Q_sArtikel.close;
Q_sArtikel.SQL.Text:='select * from Artikel where ArtNr like '+ QuotedStr(edt_SearchEdit.Text+'%')
Q_sArtikel.open;
except on E: EConvertError do ShowMessage('Keine gültige Artikelnummer';
end;
LG Harry