.html Datei zeilenweise lesen

[af99]

Hallo Zusammen,

ich habe mal wieder ein Problem mit Strings bzw. Text. Ich möchte eine .html Datei zeilenweise lesen und nach bestimmten Texten suchen. Die Datei ist mal wieder irgendwie codiert und der Text wird nicht erkannt.

Delphi-Quellcode:

var
  errortext: string;

AssignFile(rein, datei);
reset(rein);
errortext := 'test1';
repeat
   readln(rein, s);
   //showmessage(s);
   if ansipos('<TR class=', s) > 0 then
    repeat
       readln(rein, s);
       readln(rein, s);
       if pos('Missed', s) > 0 then
         errortext := 'test2';
       if pos('Failed', s) > 0 then
         errortext := 'test3';
       readln(rein, s);
       readln(rein, s);
       readln(rein, s);
       readln(rein, s);
       readln(rein, s);
       readln(rein, s);
     until ansipos('</TD></TR>', s) > 0;
   until eof(rein);
   CloseFile(rein);
   ShowMessage(errortext);

in der Variabke errortext steht aber immer der Text "test1" also werden die if Pos... nicht gefunden. Auch wenn ich mir mit Showmessage den Inhalt von s anzeigen lasse wird das Fenster abhängig vom Text größer und kleiner. Der Text wird jedoch nicht angezeigt.

Hier dann noch die ersten Zeichen in der .html Date1

Code:

in HEX
FF FE 3C 00...

in DEZ
ÿþ<

Wie muss ich hier denn was umwandeln damit ich die Zeichen aus der Datei in den IF's vergleichen kann und wie um diese an der Console auszugeben.

Vielen Dank für Eure Hilfe.
Andreas