Ordtæller

Hvordan laver jeg en ordtæller der tæller alle ord i en richedit...?


Shafh
Shafh@stofanet.dk
Theis F. Hinz

Behandl nørder godt.
Du ender sandsynligvis
med at arbejde for en

Motto af Bill Gates

Hm du tager vel bare rich teksten og eksploder den i et array Altså exploder parameteren skal være mellemrum og derefter tæller du hvor mange poster der er i det array og det må jo være lig antal ord.

mxs @ http://poet.frac.dk
Slamkodning for fred

function CountWords(Text: String): Integer;
type
  TExplodedString = array of String;
  function Explode(Text: String; Seperator: Char): TExplodedString;
  var
    I: Integer;
    Tmp: String;
  begin
    if Text[Length(Text)] <> Seperator then
      Text := Text + Seperator;
    for I := 1 to Length(Text) do begin
      if Text[I] = Seperator then begin
        SetLength(Result, High(Result)+2);
        Result[High(Result)] := Tmp;
        Tmp := '';
      end else
        Tmp := Tmp + Text[I];
    end;
  end;
var
  Tmp: TExplodedString;
begin
  Tmp := Explode(Text, ' ');
  ShowMessage(IntToStr(Length(Tmp)));
end;

Den kaldes så med:

CountWords(DinRichEdit.Text);

MH.

The-Freak

Livet er for kort til at kede sig.

Øhhh....

Kan du ikke vise et eks...

Vil også gerne vide hvordan man finde ud at bogstaver!




Shafh
Shafh@stofanet.dk
Theis F. Hinz

Behandl nørder godt.
Du ender sandsynligvis
med at arbejde for en

Motto af Bill Gates