Discussion :

[pier]

Bonjour à tous les matinaux
Voilà, je cherche en fait à afficher dans une msgbox, une texte. jusque là tout va bien..
mais en fait je voudrais qu'elle m'affiche 3 à 4 phrases type aléatoirement...
quelle est selon vous la meilleur approche??
a quoi pourrait ressembler le code??
thanks & cheers

[djo.mos]

voici une approche :
tu crées un fichier texte qui contient tes messages (chacun dans une ligne).
au démarrage, tu récupères le nombre de lignes de ce fichier, tu fais un random pour avoir un numéro de ligne aléatoire, tu lis cette ligne et tu l'affiches dans ton MessageBox !

ce serait trop long de te donner tout le code, mais si ca bloque quelque part, ce serait avec joie de te filer 2 ou 3 lignes !

[sjrd]

Voilà ce qu'à dit Modjo en code :

Code :

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

1
2
3
4
5
6
7
8
9
10
function RandomText(FileName : TFileName) : string;
begin
  with TStringList.Create do
  try
    LoadFromFile(FileName);
    Result := Strings[Random(Count)];
  finally
    end;
  end;
end;

Perso je trouve pas ça très long

PS : n'oublie pas de faire appel à Randomize au début de ton appli.

[eponette]

Le projet JEDI a une serie de composants JVCL. Il y a ce que tu veux dedans.

[pier]

merci pour vos aide,
a vrai dire le code j'aurais eut du mal à le pondre, (je commence juste...)
Faut que je m'installe JEDI, ça à l'air assez fourni.
Merci à tous