// Da ich im Netz nichts gefunden habe, was meinen Vorstellungen
// entsprach, habe ich mir einen eigenen Code für das Vorwärts-
// und Rückwärtssuchen in einem TRichEdit gebastelt. Dabei sollte
// z.B. angezeigt werden, welche von wieviel Fundstellen gerade
// angesprungen worden ist, eine Ausschrift erscheint, wenn der
// komplette Text durchsucht wurde
(egal bei welcher Position die
// Suche begonnen hat)
, sowie die Möglichkeit vorhanden sein, nur
// einen markierten Bereich zu durchsuchen. Außerdem sollte es
// möglich sein, jederzeit an den Anfang oder das Ende des Textes
// zu springen, sowie kenntlich zu machen, ob sich nicht beim
// Eintippen oder Einfügen ein Leerzeichen eingeschlichen hat,
// welches das Suchergebnis verfälscht. Zusätzlich sollte es nach
// versehentlichem Abbruch der Suche möglich sein, noch einmal
// an der selben Stelle mit der Suche zu beginnen, falls dabei
// keine Manipulationen an dem zu durchsuchenden TRichEdit
// vorgenommen wurde. Meine Grundidee war, bereits vor dem
// eigentlichen Suchvorgang eine Tabelle mit potentiellen
// Suchstellen zu füllen und diese Tabelle vorwärts bzw. rückwärts
// durchzugehen. Wie sich herausstellte war das weit umfangreicher
// als ich mir anfangs gedacht hatte, um alle meine Anforderungen
// zu verwirklichen. Deshalb wurde dem Projekt ein zusätzliches
// Formular zugefügt
(genannt "SearchFormular"), welches als eine
// Art erweiteter Finddialog fungiert, und das verhältnismäßig
// leicht in andere Projekte zu übernehmen ist.


// Getestet mit RS 10.4 unter
Win11

 

 DEMO-EXE herunterladen  

 

 DEMO-Projekt herunterladen  

 

 

Zugriffe seit 6.9.2001 auf Delphi-Ecke