Discussion :

[guefrachi]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Jeankiki]

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 :

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
 
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 :

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
 
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;

[ouiouioui]

ou garder ta fonction tel quel et utiliser Form1.DateTimePicker1

[guefrachi]

Merci
c'est résolu. Mais pourquoi ce

TForm1.OnClick(Sender: TObject);

ça marche bien sans le mettre

[Jeankiki]

heu oui, c'était un exemple comme ça mais petite erreur, ce serait plutôt

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
procedure TForm1.DateTimePicker1Click(Sender: TObject);
begin
 
end;

[guefrachi]

ou garder ta fonction tel quel et utiliser Form1.DateTimePicker1

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

[popo]

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

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
 
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;