Discussion :

[smail21]

Bonjour
après avoir trouvé la réponse à mon problème de calcul de différence entre deux temps en millisecondes, je me suis retrouvé avec un autre problème , qui est l'enregistrement de cette différence :



vous remarquez que la durée qui est de type Time est =0, par contre le code que j'ai utillisé contient des types cardinals, alors j'ai pas su comment les enregistrer, même s'il accepte de faire une affectation d'un cardinal dans un champs Time.

voici les types des champs:

Sequence : String 7
TpsD: Time
TpsF : Time
Duree : Time
Result: string 15

et le code est le suivant :

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
 
procedure TFentree.BtnSearchClick(Sender: TObject);
var tour:integer;
 GT,FT,dif : cardinal;
    H,M,S,Z : word;
    result,result1,result2:string;
 
begin
 
test.first;
test.edit;
for tour:=1 to 100 do
begin
test.append;
testsequence.value:=nomseq.text;
GT := GetTickCount;
    Z  := GT mod 1000;
    S  := (GT div 1000) mod 60;
    M  := (GT div 60000) mod 60;
    H  := (GT div 3600000);
    result1 := format('%.2d:%.2d.%.3d',[M,S,Z]); { 0:00:00.000 }
 
testtpsd.value:=time;
 
 tabxClick(Sender);
 tabyClick(Sender);
 
testtpsf.value:=time;
testduree.value:=GetTickCount-Gt;
test.post;
end;
showmessage('test terminé');
 
end;

alors que dois-je faire ?

[ShaiLeTroll]

Soit stocker en LargeInteger, soit en integer simple au lieu du cardinal ...

[evarisnea]

bon à savoir: un Cardinal et un Integer sont tous deux des entiers, généralement sur 32bits, sauf qu'un Cardinal est non signé et un Integer est signé.