Réduire la mémoire qu'utilise mon application Android
Bonsoir tout le monde ! J'ai un problème depuis quelque temps avec le développement des applications Android avec Delphi. J'Utilise EDI RAD STUDIO Berlin actuellement. Mon problème est que lorsque je crée dynamiquement des TRectangle l'application consomme environ 1,2 Mo de la mémoire RAM et si je laisse cela pendant des heures cela consomme davantage. Je ne comprends pas comment faire pour résoudre ce problème. Pourriez-vous m'aider ? Je tiens à rappeler que les applications tournent sur Android 7.0.
Voici le code de objet que j'ai instancié !
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
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
|
CardM = class(TObject)
private
Cadre : TRectangle ;
Titre,Detail,Image :String;
Hauteur : integer;
Constructor Create(SParent:TVertScrollBox;STitre,SDetail,SImage:string);
destructor destroy ; override;
end;
CardV = class(TObject)
private
ScrollBox : TVertScrollBox;
Cadres: array of CardM;
MyTaille : Integer ;
public
procedure CreerDefCardM(sTitre,sImage,sDetail:string) ;
constructor Create(sParent: TLayout);
destructor destroy ; virtual ;
end;
implementation
uses FMX.Dialogs;
{ CardV }
procedure CardV.CreerDefCardM(sTitre,sImage,sDetail:string) ;
begin
if ((sTitre.Length)>0) and ((sImage.Length)>4) and (sDetail.Length<=155) then
begin
inc(Self.MyTaille);
SetLength(Cadres,Self.Mytaille+1);
Cadres[Mytaille]:=SimpleCard.Create(ScrollBox,sTitre,sDetail,sImage);
end;
end;
destructor CardV.destroy;
begin
end;
{ SimpleCard }
constructor CardM.create(SParent:TVertScrollBox;STitre,SDetail,SImage:string);
begin
with Self do
begin
Titre :=STitre;
Detail :=SDetail;
Image :=SImage;
end;
Cadre := Trectangle.Create(nil);
with Cadre do
begin
Align:=TAlignLayout.Top;
Parent:=SParent;
with Margins do
begin
Left:=10;
Right:=10;
Bottom:=10;
Top:=10;
end;
Height:= 320;
Stroke.Color :=TAlphaColorRec.Null;
Fill.Color:=TAlphaColorRec.White;
end;
with TLabel.Create(nil) do
begin
Text := Self.titre;
Font.Family := 'Arial';
Align := TAlignLayout.Top;
with Margins do
begin
Left:=8;
Right:=10;
Bottom:=10;
Top:=5;
end;
TextAlign:=TTextAlign.Leading;
Parent := Self.Cadre;
end;
With TShadowEffect.Create(Cadre) do
begin
parent := Cadre;
ShadowColor := $FF9B9898;
end;
with TText.Create(Self.Cadre) do
begin
Align:=TAlignLayout.Client;
Parent:=Self.Cadre;
with Margins do
begin
Left:=10;
Right:=10;
Bottom:=5;
Top:=10;
end;
with TextSettings do
begin
HorzAlign := TTextAlign.Leading;
VertAlign:=TTextALign.Leading;
Trimming:=TTextTrimming.character;
end;
Color := $FF858585;
Text :=Self.Detail;
end;
with TImage.Create(nil) do
begin
Parent :=Self.Cadre;
Align:=TAlignLayout.Top;
Height:=200;
WrapMode:=TImageWrapMode.Stretch;
Bitmap.LoadFromFile(TPath.GetDocumentsPath + PathDelim + 'xdg.jpg'); // Lien utilisé pour faire des tests TPath.GetDocumentsPath + PathDelim + 'xdg.jpg'
end;
end;
destructor CardM.destroy;
begin
inherited;
end; |
