100 x Fieldvalue durch Fieldbyname erstetzen?

[Karstadt]

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.