Bonjour
j'ai fais un compteur qui compte combien y a t il des enregistrements à une date choisi à partir d'un datetimepiker, le souci que mon compteur n'incrémente pas
Le résultat est variable "h"
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 begin D1:=datetimepicker1.DateTime; D2:=datetimepicker2.DateTime; L:=TStringList.Create; S:=TStringList.Create; L.LoadFromFile('C:\stat\Fichier.txt'); I:=0; h:=0; repeat L1:=L.Strings[i]; s.Delimiter:=','; s.DelimitedText:=L1; K:=s[0]; Date:=K[4]+K[5]+K[3]+K[1]+K[2]+K[6]+'20'+K[7]+K[8]; Hour:=S[1]; Subno:=S[8]; Apl_Name:=S[3]; Stat1:=copy(L1,Length(L1)-103,50); Stat1_1 :=copy(Stat1,Length(Stat1)-49,1); if Stat1_1=',' then Stat1:=copy(L1,Length(L1)-102,50) else Stat1:=copy(L1,Length(L1)-103,50); Stat1_1 :=copy(Stat1,Length(Stat1)-49,1); if strtodate(Date)=D1 then h:=h+1; i:=i+1; until i=L.Count; showmessage(inttostr(h))
Partager