Discussion :

[tintin62]

je viens télécharger la version delphi 10.4 Community
mais mon téléphone mobile est en Android 12
peut ton faire une application avec cette version
merci

[pprem]

Ca doit fonctionner sans trop de difficultés tant que les API de Google Play ne sont pas utilisées (puisqu'elles ont été changées et qu'il faudrait adapter le SDK).

[tintin62]

bonjour
merci pour la réponse
je fais qu'une petite application qui me donne 7 numéro aléatoire
pour jouer a amigo
donc je n'ai besoin que dans le sdk onglet internet comme permission
j'espéré que sa va fonctionner
merci

[tintin62]

bonjour
donc je viens essayer et sa marche
sur ma fiche un édit un listbox et un button qui génère les 7 chiffres
quand j'appui sur le button je vois les chiffres non trié dans le listbox et trie sur édit
mais le problème c que le programme se ferme presque aussitôt que faire pour que je puisse saisir les numéros qui apparait
pas fenêtre erreur Windows ou mobile
merci

[tintin62]

bonjour
voici mon code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
 
unit Unit1;
 
interface
 
uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.StdCtrls,
  FMX.Layouts, FMX.ListBox, FMX.Edit, FMX.Controls.Presentation;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    ListBox1: TListBox;
    procedure Button1Click(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
     Procedure TriABulles(Var Tab:Array Of Integer);
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.fmx}
 
 procedure TForm1.Button1Click(Sender: TObject);
 
   Var
Tableau: array [1..28] of Integer; // le tableau
tableau_apres:array [1..8] of integer;
I, C, R,t,a: Integer;
begin
 
  randomize;
for t:=1 to 50 do begin
 
for I := 1 to 28 do Tableau[I] := I;
for I := 1 to 28 do
  begin
 
  R := random(28) + 1;
  C := Tableau[I];
 
  Tableau[I] := Tableau[R];
  Tableau[R] := C;
  end;
 edit1.Text:=inttostr(tableau[1])+' '+ inttostr(tableau[2])+' '+inttostr(tableau[3])+' '+
 inttostr(tableau[4])+' '+  inttostr(tableau[5])+' '+ inttostr(tableau[6])+' '+ inttostr(tableau[7]);
  application.ProcessMessages;
  sleep(100);
end;
 for a:=1 to 7 do
 tableau_apres[a]:=tableau[a];
TriABulles(tableau_apres);
listbox1.Clear;
 for a:=1 to 7 do
 listbox1.Items.Add(inttostr(tableau_apres[a]));
end;
 
 
Procedure Tform1.TriABulles(Var Tab:Array Of Integer);
Var i,j,t:Integer;
Begin
  For i:=Low(Tab) To High(Tab)-2 Do For j:=i+1 To High(Tab)-1 Do If Tab[i]>Tab[j] Then
  Begin
    t:=Tab[i];
    Tab[i]:=Tab[j];
    Tab[j]:=t;
  End;
End;
 
end.

[SergioMaster]

Bonjour,

pas beau ça !

Code :

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

1
2
3
 
  application.ProcessMessages;
  sleep(100);

et pas mal d'améliorations possibles en utilisant des TArray<Integer> je pense

enfin un

Code :

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

1
2
3
listbox1.Clear;
 for a:=1 to 7 do
 listbox1.Items.Add(inttostr(tableau_apres[a]));

devrait être encadré par un Listbox1.BeginUpdate; [ code ] ListBox1.EndUpdate;

[tintin62]

bonjour
merci pour les conseils
je vais les mettre en service
croyez vous que c'est sa qui ferme le programme
merci avance
(ps: je suis très débutant je bidouille des programmes existant pour seulement me faire
des très petites applications
donc tous conseil serait le bienvenue)

[tintin62]

bonjour
et merci
j'ai enlever applications processmessage
et ajouter begin et end pour la listbox
j'ai ajouter un autre bouton pour la fermeture
mais je me demande si c'était nécessaire

et sa marche merci a tous

[SergioMaster]

Bonjour,

mais je me demande si c'était nécessaire

Non mais ce sont de bonnes habitudes à prendre surtout pour des programmes FMX

pour ce qui est des TArray<T> (où T est Integer dans votre cas) pour remplacer un Array of Integer ou un Array[1..28] of integer un peu de doc :
Docwiki
et si l'on maitrise un peu l'anglais

en quelques lignes un tri

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
procedure TForm23.btnGenereClick(Sender: TObject);
Var
  Tableau: TArray<Integer>; // remplace array of [1 .. 28] of Integer; // le tableau
  Tb: Array of integer;
  I : Integer;
  W : TStopWatch;
begin
  Tableau:=TArray<Integer>.Create();
  SetLength(Tableau,28);
  randomize;
   for I := Low(Tableau) to High(Tableau) do
    begin
      Tableau[I] := random(Trunc(nombre.Value)) + 1;
    end;
  TArray.Sort<Integer>(Tableau);  // Tri du tableau
  LBSorted.BeginUpdate;
  LBSorted.Items.Clear;
  for i in Tableau do  LBSorted.Items.Add(i.ToString);
  LBSorted.EndUpdate;
end;

et une petite capture d'écran (j'avais des doutes sur votre procédure de tri à bulle )

N.B. j'ai un doute sur le temps (ms) de tri du Sort 0

[tintin62]

bonjour
merci pour le code
mais je ne comprends pas cette ligne

Code :

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

Tableau[I] := random(Trunc(nombre.Value)) + 1;

car on crée peut-être des doublons des chiffres ??
merci encore

[SergioMaster]

car on crée peut être des doublons des chiffres ??

Dans mon code : Oui.
Pour avoir un tirage combinatoire (sans doublon) j'explique cela dans un de mes codes disponible ici

[tintin62]

bonjour
pas mal vos jeux bingo
je viens de gagner c vous qui payez ?
je rigole
a quand une interface pour amigo ?
car je suis un accroc de ce jeux
merci encore pour vos sources qui m'éclaire sur la
programmation fmx
++