Problem zu Richedit

[HellSpawn]

Also ich habe ein Richedit und will mit dem jetzt folgendes machen:

Wort Suchen (FindDialog)
Wort Ersetzen (ReplaceDialog)
Drucken (PrintDialog)

Und jetzt das schwierigste :
Wörter Zählen
Anschläge Zählen


Kann mir da jemand helfen oder sogar evtl. ein beispiel programm schreiben.

Also ich habe keine probleme wie ich einen dialog aufrufe, aber dann kommen die probleme:
- wie nehme ich aus dem FindDialog das Wort raus das ich eingebe bzw. die sondereinstellungen die man da anhacken kann.
-Wort Ersetzen ist ja das selbe, weiss nicht wie ich das auslese
- Drucken ist das Problem, ich habe auch die Druckeinstellungen drin, wie übernehme ich dir wenn ich welche im Programm eingebe zuvor

- Wörter Zählen und Anschläge zählen, kein Plan wie ich das machen sollte"!!!


BITTE um HILFE


Ich habe mal das mit Hochgeladen, was ich schon gemacht habe!!

[StanY]

Wörter zählen könntest du einfach die Leerzeichen zählen. Und Anschlage sind ja einfach die Buchstaben. Die bekommst du mit dem Length-Attribut raus. Oder halt auf die OnKeyPress Ereignisse reagieren.

[HellSpawn]

Ist ne sehr gute Idee, nur das Problem ist ich weiss nicht wie ich das machen sollte...
Ich bin Schüler auf einer Informatiker FOS und da müssen wir ein Projekt machen und ich dachte mir das wäre einfach mein Projekt, aber hab mich wohl geirrt.

Und ich weiss nicht wie ich das machen sollte wie ich anfangen sollte und so weiter.

[fkerber]

Hi!

Vielleicht hilft dir das Tutorial hier als Einstieg:
http://www.delphipraxis.net/internal...ct.php?t=22890


Ciao Frederic

[HellSpawn]

Danke, aber da war ich schon drauf und habe das alles gemacht was da steht, aber über diese Sachen wo ich noch brauche steht nichts im Forum drin.

Sonst hätte ich ja das aus dem Forum genommen, so strack ;-) bin ich auch wieder nicht, dass ich zuerst nichtt mal suche im Foren.

[Christian Seehase]

Moin HellSpawn,

schau Dir doch einfach mal die Eigenschaften der Dialoge in der Hilfe an.

[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:

Zitat von HellSpawn

Wort Suchen (FindDialog)

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

Zitat:

Zitat von HellSpawn

Wort Ersetzen (ReplaceDialog)

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

Zitat:

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:

Delphi-Quellcode:

length(RichEdit1.Text)

Nun sollte ich alle deine Frage beantwortet haben, oder ;)

mfg shark

[s.h.a.r.k]

Hey! Hab grad meinen Editor gezippt... kannst dír da ja was abgucken! Allerdings hab ich n TMemo und kein TRichEdit benutzt...