T E X T Textverarbeitung © Herbert Paukert - von Herbert Paukert

Herbert Paukert: Textverarbeitung in DELPHI 28
FoundAt := FindText(ReplaceDialog1.FindText, StartPos, ToEnd, SType);
if FoundAt -1 then begin
SetFocus;
SelStart := FoundAt;
SelLength := Length(ReplaceDialog1.FindText);
SelText := ReplaceDialog1.ReplaceText;
end;
end;
end;
end;
procedure DoReplaceAll;
// Text global in RichEdit ersetzen
var FoundAt, StartPos, ToEnd: Integer;
SType: TSearchTypes;
begin
with Form1 do begin
with RichEdit1 do begin
SType := [];
if (frMatchCase) in ReplaceDialog1.Options then SType := SType + [stMatchCase];
if (frWholeWord) in ReplaceDialog1.Options then SType := SType + [stWholeWord];
StartPos := 0;
repeat
ToEnd := Length(Text) - StartPos;
FoundAt := FindText(ReplaceDialog1.FindText, StartPos, ToEnd, SType);
if FoundAt -1 then begin
SelStart := FoundAt;
SelLength := Length(ReplaceDialog1.FindText);
SelText := ReplaceDialog1.ReplaceText;
StartPos := FoundAt + Length(ReplaceDialog1.ReplaceText);
end;
until FoundAt = -1;
end;
end;
end;
procedure TForm1.ReplaceDialog1Replace(Sender: TObject);
// Texte ersetzen
begin
if (frReplace) in ReplaceDialog1.Options then DoReplace
else if (frReplaceAll) in ReplaceDialog1.Options then DoReplaceAll;
RichEdit1.SetFocus;
end;
procedure TForm1.Neu1Click(Sender: TObject);
// Neuer Text
begin
RichEdit1.Clear;
RichEdit1.SetFocus;
ShowColRow(RichEdit1,Label1);
end;