Wieder einmal: Felder im WebBrowser ausfüllen

[ScharfeMietze]

Normalerweise solltest du keine Schleife brauchen.

Du nimmst dir einen Button zum Testen mit

Delphi-Quellcode:

  try
   for I := 0 to 20 do
    begin
     WebBrowser1.OleObject.document.forms.item(I).elements.item('DenrichtigenNamendesFeldes').value:=Trim(Edit1.Text);
     ShowMessage(IntToStr(I));
    end;
  except
  end; // try

Wenn eine Message aufgeht mit einer Zahl, nimmst du dir einen weiteren Button und trägst einfach,

Delphi-Quellcode:

procedure Tfrm1.btn1Click(Sender: TObject);
begin
WebBrowser1.OleObject.document.forms.item('DieZahlausderMessage').elements.item('DenrichtigenNamendesFeldes').value:=Trim(Edit1.Text);
end;

ein.