Folgender maßen habe ich alles gehandhabt:
Delphi-Quellcode:
procedure TForm5.btn2Click(Sender: TObject);
begin
if CheckBox1.Checked then
begin
Form1.Memo1.SelStart := Pos(FindText.Text,
Form1.Memo1.Lines.Text)-1;
Form1.Memo1.SelLength := Length(FindText.Text);
Form1.Memo1.SelText := StringReplace(Form1.Memo1.SelText,
FindText.Text, ReplaceText.Text, [rfIgnoreCase]);
end
else
begin
Form1.Memo1.SelStart := Pos(FindText.Text,
Form1.Memo1.Lines.Text)-1;
Form1.Memo1.SelLength := Length(FindText.Text);
Form1.Memo1.SelText := StringReplace(Form1.Memo1.SelText,
FindText.Text, ReplaceText.Text, []);
end;
Was die CheckBox zusagen hat, ist ja klar. Er beachtet auch die Groß- und Kleinschrebung völlig korrekt, was wiederum nicht so richtig klappt ist
[rfReplaceAll, rfIgnoreCase
"rfReplaceAll": er ersetzt nur das erst gefundene, nicht alle.