Memo1 et ListBox1 [Résolu]
Herostnic
- Messages postés
- 24
- Date d'inscription
- mercredi 4 octobre 2006
- Statut
- Membre
- Dernière intervention
- 27 juillet 2010
- Messages postés
- 24
- Date d'inscription
- mercredi 4 octobre 2006
- Statut
- Membre
- Dernière intervention
- 27 juillet 2010
A voir également:
- Memo1 et listbox1
- Est ce possible de faire la somme contenu dans deux listbox1&2 ? ✓ - Forum - Delphi / Pascal
- Mètre la date du MonthCalendar1 en texte normal quand le ListBox1 est complèteme ✓ - Forum - VB.NET
- ListBox1 à ListBox2 ✓ - Forum - Visual Basic 6
- Memo1.Lines ✓ - Forum - Delphi / Pascal
- Ajouter ligne suivante ListBox1.Items( ??? ) à un RichTextBox ✓ - Forum - VB.NET
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
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.
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.
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
185 internautes nous ont dit merci ce mois-ci
