|
(Moderator)
Registriert seit: 6. Mai 2005
Ort: Berlin
4.956 Beiträge
Delphi 2007 Enterprise
|
Re: MemData (DevExpress) - Felder anlegen
10. Mär 2006, 11:07
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...
"Wenn ist das Nunstruck git und Slotermeyer? Ja! Beiherhund das Oder die Flipperwaldt gersput!"
(Monty Python "Joke Warefare")
|