création de procédure avec delphi

Version imprimable

bjr, j'ai ecrit cette procédure:

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
procedure TForm9.calcul(tps1:tdatetime;s1,s2,s3,s4,s5,s6,s7,s8,s9,s10,s11,s12,s13,s14,s15,s16,s17,s18,s19,s20,s21,s22,s23,s24:integer);
var pat1,pat2,pat3,pat4,pat5,pat6,pat7,pat8,pat9,pat10,pat11,pat12,pat13,pat14,pat15,pat16,pat17,pat18,pat19,pat20,pat21,pat22,pat23,pat24:integer;
begin
pat1:=s1;
pat2:=s2;
pat3:=s3;
pat4:=s4;
pat5:=s5;
pat6:=s6;
pat7:=s7;
pat8:=s8;
pat9:=s9;
pat10:=s10;
pat11:=s11;
pat12:=s12;
pat13:=s13;
pat14:=s14;
pat15:=s15;
pat16:=s16;
pat17:=s17;
pat18:=s18;
pat19:=s19;
pat20:=s20;
pat21:=s21;
pat22:=s22;
pat23:=s23;
pat24:=s24;
 
      if (tps1>=strtotime('06:00:00'))and (tps1<=strtotime('07:00:00')) then
      s1:=s1+1;
      if (tps1>=strtotime('07:00:00'))and (tps1<=strtotime('08:00:00')) then
      s2:=s2+1;
      if (tps1>=strtotime('08:00:00'))and (tps1<=strtotime('09:00:00')) then
      s3:=s3+1;
      if (tps1>=strtotime('09:00:00'))and (tps1<=strtotime('10:00:00')) then
      s4:=s4+1;
      if (tps1>=strtotime('10:00:00'))and (tps1<=strtotime('11:00:00')) then
      s5:=s5+1;
      if (tps1>=strtotime('11:00:00'))and (tps1<=strtotime('12:00:00')) then
      s6:=s6+1;
      if (tps1>=strtotime('12:00:00'))and (tps1<=strtotime('13:00:00')) then
      s7:=s7+1;
      if (tps1>=strtotime('13:00:00'))and (tps1<=strtotime('14:00:00')) then
      s8:=s8+1;
      if (tps1>=strtotime('14:00:00'))and (tps1<=strtotime('15:00:00')) then
      s9:=s9+1;
      if (tps1>=strtotime('15:00:00'))and (tps1<=strtotime('16:00:00')) then
      s10:=s10+1;
      if (tps1>=strtotime('16:00:00'))and (tps1<=strtotime('17:00:00')) then
      s11:=s11+1;
      if (tps1>=strtotime('17:00:00'))and (tps1<=strtotime('18:00:00')) then
      s12:=s12+1;
      if (tps1>=strtotime('18:00:00'))and (tps1<=strtotime('19:00:00')) then
      s13:=s13+1;
      if (tps1>=strtotime('19:00:00'))and (tps1<=strtotime('20:00:00')) then
      s14:=s14+1;
      if (tps1>=strtotime('20:00:00'))and (tps1<=strtotime('21:00:00')) then
      s15:=s15+1;
      if (tps1>=strtotime('21:00:00'))and (tps1<=strtotime('22:00:00')) then
      s16:=s16+1;
      if (tps1>=strtotime('22:00:00'))and (tps1<=strtotime('23:00:00')) then
      s17:=s17+1;
      if (tps1>=strtotime('23:00:00'))and (tps1<=strtotime('00:00:00')) then
      s18:=s18+1;
      if (tps1>=strtotime('00:00:00'))and (tps1<=strtotime('01:00:00')) then
      s19:=s19+1;
      if (tps1>=strtotime('01:00:00'))and (tps1<=strtotime('02:00:00')) then
      s20:=s20+1;
      if (tps1>=strtotime('02:00:00'))and (tps1<=strtotime('03:00:00')) then
      s21:=s21+1;
      if (tps1>=strtotime('03:00:00'))and (tps1<=strtotime('04:00:00')) then
      s22:=s22+1;
      if (tps1>=strtotime('04:00:00'))and (tps1<=strtotime('05:00:00')) then
      s23:=s23+1;
      if (tps1>=strtotime('05:00:00'))and (tps1<=strtotime('06:00:00')) then
      s24:=s24+1;
end;

et quand je l'appelle à partir de mon programme:calcul(temps1,a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12,a13,a14,a15,a16,a17,a18,a19,a20,a21,a22,a23,a24);
sachant que j'initialise les a1,a2,....a24 à 0, j'obtiens tjrs des '0' comme résultats, je ne comprends pas pourquoi.

30/08/2009, 15h53
Just-Soft
Salut!

je ne sais pas où est l'erreur mais je peux te donner quelques conseils et astuces pour améliorer ton code.
- du moment que tu attends un résultat c'est une fonction dont tu as besoin et pas une procédure. cette façon te permettra d'utiliser le mot clé Result pour retourner ton résultat.
- tu peux améliorer les tests if par un case of, ton code sera plus lisible
- pour rechercher la cause à ton pourquoi je te suggère d'utiliser l'exécution pas à pas en mettant un point d'arrêt dans ta fonction ou le mieux lors de son appel.
- tes tests sont soumis à une valeur donnée à tps1 ! es-tu sûr que tps1 reçoit bien une valeur ?
30/08/2009, 15h55
Invité1
salut
essaies avec ça
Code:

1 2 procedure TForm9.calcul(tps1:tdatetime; var s1,s2,s3,s4,s5,s6,s7,s8,s9,s10,s11,s12,s13,s14,s15,s16,s17,s18,s19,s20,s21,s22,s23,s24:integer);
les valeurs s1,s2,s3,s4,s5,s6,s7,s8,s9,s10,s11,s12,s13,s14,s15,s16,s17,s18,s19,s20,s21,s22,s23,s24 seront modifiées, il faut les Précéder de "var"

bonne chance

bon soyons un peu pédagogue... :)

tu passes 25 paramètres à ta fonction, ça fait un peu bcp non ?
tu convertis des chaines en temps à chaque appel alors que finalement tu ne testes que l'heure...on doit pouvoir faire plus joli non ?

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
 
uses
  DateUtils;
 
type
  THeures=array[1..24] of Integer;
 
procedure calcul(tps: TDateTime; var Heures: THeures);
var
  h : Integer;
begin
  h := HourOf(tps); // quelle heure est-il ?
  h := h - 5; // puisque s1 correspond à 6h dans ton exemple
  if h < 1 then
    Inc(h, 24); // on boucle au besoin
  Inc(Heures[h]); // trop facile :)
end;
 
procedure TForm1.FormCreate(Sender: TObject);
var
  h: THeures;
  i: Integer;
  s: string;
begin
  FillChar(h, SizeOf(h), 0); // tout à 0
  Calcul(Now, h);
  s := '';
  for i := 1 to 24 do
    s := s + IntToStr(i) + '=' + IntToStr(h[i]) + ' ';
  ShowMessage(s);
end;

30/08/2009, 19h01
Chyokyka

OMG, la fonction de malade :calim2:
30/08/2009, 19h17
mick605

Tiens, je connaissais pas le HourOf ;)
31/08/2009, 09h54
ninita

Création de procedure avec delphi

bjr, et merci bcp vous m'avez sauvé:ccool: