TWebBrowser

[The Madcat]

Darüber lese ich die beiden werte aus

Delphi-Quellcode:

procedure TForm1.LocateValue;
var
  c1, c2, c3  : integer;
begin
  for c1 := 0 to memo2.Lines.Count - 1 do
  begin
    if copy(memo2.Lines.Strings[c1], 0, 14) = '...' then
    begin
      for c2 := c1 to memo2.Lines.Count do
      begin
        if copy(memo2.Lines.Strings[c2], 0, 24) = '...' then
        begin
          c3 := 68;
          if copy(memo2.Lines.Strings[c2], 63, 6) = '...' then
          begin
            c3 := 69;
            while (memo2.Lines.Strings[c2][c3] <> '=') or
              (c3 = length(memo2.Lines.Strings[c2]) - 1) do
              Inc(c3);
            c3 := c3 + 1;
          end;
          while (memo2.Lines.Strings[c2][c3] <> '>') or
            (c3 = length(memo2.Lines.Strings[c2]) - 1) do
          begin
            wert1 := wert1 + memo2.Lines.Strings[c2][c3];
            Inc(c3);
          end;
        end;
      end;
    end;

    if copy(memo2.Lines.Strings[c1], 0, 14) = '...' then
    begin
      for c2 := c1 to memo2.Lines.Count do
      begin
        if copy(memo2.Lines.Strings[c2], 0, 28) = '...' then
        begin
          c3 := 95;
          while (memo2.Lines.Strings[c2][c3] <> '>') or
            (c3 = length(memo2.Lines.Strings[c2]) - 1) do
          begin
            wert2 := wert2 + memo2.Lines.Strings[c2][c3];
            Inc(c3);
          end;
        end;
      end;
    end;
  end;
  showmessage(wert1+','+wert2);
end;

Ich gebe zu, es ist weder elegant noch einfach, aber es tut seinen dienst.