Discussion :

[yinyann86]

J'ai un fichier .txt contenant 20 mots j'aimerais quand je compile le prog delphi qui en choisisse un au hasard dans les 20 comment faire ?

[OutOfRange]

Salut
Est-ce le choix aléatoire qui te gène ?
Dans ce cas
Random, randomize et
Ou est-ce la sélection d'un mot dans un .txt ?

[yinyann86]

c'est le fait que faut je fais un random dans un fichier .txt
jai commencé par assign(mots,'words.txt')
ensuite randomize ;
ensuite
random(mots)
comment faire pour qu'il choisisse unmot au hasard ans le fichier words.txt ?

[sofiane44]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
var F:textfile;R:1..20;i:word;mot:string;
begin
assignFile(F,'choix.txt');
reset(F);
randomize;
R:=1+random(20);
for i:=1 to R do
readln(F,mot);

closeFile(F);
showmessage(mot);
end;

[yinyann86]

mais est-ce possible de stocker 20 mots dans le programme delphi directement ? genre ne pas utiliser de fichier .txt externe ? et ensuite faire un random dans les 20 mots ??

[sofiane44]

saisir les (20) mots dans un Memo

en suite:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
 
memo1.Lines.SaveToFile('choix.txt');

[yinyann86]

non je parlais de n'avoir ajucun fichier externe , mettre ma bande de mot dans le programme genre les mettre au début du prog dans les variables ou constantes mais je sais pas comment ;\ dis moi si vous comprenez bien ma question

[defluc]

Crée une StringList ou un tableau (Array of String).
Puis tu affectes tes valeurs à chaque élément de la liste ou du tableau.

[sofiane44]

saisir les mots dans 1 memo
et chaque line de ce dernier sera un element dans un tableau TAB:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
var TAB:array[0..19]of string;i:integer;R:1..20;mot:string;
begin
for i:=0 to memo1.Lines.Count-1 do
TAB[i]:=Memo1.Lines[i];

randomize;
R:=random(memo1.Lines.Count);

showmessage(TAB[R]);


end;

[yinyann86]

delfuc j'aime bien ton idée tu peux tu pprofondir sur le sujet commen je fais un tableau avec tous ses 20 mots ??

[defluc]

Il y a tout ce qu'il faut dans les exemples de l'aide de (T)StringList.

[alex01pernot]

ouai le stringlist me semble mieux il ne bug pas comme le memo le fait lorsque tu manipule plusieurs lignes.

[Graffito]

Bonjour,

pour initialiser la tstringlist, utiliser :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
const CRLF=#$0D#$0A;
...
myTstringlist.text:='mot0'+CRLF+'mot1'+CRLF+'mot2'

;

[Pedro]

Salut
Tu peu faire comme ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
function GetRandomString(FileName: string): string;
var t: TStringList;
begin
  t := TStringList.Create;
  t.LoadFromFile(FileName);
  Randomize;
  Result := t.Strings[Random(19)];
  FreeAndNil(t);
end;