Delphi-Quellcode:
procedure ReplaceStr(Source : String; Original : String; Replace : String; var Dest : String);
var Posi : Integer;
begin
while pos(Original,Source) <> 0 do begin
if pos(Original,Source) > 0 then begin
Posi := pos(Original,Source);
delete(Source,pos(Original,Source),Length(Original));
insert(Replace,Source,posi);
end;
Dest := Source;
end;
end;
Kann sein das sowas Delphi Schon mitliefert aber habs auch mal selber gemacht.
ReplaceStr(String,'%SystemRoot%','C:\Windows',String);
Ausgegangen das C:\Windows das Systemverzeichniss ist, was aber normalerweise der Fall ist.
Ok ich muss zugeben meine procedure ist etwas umständlich und das wäre mit ner Funktion besser geregelt aber die hab ich vor langer Zeit geschrieben wo ich noch nicht sooo viel Ahnung hatte
