Herzlich willkommen in der Delphi-PRAXiS.
Da es sich bei deinen Dateien um Binärdateien handelt, du aber trotzdem die Literale absuchen möchtest, solltest du eine tabellengestützte Code-Konvertierung verwenden um alle uninteressanten Zeichen zu neutralisieren:
Delphi-Quellcode:
type
TCodeTable = array [Byte] of Char;
var
ct: TCodeTable;
procedure Translate(var s: String; ct: TCodeTable);
var
i: Integer;
begin
for i := 1 to Length(s) do
s[i] := ct[Ord(s[i])];
end;
procedure InitTable(var ct: TCodeTable);
var
i: Integer;
begin
FillChar(ct, SizeOf(ct), ' ');
for i := 33 to 126 do
ct[i] := Chr(i);
end;
Mit inline assembler geht das noch effizienter.
Freundliche Grüße vom marabu