GETTOK STYLE

Commentaire de cirec le 09/08/2006 14:45:32 administrateur CS

Salut,

Voici la méthode que j'utilise :

Procedure ExtractText(Separateur, Ligne: String; Result: TStringList);
Var TmpText         : String;
Begin
  If Result = Nil Then Exit;
  While Pos(Separateur, Ligne) > 0 Do
    Begin
      TmpText := Copy(Ligne, 1, Pos(Separateur, Ligne) - 1);
      If TmpText <> EmptyStr Then Result.Add(TmpText);
      Ligne := Copy(Ligne, Pos(Separateur, Ligne) + 1, High(Integer));
    End;
  If Ligne <> EmptyStr Then Result.Add(Ligne);
End;


// Utilisation tu mets un ComboBox et un Button sur ta form et tu compètes comme ceci :

Var TS : TStringList;
Const strTMP = 'Essai de découpage de phrases pour DelphiFr sur CS [www.DelphiFr.com]';

procedure TForm1.Button1Click(Sender: TObject);
begin
  Ts := TStringList.Create;
  ExtractText(' ', strTMP, ts);
  ComboBox1.Items.AddStrings(ts);
  TS.Free;
end;

Et grâce aux TStingList ont a accès à tout moment au nombre de mots "TS.Count" et bien sur aux mots "TS[2] == 'découpage'"
Le premier mot à pour index 0 : TS[0] == 'Essai'

Donc si tu veux parcourir toute la liste dans un Memo par exemple:
Var I : Integer;
For I := 0 to TS.Count - 1 do Memo1.Lines.add(TS[I]);

Je pense que c'est plus pratique puisqu'on fait appel à ExtractText qu'une seule fois et on obtient tous les mots. Alors que ta fonction nécessite un appel par mot recherché et que se passe t'il si la phrase contient 5 mots et l’on fait : GetTok(Phrase, 10, #32) ???

Bonne prog et
@+
Cirec