Voilà j'ai fait une classe et cela ne marche pas.
L'erreur (Incompatible Types: 'Integer' and 'Real')que je rencontre est sur la ligne :
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 unit unite; interface uses Windows, Messages, SysUtils, Classes; type uniter=class private ValMax:integer; public constructor uniter(u:integer); function trouveruniter(g:integer):string; function GetValMax:integer; end; implementation { uniter } function uniter.GetValMax:integer; begin GetValMax:=ValMax; end; function uniter.trouveruniter(g:integer): string; var k,l:string; i,j:integer; begin k:='edit'+inttostr(g)+'.text'; i:=strtoint(k); j:=i/getvalmax; l:=inttostr(j); trouveruniter:=l; end; constructor uniter.uniter(u:integer); begin ValMax:=u; end;
or je n'ai défini aucun réel :s.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2 j:=i/getvalmax;
J'ai mal réutilisé le GetValeurMax?
PS:Je précise que je suis sur Delphi 4.0 donc ne vous étonnez pas de voir pour récupérer la valeur par exemple :
au lieu de :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5 function uniter.GetValMax:integer; begin GetValMax:=ValMax; end;
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5 function uniter.GetValMax:integer; begin return (ValMax); end;
Partager