AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

SynEdit durchsuchen

Ein Thema von tail · begonnen am 13. Jun 2005 · letzter Beitrag vom 21. Jun 2005
Antwort Antwort
Benutzerbild von s.h.a.r.k
s.h.a.r.k

Registriert seit: 26. Mai 2004
3.159 Beiträge
 
#1

Re: SynEdit durchsuchen

  Alt 13. Jun 2005, 19:01
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;
»Remember, the future maintainer is the person you should be writing code for, not the compiler.« (Nick Hodges)
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 16:03 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz