TWebbrowser Werte in Lable.Caption darstellen

[p80286]

Zitat von 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.

Das war doch eigentlich deutlich!?

oder nicht??

Gruß
K-H