Delphi 10.4 : compatible Android 12 ?

Version imprimable

05/06/2022, 01h03
tintin62

Delphi 10.4 : compatible Android 12 ?

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
05/06/2022, 10h37
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).
05/06/2022, 14h55
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
05/06/2022, 15h23
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

bonjour
voici mon code

Code:

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.

05/06/2022, 17h03
SergioMaster
Bonjour,

pas beau ça !
Code:

1 2 3 application.ProcessMessages; sleep(100);
et pas mal d'améliorations possibles en utilisant des TArray<Integer> je pense

enfin un
Code:

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;
05/06/2022, 23h30
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)
05/06/2022, 23h53
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

1 pièce(s) jointe(s)

Bonjour,

Citation:

Envoyé par tintin62

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 https://www.youtube.com/watch?v=cNN2...?v=cNN2_VDs8ho

en quelques lignes un tri
Code:

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 :oops:)
Pièce jointe 620345
N.B. j'ai un doute sur le temps (ms) de tri du Sort 0 :koi:

06/06/2022, 09h37
tintin62

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

Code:

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

car on crée peut-être des doublons des chiffres ??
merci encore
06/06/2022, 11h25
SergioMaster

Citation:

Envoyé par tintin62

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
06/06/2022, 13h34
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
++