Registriert seit: 28. Mai 2008
657 Beiträge
Delphi 10.1 Berlin Starter
|
AW: TFindDialog und F3-Taste für Weitersuche
10. Jun 2019, 18:20
Hallo,
ich sehe, dass es mit TRichEdit besser ginge aber ich kann und will mein Projekt nicht mehr ändern. Ich muss mich mit TMemo herumschlagen. Meine Suche mit dem TFindDialog ist fertig nur die Integration von Suche nach "ganzen Worten" will mir nicht gelingen. Außerdem würde ich gerne <F3> zur Weitersuche nutzen wollen.
Delphi-Quellcode:
procedure TForm1.FindDialog1Find(Sender: TObject);
const
TextDelimeter = [#13,#10,' ',',','.','-',';','#','|','<','>','!','?','*','+'];
var
memoStr, searchStr : string;
startpos : integer;
MatchCase,
WholeWord : Boolean;
begin
with TFindDialog(Sender) do
begin
MatchCase := not (frMatchCase in Options);
WholeWord := frWholeWord in Options;
{If the stored position is 0 this cannot be a find next. }
if FSelPos = 0 then
Options := Options - [frFindNext];
{ Figure out where to start the search and get the corresponding
text from the memo. }
if frfindNext in Options then
begin
{ This is a find next, start after the end of the last found word. }
StartPos := FSelPos + Length(Findtext);
memoStr := Copy(Memo1.Lines.Text, StartPos, MaxInt);
end
else
begin
{ This is a find first, start at the, well, start. }
memoStr := Memo1.Lines.Text;
StartPos := 1;
end;
if MatchCase then memoStr := AnsiLowerCase(memoStr);
if MatchCase then searchStr := AnsiLowerCase(FindText) else searchStr := FindText;
{ Perform a global case-sensitive search for FindText in memoStr }
FSelPos := Pos(searchStr, memoStr); //FSelPos ist eine globale Variable
if WholeWord and
(FSelPos > 1) and (FSelPos+Length(searchStr) <= Length(memoStr)) and
(not(memoStr[FSelPos-1] in TextDelimeter) or not(memoStr[FSelPos+Length(searchStr)] in TextDelimeter)) then
FSelPos:=0; //danach wird nichts mehr gefunden!
if FSelPos > 0 then
begin
{ Found something, correct position for the location of the start
of search. }
FSelPos := FSelPos + StartPos - 1;
Memo1.SelStart := FSelPos - 1;
Memo1.SelLength := Length(FindText);
Memo1.SetFocus;
end
else
begin
{ No joy, show a message. }
if frfindNext in Options then
memoStr := ' weiteren'
else
memoStr := '';
MessageDlg(Format('Keine%s Fundstellen von "%s" im Memo.',[memoStr,searchStr]), mtWarning, [mbOK], 0);
end
end;
end;
(ursprüngliche Idee aus Swiss-Delphicenter)
So hatte ich mir das vorgestellt.
Willie.
Gut hören kann ich schlecht, schlecht sehen kann ich gut - Ersteres stimmt nicht, das zweite schon.
Geändert von Willie1 (10. Jun 2019 um 18:26 Uhr)
Grund: kein
|
|
Zitat
|