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;