Hallo Lombi,
im Hinblick auf deinen baldigen Umstieg auf ein RDBMS solltest du dir vielleicht schon einmal angewöhnen mit einem leeren result set zu arbeiten, wenn du sowieso nur Insert() oder Append() benutzen möchtest:
Delphi-Quellcode:
procedure TFArtikelListe.BtnNeuClick(Sender: TObject);
var
Value: Double;
begin
FArtikel.Show;
with FArtikel.QueryArtikel
do
begin
SQL.Text := '
SELECT * FROM Artikel WHERE 1 = 0';
Open;
Append;
FieldByName('
EAN').AsString := EditEAN.Text;
// ...
Post;
end;
end;
Freundliche Grüße vom marabu