Hallo,
so kann das auch nicht gehen:
Eine
Query hat kein Edit, Append und Insert. Datensätze werden über "INSERT", das in einem
SQL-Statemant übergeben werden muss, eingefügt.
Zurück zu Deinem Beispiel mit TTable:
Code:
procedure TForm4.Button2Click(Sender: TObject);
begin
{ Table1.edit; // Tabelle wird in den EditModus versetzt - hier nicht notwendig, da neuer Satz eingefügt wird }
Table1.Append; // neuer Datensatz angefügen
{ Table1.Insert; // An akt. Pos nochmals einen neuen Datensatz einfügen - überflüssig }
Table1Datum.Value := DateTimePicker1.Date;
Table1ArtikelNr.Value := Query1.FieldByName('ArtikelNr').AsInteger;
Table1Produktname.Value := Query1.FieldByName('Produktname').AsString;
Table1Produkttyp.Value := Query1.FieldByName('Produkttyp').AsString;
Table1KundenNr.Value := StrToInt(Label7.Caption);
Table1.Post; // Alles klar, Datensatz wird geschrieben
{ Table1.Next; // Wohin? bin doch am Ende - also überflüssig }
end;