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:

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:

Zitat von choose

Hallo stoxx,

Zitat:

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 ...