Memo1 et ListBox1 [Résolu]

Messages postés
24
Date d'inscription
mercredi 4 octobre 2006
Statut
Membre
Dernière intervention
27 juillet 2010
- - Dernière réponse : Herostnic
Messages postés
24
Date d'inscription
mercredi 4 octobre 2006
Statut
Membre
Dernière intervention
27 juillet 2010
- 27 juil. 2010 à 01:24
revoila je veux fair une copie du listbox dans un memo mais je veux les fair aléatoirement comme suit:
Tapez le texte de l'url ici.






Merci.
Afficher la suite 

5 réponses

Meilleure réponse
Messages postés
13
Date d'inscription
samedi 11 avril 2009
Statut
Membre
Dernière intervention
29 août 2010
3
Merci
Voila mon amis:
procedure TForm1.Button1Click(Sender: TObject);
var I,A,x:Integer;
S1,s2,s3:string;
begin
S1:=listbox1.Items[0];
S2:=listbox1.Items[1];
S3:=listbox1.Items[2];
for X := 4 To 24 do
begin
a:=1+random(2);
I:=0+random(2);
listbox1.items.exchange(I,A);
end;
memo1.lines.add(S1 + ' ' +S2+ ' '+S3);
end;

end.

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 126 internautes nous ont dit merci ce mois-ci

Commenter la réponse de ProGL1v3
Messages postés
24
Date d'inscription
mercredi 4 octobre 2006
Statut
Membre
Dernière intervention
27 juillet 2010
0
Merci
Jai oublier. l'exemple 1 qui m'interesse pas le 2 ou le 3.
MErci encore
Commenter la réponse de Herostnic
Messages postés
308
Date d'inscription
jeudi 29 septembre 2005
Statut
Membre
Dernière intervention
17 septembre 2013
1
0
Merci
mais où est donc or ni car ?
Commenter la réponse de beckerich
Messages postés
24
Date d'inscription
mercredi 4 octobre 2006
Statut
Membre
Dernière intervention
27 juillet 2010
0
Merci
mdr alik
Commenter la réponse de Herostnic
Messages postés
24
Date d'inscription
mercredi 4 octobre 2006
Statut
Membre
Dernière intervention
27 juillet 2010
0
Merci
Merci beaucoup Yekera.
Commenter la réponse de Herostnic