SynEdit durchsuchen

[tail]

Ich will meinen SynEdit durchsuchen lasen. Mit dem normalen Suchen Dialog, geht das nicht. Dann ahbe ich den genommen, der bei SynEdit dabei ist. Und den Bei SearchEngine angegeben. Was muss ich jetzt machen, damit ich damit das Dokument durchsuchen kann?

[s.h.a.r.k]

Also: Du hast ja schon eine SynEdit- und eine SynEditSearch-Komponente. Dann weißt du im Objektinspektor dem SynEdit die SynEditSearch zu - und zwar als SearchEngine. Dann brauchst du auch noch einen normalen FindDialog. Beim OnFind-Ereignis des FindDialogs schreibst du dann folgendes rein:

Delphi-Quellcode:

procedure TCreatorForm.FindDialogFind(Sender: TObject);
var
  rOptions:   TSynSearchOptions;
  dlg:        TFindDialog;
  sSearch:    String;
begin
  if (Sender = ReplaceDialog) then
    dlg := ReplaceDialog
  else
    dlg := FindDialog;
  sSearch := dlg.FindText;
  if Length(sSearch) = 0 then begin
    Beep;
    Messagedlg('Bitte geben Sie einen Suchbegriff ein.', mtInformation, [mbOk], 0);
  end else begin
    rOptions := [];
    if not (frDown in dlg.Options) then
      Include(rOptions, ssoBackwards);
    if frMatchCase in dlg.Options then
      Include(rOptions, ssoMatchCase);
    if frWholeWord in dlg.Options then
      Include(rOptions, ssoWholeWord);
    if Memo.SearchReplace(sSearch, '', rOptions) = 0 then begin
      Beep;
      Messagedlg('Der Suchbegriff "' + sSearch + '" konnte nicht gefunden werden!', mtInformation, [mbOk], 0);
    end;
  end;
end;

[tail]

Zitat:

Zitat von s.h.a.r.k

Also: Du hast ja schon eine SynEdit- und eine SynEditSearch-Komponente. Dann weißt du im Objektinspektor dem SynEdit die SynEditSearch zu - und zwar als SearchEngine. Dann brauchst du auch noch einen normalen FindDialog. Beim OnFind-Ereignis des FindDialogs schreibst du dann folgendes rein:

Delphi-Quellcode:

procedure TCreatorForm.FindDialogFind(Sender: TObject);
var
  rOptions:   TSynSearchOptions;
  dlg:        TFindDialog;
  sSearch:    String;
begin
  if (Sender = ReplaceDialog) then
    dlg := ReplaceDialog
  else
    dlg := FindDialog;
  sSearch := dlg.FindText;
  if Length(sSearch) = 0 then begin
    Beep;
    Messagedlg('Bitte geben Sie einen Suchbegriff ein.', mtInformation, [mbOk], 0);
  end else begin
    rOptions := [];
    if not (frDown in dlg.Options) then
      Include(rOptions, ssoBackwards);
    if frMatchCase in dlg.Options then
      Include(rOptions, ssoMatchCase);
    if frWholeWord in dlg.Options then
      Include(rOptions, ssoWholeWord);
    if Memo.SearchReplace(sSearch, '', rOptions) = 0 then begin
      Beep;
      Messagedlg('Der Suchbegriff "' + sSearch + '" konnte nicht gefunden werden!', mtInformation, [mbOk], 0);
    end;
  end;
end;

Aber ich muss erstmal den Such-Dialog aufrufen, wie mache ich das?

[tail]

Kann mir keiner sagen, wie ich den Dialog aufrufe?

[Luckie]

Delphi-Quellcode:

MeinsuchDialog.Execute

Wie jeden anderen Dialog auch nehme ich mal an. :roll:

[BrunoT]

Hi tail

Mein Editor mit Syntaxhighlighting

lade dir mal den Quelltext.

mfg

BrunoT

[tail]

Zitat:

Zitat von Luckie

Delphi-Quellcode:

MeinsuchDialog.Execute

Wie jeden anderen Dialog auch nehme ich mal an. :roll:

Nö :roll: Das gibt nen Fehler (unbekannt)

EDIT:
@BrunoT: Da wird ein RichEdit benutzt.

[tail]

Kann mir keiner helfen?

[Matze]

Nutz doch mal die Suche, die liefert u.a. das hier.