AutoInc primary key Feld wird immer auf 0 gesetzt

[DaCoda]

Also wenn dein Feld "ID" ein AutoIncrement - Feld ist und ich das nicht falsch verstanden habe, dann sollte das so reichen:

Code:

procedure TMyTexts.SaveAddedText(Item: TMyText);
begin
  FInsertQuery.Open('SELECT TEXT FROM MY_TEXTS');
  FInsertQuery.Insert;
  FInsertQuery.FieldByName('TEXT').AsString := Item.Text;
  FInsertQuery.Post;
  FInsertQuery.Close;
end;