Delphi-Quellcode:
procedure TForm2.def_feld();
var
blub:TStringfield;
begin
blub:=TStringfield.create(datamodule3.ClientDataSet1);
with blub do
begin
Size:=11;
FieldName:='KENNUNG';
visible:=true;
readonly:=false;
displaylabel:='KENNUNG';
autogeneratevalue:=arNone;
displaywidth:=11;
fieldkind:=fkData;
fixedchar:=false;
index:=0;
lookupcache:=false;
name:='ClientDataSet1KENNUNG';
providerflags:=[pfinupdate,pfinwhere];
required:=false;
tag:=0;
transliterate:=true;
alignment:=taleftjustify;
end;
datamodule3.InsertComponent(blub);
end;
so hatte ich es letzte Woche auch versucht, hat nicht geklappt
habe jetzt mal noch
DataSet:=ClientDataSet1;
hinzugefügt und siehe da, es geht!! ES GEHT!!!
(auch ohne insertcomponent ^^)
Vielen Dank nahpets!!!