TWebbrowser Werte in Lable.Caption darstellen

[user0815]

Ich würde das so machen...

Delphi-Quellcode:

var
  i : Integer;
  Code : String;
begin
  Code := '';

  for i := Memo1.Lines.Count - 1 downto 0 do
  if AnsiPos('ErrorCode', Memo1.Lines.Strings[i]) > 0 then
  begin
    Code := Memo1.Lines.Strings[i + 1];
    Code := StringReplace(Code, '/', '', [rfReplaceAll]);
    Code := StringReplace(Code, '<value>', '', [rfReplaceAll]);
    Code := StringReplace(Code, '<string>', '', [rfReplaceAll]);
    break;
  end;

  ShowMessage(Code);