String in Exe suchen ?!? BSP funzt nicht

[stoxx]

Hallo,

ich kann doch eine Exe auch in einen normalen TextEditor laden.
Oder in einem Hex Editor erscheint der String ja auch
Wenn #13#10 in der exe ist, dann sollte das doch erstmal kein problem sein.
Warum funktioniert dieses Beispiel nicht ? Der String wird in der eigenen Exe nicht gefunden.
Wie funktioniert es dann ?
Danke !

Code:

procedure TForm1.Button1Click(Sender: TObject);
var
 a, pfad  : string;
 f : Textfile;
 st : ansistring;
begin
 a := 'Gc684mf';
 caption := a;

 pfad := paramstr(0);

 assignfile(f,pfad);
 reset(f);

 while not eof(f) do
 begin
   readln(f,st);
   if StrStrCount(st, a) <> 0 then  showmessage('gefunden');
   if AnsiStrPos(Pchar(st),Pchar(a)) <> nil then showmessage('gefunden');
   if pos(a,st) <> 0 then showmessage('gefunden');
 end;

closefile(f);


end;

[choose]

Hallo stoxx,

Zitat von stoxx:

Warum funktioniert dieses Beispiel nicht?

Weil die Implementierung von Eof (_EofText) bei Textdateien nicht auf die Länge der Datei sondern auf das Vorkommen des Steuerzeichens EndOfFile ($1A) testet. Sollte dieses Byte innerhalb des Stroms vorkommen, wird die Bearbeitung sofort abgebrochen, obgleich noch weitere Bytes in der Datei vorhanden sein könnten.

[stoxx]

Zitat von choose:

Hallo stoxx,

Zitat von stoxx:

Warum funktioniert dieses Beispiel nicht?

Weil die Implementierung von Eof (_EofText) bei Textdateien nicht auf die Länge der Datei sondern auf das Vorkommen des Steuerzeichens EndOfFile ($1A) testet. Sollte dieses Byte innerhalb des Stroms vorkommen, wird die Bearbeitung sofort abgebrochen, obgleich noch weitere Bytes in der Datei vorhanden sein könnten.

jep Danke !.. hab ich auch gerade gemerkt
Wollte gerade posten, dass es funktioniert.

mit if StrStrCount(st, a) <> 0 then showmessage('gefunden');
aus JCLStrings funktioniert es ...