Stringende wieder hinzufügen

[grenzgaenger]

probier das mal:

Delphi-Quellcode:

program Project1;
{$APPTYPE CONSOLE}

uses
  SysUtils;

function Replace(const aStr: string; 
                 const aSearchStr: string; 
                 const aReplaceChar: char): string;
var
 l,x: integer;      
 c: PChar;           
begin
 setlength(result, length(aStr));
 c := @aStr[1];
 x := 0;
 for l := 1 to  length(aStr) do
 begin
  inc(x); 
  if pos(aSearchStr, c) = 1 then
  begin
   result[x] := aReplaceChar;
   inc(c, length(aSearchStr));
  end
  else
  begin
   result[x] := c^;
   inc(c);
  end;
 end;
 setlength(result, x);
end;
  
begin
 writeln(Replace('a&%68&%a4', '&%', #0));
 readln;
end.

in der performance kann man da sicher noch was machen... sollte aber funzzen...

ansonsten, denk an omata das ganze, kann nicht bei einem binärformat vernünftig funktionieren...

hierzu müsstest du schon beim lesen, z.b. in hexcode umwandeln, in hexcode editieren und beim speichern den hex wieder in die binärdarstellung bringen...

aber das wirst schon selbst noch merken ...