MemData (DevExpress) - Felder anlegen

[TPeterT]

Hallo!
Ich möchte zur Laufzeit in einem MemData Felder anlegen (siehe Code).
Leider bekomme ich beim Zugriff auf dieses neue Feld immer einen Fehler.
Was mache ich falsch?


newMemCol : TStringField;
...

for col := 1 to y do
begin
newMemCol := TStringField.Create(dxmemdataexcel);
newMemCol.FieldName := 'fnCol' + IntToStr (col);
newMemCol.Name := 'nameCol' + IntToStr (col);
dxMemDataExcel.Fields.Add(newMemCol);
...

dxMemDataExcel.Insert;
dxMemDataExcel.FieldByName('fnCol' + IntToStr(col)).Value := 'teststring';
...

Danke und liebe Grüsse
Peter

[alzaimar]

Delphi-Quellcode:

Procedure AddIntegerField (aFieldName : String; aDS : TdxMemData);
Var
  f : TIntegerField;

Begin
  f := TIntegerField.Create (aDataset);
  f.FieldName := sName;
  f.Calculated := False;
  f.FieldKind := fkData;
  f.DataSet := aDataSet;
End;

Begin
  AddIntegerField('Feld1', MyDataSet);
  ...
  MyDataSet.fieldDefs.update;
End;

Hat mich auch Blut und Schweiss gekostet...

[TPeterT]

Hallo!
Vielen Dank für den Code.
Werde ich sofort probieren!

Liebe Grüsse
Peter