Wörter aus Memo extrahieren

[turboPASCAL]

Noch ne Version ?

Delphi-Quellcode:

Function WordCount(CText: String): Longint;
Var
  Ix: Word;
  Work_Count: Longint;
  anyWord: String;

  // Definiert was Wörter von einander trennt
  Function Seps(As_Arg: Char): Boolean;
  Begin
    Seps := As_Arg In
      [#0..#47, '?', ':', ';', '=', '#', '\', '[', ']', '{', '}', '^'];
  End;

Begin
  Work_Count := 0;
  Ix := 1;
  While Ix <= Length(CText) Do
  Begin
    anyWord := '';

    // den Begin eines Wortes suchen
    While (Ix <= Length(CText)) And (Seps(CText[Ix])) Do
      Inc(Ix);

    If Ix <= Length(CText) Then
    Begin
      // das Ende eines Wortes suchen
      While (Ix <= Length(CText)) And (Not Seps(CText[Ix])) Do
      begin
        Inc(Ix);
        anyWord := anyWord + Form1.Memo1.Text[ix-1];
      end;

     Inc(Work_Count);

     Form1.ListBox1.Items.Add(anyWord);

     // Windows nachrichten zw. Windows und eigener App. verarbeiten lassen
     Application.ProcessMessages;
    End;
  End;
  Result := Work_Count;
End;

Abgelitten von Wörter in einem String zählen