|
Registriert seit: 31. Jan 2008
Ort: im schönen Salzburger Land
460 Beiträge
Delphi XE4 Professional
|
AW: String analysieren und Textteil ersetzen
6. Jun 2016, 16:23
Danke ...
ich habs jetzt mit "vielen" StringReplace gemacht .. funktioniert ...
s:=StringReplace(s, '#benutzer#', mainform.benutzername, [rfReplaceAll, rfIgnoreCase]);
s:=StringReplace(s, '#user-id#', mainform.benutzernummer, [rfReplaceAll, rfIgnoreCase]);
s:=StringReplace(s, '#usernummer#', mainform.benutzernummer, [rfReplaceAll, rfIgnoreCase]);
s:=StringReplace(s, '#userid#', mainform.benutzernummer, [rfReplaceAll, rfIgnoreCase]);
s:=StringReplace(s, '#user#', mainform.benutzername, [rfReplaceAll, rfIgnoreCase]);
s:=StringReplace(s, '#benutzergruppe#', mainform.benutzergruppe, [rfReplaceAll, rfIgnoreCase]);
s:=StringReplace(s, '#server#', servermodule.ServerRoot, [rfReplaceAll, rfIgnoreCase]);
s:=StringReplace(s, '#zeit#', timetostr(now), [rfReplaceAll, rfIgnoreCase]);
s:=StringReplace(s, '#datum#', datetostr(now), [rfReplaceAll, rfIgnoreCase]);
....
Erich Wanker - for life:=1971 to lebensende do begin ..
O
/H\
/ \
|