Allgemeines Replace mit zwei Masken

[glkgereon]

nein, das ganze soll so gehen (Pseudocode):

Delphi-Quellcode:

function AdvReplace(Value,Mask1,Mask2: String):String;
var Vars: TVars;
begin
  Vars:=StoreVars(Value,Mask1);
  Result:=InsertVars(Vars,Mask2);
end;

also bei dem Beispiel
String: 'DP ist toll'
Maske1: '%Forum% ist %Bewertung%'
Maske2: 'Der User findet %Forum% %Bewertung%'

wäre dann

Vars:
%Forum% = DP
%Bewertung% = toll

und beim einsetzen wäre dann wieder %Forum% = DP und %Bewertung% = toll und der String 'Der User findet DP toll'

also die Maske1 soll auf den String angewendet werden, und diese Variablen rausgeholt werden, und in die zweite Maske eingesetzt werden.