String analysieren und Textteil ersetzen

[p80286]

Wie wäre es mit so etwas

Delphi-Quellcode:

type
  tRepRec = record
              srcString:ansistring;
              destString:ansistring;
  end;

var
  RepArray: Array of tRepRec;

....
  setlength(repArray,1);
  RepArray[0].srcString='#benutzer#';
  RepArray[0].destString:=mainform.benutzername;
.....

for i:=0 to length(repArray)-1 do
  s:=StringReplace(s, RepArray[i].srcString,RepArray[i].destString, [rfReplaceAll,rfIgnoreCase]);

(nur so runter getippt!)

Das ist meiner Meinung nach einfacher zu warten. Vor allem wenn Du "oben" irgendwo Deine Definitionen einträgst und "unten" irgendwo die eigentliche Verarbeitung erfolgt. Oder alles gleich in einen procedure kopf packen.

Gruß
K-H