Exe Dateien als Text laden

[shmia]

Einfach folgende Procedure auf die Daten anwenden:

Delphi-Quellcode:

procedure ReplaceUnprintableChars(var s:string);
var
   i : Integer;
begin
   for i:=1 to Length(s) do
   begin
      case Ord(s[i]) of
         0..7, 9,11,12, 14..31:
            s[i] := '*';
      end;
   end;
end;

Man kann natürlich anstelle von TMemo eine HexView-Komponente verwenden...dann wird's profesionell.
Vielleicht mal bei Mael nachfragen/betteln