Discussion :

[iam]

j'ai une application dont j'ai mis des controles sur la date, le pb la date dont j'ai travaillé est au format jj/mm/aaaa, quand j'ai installé mon appli dans une autre pc qui a la date au format jj/mm/aa il m'affiche erruer car mon controle ne fonctionne pas correctement, comment définir le format par défulat dans mon apllication quelque soit le format définit dans la configuration du pc?

[colombe]

il faut recuperer la date systeme du PC et retourner sa taille
pour cela voici un exemple

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
procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
edit1.Text:=datetostr(date) ;
edit2.Text:=inttostr(length(edit1.Text));
edit2.Text:=inttostr(length(edit1.Text)-6);
if edit2.Text='2' then
begin
maskedit1.EditMask:='!99/99/00;1;_';
end
else
begin
maskedit1.EditMask:='!99/99/0000;1;_';
end;
end;

[qi130]

Cette instruction devrait suffire:

Code :

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

ShortDateFormat:='dd/MM/yyyy';

[maamar1979]

salam

je te propose de laisser ton app tel quel et de modifier le format de la date sur le PC cible (dans paneau de config -> options regionale et linguistique).

[edam]

j'ai jamai rencontré un tel probléme
mais je pense

Cette instruction devrait suffire:

Code :

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

ShortDateFormat:='dd/MM/yyyy';

sufira,,non??