Problem zu Richedit

[s.h.a.r.k]

Also ich kann dir ein bisschen helfen, nachdem ich in letzter Zeit mir meinen eigene Editor geproggt hab und da exakt auf diese Problem gestoßen bin Such auch allgemein mal unter SwissDelphiCenter

Zitat von HellSpawn:

Wort Suchen (FindDialog)

...in einem RichEdit nach Text suchen und ihn markieren?

Zitat von HellSpawn:

Wort Ersetzen (ReplaceDialog)

...in einem RichEdit nach Text suchen und ihn ersetzen?

Zitat von HellSpawn:

Drucken (PrintDialog)

...in einem TRichEdit nur den markierten Text drucken?


Ich habe auf diesem url=http://www.swissdelphicenter.ch/de/tipsuchen.php]Link[/url] einfach mal nach "RichEdit" gesucht búnd bin sofort fündig geworden!

Und nun noch die Procedure für die Anzahl der Wörter:

Delphi-Quellcode:

function WordCount(ControlText:    String): Longint;
  function Seperator(as_arg: Char): Boolean;
    begin
      Seperator := as_arg In
      [#0..#$1F, ' ', '.', ',', '?', ':', ';', '(',')', '/', '\'];
    end;

var
  x:            Word;
  WordCount:    Longint;
begin
  WordCount := 0;
  x := 1;
  while x <= Length(ControlText) do
    begin
      while (x <= Length(ControlText)) and (Seperator(ControlText[x])) do
        Inc(x);
      if x <= Length(ControlText) Then
        begin
          Inc(WordCount);
          while (x <= Length(ControlText)) and
                (not Seperator(ControlText[x])) do
            Inc(x);
        end;
    end;
  Result := WordCount;
end;

Wenn du noch die Anschläge zählen willst, d.h. doch die Anzahl der Zeichen dann nimmst du den folgenden Code:

length(RichEdit1.Text) Nun sollte ich alle deine Frage beantwortet haben, oder

mfg shark