Hallo,
und warum funktioniert das dann?
Delphi-Quellcode:
procedure TForm1.Button3Click(Sender: TObject);
Var
ADODataSet1Spalte4 : TStringField;
begin
ADODataSet1Spalte4 := TStringField.Create(ADODataSet1);
ADODataSet1Spalte4.FieldName := 'Spalte4';
ADODataSet1Spalte4.Size := 10;
ADODataSet1Spalte4.DataSet := ADODataSet1;
ADODataSet1.Open;
ADODataSet1.Edit;
ADODataSet1Spalte1.Value := '1111';
ADODataSet1Spalte2.Value := '2222';
ADODataSet1Spalte3.Value := '3333';
ADODataSet1Spalte4.Value := '4444';
ADODataSet1.Post;
ADODataSet1.Close;
ADODataSet1Spalte4.Free;
end;
Die ersten drei Spalten sind aus dem Beispiel von oben, die vierte wird hier zur Laufzeit dazugedaddelt.