Dann muss ich aber ein Procedur Programmieren:
Delphi-Quellcode:
Procedure SchreibeDaten(Tabelle, Feld, Feldinhalt)
var i: integer
t: string;
begin
for i := 0 to (Tabelle.fieldcount -1) do begin
t := Tabelle.fields[i].fieldname;
If t:= Feld then
begin
Tabelle.fieldbyname(t).asVariant := Feldinhalt;
break;
end;
end;
So ungefähr sollte das aussehen. ist aber etwas aufwendig.