Moinsen!
Ich stehe hier vor einem problem zu dem ich keine einzige lösung gefunden habe. Ich möchte einen bestimmtes wort in einer memo ersetzen ohne die darauf folgenden chars zu verschieben!
Beispiel:
(in der memo steht)
"Guten tag </name/> und so weiter"
- </name/> wird durch den text der in einer edit steht ersetzt! wenn ich jetzt z.b. in der edit "Klaus Mustermann" stehen habe soll der </name/> dadurch ersetzt werden und das "und so weiter" überschrieben werden und NICHT vorgerückt werden. quasi wie der einfügemodus.
im netz und usenet habe ich eine routine gefunden und im onchange von der memo angewendet, allerdings funtioniert dieser code nur wenn man direkt in die memo schreibt und nicht wenn man per replaceall bestimmte tags ersetzen lässt!
Delphi-Quellcode:
procedure TForm1.Memo1Change(Sender: TObject);
begin
if (Sender is TCustomEdit) and Odd(GetKeyState(VK_INSERT)) then
with TCustomEdit(Sender) do
if SelLength = 0 then
begin
SelLength := 1;
if (SelLength > 0) and (SelText[1] = #13) then
SelLength := 2;
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Memo1.Text := StringReplace(Memo1.Text ,'</name/>',edit1.Text,[rfReplaceAll]);
end;
Ich bin für jede hilfe dankbar!
M.f.G
Honk!
[edit=Sakura]Text formatiert[/edit]
[edit=Daniel B]Delphi-Tags gesetzt. MfG Daniel B.[/edit]