déclaration des variables dans une procédure ou fonction

Version imprimable

16/07/2010, 19h10
guefrachi

déclaration des variables dans une procédure ou fonction
bonjour
lorsque j'utilise des objets (tels que listbox ou DateTimePicker) dans une procédure bouton clic ça marche sans problème, mais lorsque je définis ma propre procédure ou fonction comme celle ci
Code:

1 2 3 4 5 6 7 8 function dat():string; var datt:string; begin datt:=datetostr(DateTimePicker1.Date); datt[3]:='_'; datt[6]:='_'; result:=datt; end;
on me dit que l'objet DateTimePicker1 est non déclaré (de même avec listbox....)

est ce que je dois déclarer chaque objet ajouté dans la zone "var" du programme?

Merci d'avance

Salut,
Ben dans le cas du OnClick ça fonctionne car tu as sans doute déposé un objet DateTimePicker sur ta fiche et l'objet si tu veux est déclaré sur la fiche.

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
 
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;
 
type
  TForm1 = class(TForm)
     DateTimePicker1: TDateTimePicker;  
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
var
  Form1: TForm1;
...
procedure TForm1.OnClick(Sender: TObject);
begin
 
end;
 
function dat():string;
var datt:string;
   begin
 datt:=datetostr(DateTimePicker1.Date);
datt[3]:='_';
datt[6]:='_';
    result:=datt;
end;

Dans le cas de ta fonction, tu as plusieurs possibilitées. Tu dois soit le déclarer dans le var de ta fonction ou alors le déclaré en variable globale.
Ou alors tu dois mettre ta fonction dans ton Type TForm1

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
 
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;
 
type
  TForm1 = class(TForm)
     DateTimePicker1: TDateTimePicker;  
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
     function dat():string;
  end;
 
var
  Form1: TForm1;
...
procedure TForm1.OnClick(Sender: TObject);
begin
 
end;
 
function TForm1.dat():string;
var datt:string;
   begin
 datt:=datetostr(DateTimePicker1.Date);
datt[3]:='_';
datt[6]:='_';
    result:=datt;
end;

17/07/2010, 10h37
ouiouioui

ou garder ta fonction tel quel et utiliser Form1.DateTimePicker1
17/07/2010, 11h36
guefrachi

Merci
c'est résolu. Mais pourquoi ce

Citation:

TForm1.OnClick(Sender: TObject);

ça marche bien sans le mettre
17/07/2010, 22h09
Jeankiki
heu oui, c'était un exemple comme ça mais petite erreur, ce serait plutôt
Code:

1 2 3 4 5 procedure TForm1.DateTimePicker1Click(Sender: TObject); begin end;
18/07/2010, 12h25
guefrachi

Citation:

ou garder ta fonction tel quel et utiliser Form1.DateTimePicker1

tu as raison c plus simple
Merci pour vos réponses

Ou encore mieux car réutilisable pour n'importe lequel de tes DateTimePicker :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
procedure TForm1.DateTimePicker1Click(Sender: TObject);
var StDate : String;
begin
   StDate := dat(DateTimePicker1.Date);
   ...
end;
 
function dat(UneDate : TDateTime):string;
var datt:string;
begin
  datt:=datetostr(UneDate);
  datt[3]:='_';
  datt[6]:='_';
  result:=datt;
end;