Ausfüllen von Lücken in einem langen Text?

[himitsu]

Delphi-Quellcode:

MeinText := 'Hallo $User$,' + sLineBreak
  + 'heute ist der $Datum$ und wir haben $Temp$° Aussentemperatur.' + sLineBreak
  + 'Gruß $Absender$';

S := MeinText;
S := StringReplace(S, '$User$', Edit1.Text, []);
...
S := StringReplace(S, '$Temp$', IntToStr(DieTemperatur), []);
...

Und um die Verwirrung komplett zu machen, werfe ich mal einen Befehl in die Runde:
Format

Delphi-Quellcode:

MeinText := 'Hallo %s,' + sLineBreak
  + 'heute ist der %s und wir haben %d° Aussentemperatur.' + sLineBreak
  + 'Gruß %s';

S := Format(MeinText, [Edit1.Text, DateToStr(Now), DieTemperatur, Edit2.Text]);

Oder wie wäre es mit einem TValueListEditor, statt der vielen Edits?

Delphi-Quellcode:

s := DerText;
for i := 0 to ValueListEditor1.RowCount - 1 do
  s := StringReplace(s, '$' + ValueListEditor1.Cells[0, i] + '$',
    ValueListEditor1.Cells[1, i], [rfReplaceAll, rfIgnoreCase]);
Memo1.Text := s;