Hi,
ich habe folgendes Problem mit "Richedit".
ich habe in meinen Richedit meinen Text formatiert und ausgerichtet. Nun möchte ich die eingebauten Platzhalter (z.B. &&name) durch einen anderen Eintrag ersetzen. Ich verwende dazu folgenden Code:
Delphi-Quellcode:
var
n,m,k : integer;
S,S1: string;
Suchfeld: array[1..12] of string;
Ersetzenmit: array[1..12] of string;
begin
suchfeld[1] := '&&anrede';
suchfeld[2] := '&&vname';
suchfeld[3] := '&&strasse';
suchfeld[4] := '&&plz';
suchfeld[5] := '&&ort';
suchfeld[6] := '&&name';
suchfeld[7] := '&&datum';
Ersetzenmit[1] := dbedit3.Text;
Ersetzenmit[2] := dbedit1.Text + ' ' + dbedit2.text;
Ersetzenmit[3] := dbedit4.Text + ' ' + dbedit5.text;
Ersetzenmit[4] := dbedit6.Text;
Ersetzenmit[5] := dbedit7.Text;
Ersetzenmit[6] := dbedit1.Text;
Ersetzenmit[7] := formatdatetime('DD. mmmm.YYYY', now);
if OpenDialog1.Execute then
begin
F0002_anschreiben.QRRichText1.Lines.LoadFromFile(OpenDialog1.FileName);
end;
S := F0002_anschreiben.QRRichText1.Lines.Text;
for n :=1 to 7 Do
Begin
M:= 1;
K := length(suchfeld[n]);
while Pos(suchfeld[n], lowercase(S)) > 0 do
Begin
M:= M + 1;
i := Pos(suchfeld[n], lowercase(S));
if copy(lowercase(S),I,k) = suchfeld[n] then
Begin
Delete(S,I,k);
Insert(Ersetzenmit[n],S,I);
end;
if M = 500 then break;
end;
end;
F0002_anschreiben.QRRichText1.Lines.text := s;
F0002_anschreiben.QuickRep1.Preview;
Nach diesen Durchgang sind zwar die Einträge geändert worden ab die Formatierung ist weg.
Was mach ich falsch, wie wäre es richtig ?
Dank für Eure Unterstüzung
