RichEdit Wort finden, Farbig und Fett markieren

[Nils_13]

Zitat von Ultimator:

Bist du so beschränkt oder tust du nur so?

Wenn du FindText in deine Unit schreibst und F1 drückst, kommen da 4 Möglichkeiten:

FINDTEXT
FindText
FindText (Eigenschaft von TFindDialog) (VCL-Referenz)
FindText (Eigenschaft von TCustomRichEdit) (VCL-Referenz)

Welche passt wohl?

Ich krieg da:
(C++ Beispiel)
(Delphi-Beispiel)
TCustomRichEdit
TFindDialog

TCustomRichEdit trifft wohl am ehsten zu. Und welchen COde kriege ich da ? Den oben !!

Die Beschimpfung ignoriere ich jetzt mal einfach.

[Ultimator]

Zitat von Nils_13:

Die Beschimpfung ignoriere ich jetzt mal einfach. Danke, dass du mir eine lustige Minute gegönnt hast.

Hm. Wenn du das, was du als Beschimpfung empfindest, ignorierst, wieso sollte dann mein ansonsten sachliches Posting lustig sein?

Ich habe Delphi 7 Personal mit keinen zusätzlich installierten Komponenten, also müsste das bei dir auch vorhanden sein.

//edit: Oha, da hat jemand oben editiert.

[jim_raynor]

Zitat von Nils_13:

TCustomRichEdit trifft wohl am ehsten zu. Und welchen COde kriege ich da ? Den oben !!

Das ist ein Beispiel mit dem FindDialog. Aber du kannst sehr wohl auch FindText ohne FindDialog einsetzen. Einfach statt FindDialog1.FindText deinen eigenen Text nehmen ...

[Nils_13]

Zitat von Ultimator:

Zitat von Nils_13:

Die Beschimpfung ignoriere ich jetzt mal einfach. Danke, dass du mir eine lustige Minute gegönnt hast.

Hm. Wenn du das, was du als Beschimpfung empfindest, ignorierst, wieso sollte dann mein ansonsten sachliches Posting lustig sein?

Ich habe Delphi 7 Personal mit keinen zusätzlich installierten Komponenten, also müsste das bei dir auch vorhanden sein.

//edit: Oha, da hat jemand oben editiert.

Ich benutze weil alle anderen Delphi-Versionen zu langsam sind auf einfach Delphi 7 Personal. Ist aber irgendwie nicht das selbe

Zitat von jim_raynor:

Zitat von Nils_13:

Die Beschimpfung ignoriere ich jetzt mal einfach.

Das ist ein Beispiel mit dem FindDialog. Aber du kannst sehr wohl auch FindText ohne FindDialog einsetzen. Einfach statt FindDialog1.FindText deinen eigenen Text nehmen ...

Also in etwa so ?

Delphi-Quellcode:

  if  FindDialog1.FindText = 'START' then
  begin
    with Memo1.SelAttributes do
    begin
      Color := clRed;
      Height := Height + 5;
    end;
  end;

oder so ?

Delphi-Quellcode:

procedure TForm1.FindDialog1Find(Sender: TObject);
begin
    with Memo1.SelAttributes do
    begin
      Color := clRed;
      Height := Height + 5;
    end;
end;

[mare_crisium]

Nils,

Du hast was übersehen:

Die Stelle, an der in dem Beispiel der Text nach dem Suchwort durchsucht wird heisst:

    FoundAt := FindText(FindDialog1.FindText, StartPos, ToEnd, [stMatchCase]); FindDialog1.FindText bedeutet nur, dass in diesem Beispiel das Suchwort über einen Dialog, nämlich "FindDialog1" einegeben wurde. Du kannst an derselben Stelle aber auch Deinen Suchstring direkt oder als string-Variable einstellen. Etwa so:

    FoundAt := FindText('suchmal', StartPos, ToEnd, [stMatchCase]); oder

Delphi-Quellcode:

    suchString:='suchmal';
    FoundAt := FindText(suchString, StartPos, ToEnd, [stMatchCase]);

FindText ist eine Methode der Klasse TCustomRichEdit. Wenn Du in Deinem Programm folgende Variablen einführst:

Delphi-Quellcode:

  meinTextDocument : TcustomRichEdit
  fundStelle       : integer;

dann kannst Du anschliessend in diesem Dokument z.B. mit folgender Anweisung die Suche durchführen:

  fundStelle:=meinTextDokument.findText('suchmal',StartPos,ToEnd,[stMatchCase]); Näheres findest Du in der Delphi-Hilfe unter TcustomRichEdit.

Alles klar?

mare_crisium

[Sharky]

Zitat von Ultimator:

Bist du so beschränkt oder tust du nur so?

So etwas möchte ich von Dir nicht noch einmal lesen müssen
Egal wie schwer sich jemand mit den Tips gibt ist dies kein Grund für persönliche Anfeindungen.

Betrachte dies bitte als sehr ernsthafte Ermahnung

[Ultimator]

Ich konnte nicht nachvollziehen, dass er das nicht findet. Zumal er ja auch noch die gleiche Delphi-Version verwendet und ich sozusagen eine Step-by-Step-Anleitung gepostet hab.

Mag sein, dass das mit knappen 40 anders ist. Man wird ja auch ruhiger.

Ich überlege gerade, ob man wirklich alles, was man schreibt in erhöhtem Grade mit Smilies übersäen muss, damit man auch ganz bestimmt erkennt, wie was gemeint ist. Ich kann hier im Forum mittlerweile eigentlich alle recht gut leiden. Und meinst du allen Ernstes, ich beleidige jemanden ernsthaft, den ich recht gut leiden kann?

Dieser Text wurde vorsätzlich ohne jegliche Emoticons verfasst, damit sich jeder die Sinnrichtung rauspicken kann, die ihm gerade passt

[Nils_13]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var StartPos, ToEnd, foundAt: integer;
    suchText: String;
begin
    suchText:='START';
    foundAt := Memo1.findText(suchText,0,length(Memo1.text),[stMatchCase]);
    if FoundAt <> -1 then
    begin
      Memo1.SetFocus;
      Memo1.SelStart := FoundAt;
      Memo1.SelLength := Length(suchText);
    end;
end;

Dieser Code von mare_crisium markiert das gesuchte Wort schwarz. Aber wie kriege ich es jetzt noch hin, so dass es fett und grün dargestellt wird ?

[Khabarakh]

Öhm...

Zitat von Nils_13:

Mit SelAttributes markiere ich das gesuchte Wort zwar, aber wie finde ich es überhaupt ?

[faux]

Hallo!

Also wirklich, ich hab diese Funktion noch nie gebraucht und hab sie sogar ohne Delphi-Hilfe ausfündig gemacht. Da gibt es so eine coole Funktion namens Codevervollständigung.
Etwas mehr Engagement deinerseits würde nicht schaden.

Delphi-Quellcode:

MyRichEdit.SelAttributes.Color := clGreen;
MyRichEdit.SelAttributes.Style := [fsBold];

Grüße
Faux