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

[Haris2201]

Danke!
Genau das habe ich gesucht!

mfG

[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;

[Haris2201]

Bei mir werden die variablen im Text nicht geändert...

Zitat:

var
s : string;
const conf='...&test&..'
+'...&lol&..'
.
.
.
s := conf;
S := StringReplace(S, '$test$', Edit2.Text, []);
S := StringReplace(S, '$lol$', Edit1.Text, []);

Zum Überprüfen habe ich einen Button namens Debug erstellt.
Der geht so
begin
showmessage(const);
end;

Jedoch kommt da nur mein Text mit ...&lol... und so, ohne die eingaben aus edit1.text.
Wieso ist das so??

[DeddyH]

&test& ist ja auch etwas anderes als $test$.

[Haris2201]

Sorry, ich habe beides mit $$, trotzdem selber Fehler.

[stahli]

...dann muss es funktionieren.
Hast Du Unterschiede in Groß-/Kleinschreibung?

[himitsu]

Wenn der letze Parameter [] ist, dann mußt du auch noch auf die Groß- und Kleinschreibung achten.

Delphi-Quellcode:

S := StringReplace(...

showmessage(const);

S ist auch nicht const , wobei ich mal vermute, daß du hier showmessage(conf); meinst, aber das kommt auf's Selbe raus.

[Haris2201]

Ist das schlimm wenn ich ein Labelededit1 benutze?

Also, ich schreib mal bisschen ab

Code:

var
s : string;
const conf='MEIN TEXT STEHT HIER MIT EINER $lol$.'
          +'BLBLBLBLBLBLB';
implementation
.
.
.
procedure TForm1.Button1Click(Sender: TObject);
begin
s := conf;
s:=StringReplace(S, '$lol$', labeledEdit1.Text, []);
showmessage(conf);
end;

[stahli]

Du änderst etwas in S, lässt Dir aber CONF anzeigen...

[Haris2201]

Jo, das war's.

Danke!