TWebbrowser Werte in Lable.Caption darstellen

[DeddyH]

Zitat:

Delphi-Quellcode:

for i :=  Memo1.Lines.Count - 1 downto 0 do
  if AnsiPos('ErrorCode', Memo1.Lines.Strings[i]) > 0 then
  begin
    Memo1.text := Memo1.Lines.Strings[i + 1];

Abgesehen davon, dass Du u.U. auf eine nicht existente Zeile zugreifst, ersetzt Du hier den ganzen Text des Memos mit der einen Zeile.