kleines Wetter-Programm

[markus5766h]

@R2009

die daten vom Wetterdienst hole ich mir per UrlDownloadToFile.
danach entferne ich mittels folgender Funktion die UTF-8 Bytes
und habe danach einen Text, den ich dann nach den entspr. Werten durchsuchen kann.

Delphi-Quellcode:

function StripHTMLTags(const strHTML: string): string;
var
  P: PChar;
  InTag: Boolean;
  i, intResultLength: Integer;
begin
  P := PChar(strHTML);
  Result := '';

  InTag := False;
  repeat
    case P^ of
      '<': InTag := True;
      '>': InTag := False;
      #13, #10: ; {do nothing}
      else
        if not InTag then
        begin
          if (P^ in [#9, #32]) and ((P+1)^ in [#10, #13, #32, #9, '<']) then
          else
            Result := Result + P^;
        end; // end else begin
    end; // end case of
    Inc(P);
  until (P^ = #0); // until..repeat

  Result := StringReplace(Result, '&quot;', '"',  [rfReplaceAll]);
  Result := StringReplace(Result, '&apos;', '''', [rfReplaceAll]);
  Result := StringReplace(Result, '>',   '>',  [rfReplaceAll]);
  Result := StringReplace(Result, '<',   '<',  [rfReplaceAll]);
  Result := StringReplace(Result, '&amp;',  '&',  [rfReplaceAll]);
  Result := StringReplace(Result, 'ä',     'ä', [rfReplaceAll]);
  Result := StringReplace(Result, 'ü',     'ü',  [rfReplaceAll]);
  Result := StringReplace(Result, 'ß',     'ß',  [rfReplaceAll]);
  Result := StringReplace(Result, 'ö',     'ö',  [rfReplaceAll]);
  Result := StringReplace(Result, 'Ö',     'Ö',  [rfReplaceAll]); // die Liste lässt sich nach Bedarf anpassen
end;

die zu suchenden Strings habe ich in arrays gespeichert