Bonjour,
je suis à la recherche d'un programme, qui prend en entrée un string (une phrase)
et qui me sort la liste de tout les mots sachent qu'il n'y a pas de doublon
voila merci bcp
j'ai deja commencé mon prog :

procedure TForm3.decoupe (chaine : String);
var i:integer;
begin
for i:=1 to Length(chaine) do
if (chaine[i] = ',') or (chaine[i] = '''') or (chaine[i] = ':') or (chaine[i] = '?') or (chaine[i] = '.')or (chaine[i] = ';') or (chaine[i] = '!') or (chaine[i] = '-') then chaine[i] := ' ';

while Pos(' ', chaine) > 0 do Delete(chaine, Pos(' ', chaine), 1);
while chaine[1] = ' ' do Delete(chaine, 1, 1);
while chaine[Length(chaine)] = ' ' do Delete(chaine, Length(chaine), 1);
for i:=
while Pos(' ',chaine)>0 do