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

Herbert Paukert: Textverarbeitung in DELPHI 27
procedure TForm1.FindDialog1Find(Sender: TObject);
// Text schrittweise in RichEdit suchen
var FoundAt, StartPos, ToEnd: Integer;
SType: TSearchTypes;
begin
with RichEdit1 do begin
SType := [];
if (frMatchCase) in FindDialog1.Options then SType := SType + [stMatchCase];
if (frWholeWord) in FindDialog1.Options then SType := SType + [stWholeWord];
if SelLength 0 then StartPos := SelStart + SelLength
else StartPos := SelStart;
ToEnd := Length(Text) - StartPos;
FoundAt := FindText(FindDialog1.FindText, StartPos, ToEnd, SType);
if FoundAt -1 then begin
SetFocus;
SelStart := FoundAt;
SelLength := Length(FindDialog1.FindText);
SendMessage(Handle,EM_SCROLLCARET,0,0);
end;
SetFocus;
end;
end;
procedure TForm1.ReplaceDialog1Find(Sender: TObject);
// Text schrittweise in RichEdit suchen
var FoundAt, StartPos, ToEnd: Integer;
SType: TSearchTypes;
begin
with RichEdit1 do begin
SType := [];
if (frMatchCase) in ReplaceDialog1.Options then SType := SType + [stMatchCase];
if (frWholeWord) in ReplaceDialog1.Options then SType := SType + [stWholeWord];
if SelLength 0 then StartPos := SelStart + SelLength
else StartPos := SelStart;
ToEnd := Length(Text) - StartPos;
FoundAt := FindText(ReplaceDialog1.FindText, StartPos, ToEnd, SType);
if FoundAt -1 then begin
SetFocus;
SelStart := FoundAt;
SelLength := Length(ReplaceDialog1.FindText);
SendMessage(Handle,EM_SCROLLCARET,0,0);
end;
end;
end;
procedure DoReplace;
// Text schrittweise 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];
if SelLength 0 then StartPos := SelStart + SelLength
else StartPos := SelStart;
ToEnd := Length(Text) - StartPos;