Discussion :

[ovni76]

Bonjour,
Je suis un petit utilisateur de lazarus et j'ai fait mon apprentissage avec Delphi 4 ...donc c'est du vieux.
Je développe pour moi ou mon environnement de petites appli avec sqlite et lazarus sous linux et pour certaines je les convertie sous xp.
J'utilise la vers 0.9.31 de lazarus avec fpc 2.6 mais voila mes problèmes :
1) j'utilise depuis longtemps une préparation de l'environnement de mes appli avec la définition de certains paramètres à la création de la fiche principale comme ci-joint

Code :

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

1
2
3
4
5
6
7
8
 
procedure TFautomarcel.FormCreate(Sender: TObject);
begin
   // préparation de l'environnement
  ShortDateFormat:='DD/MM/YYYY';
  DateSeparator:='/';
  DecimalSeparator:=',';
end;

à la compilation j'ai des erreurs du genre

Code :

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

Symbol "Short DateFormat" is deprecated

et naturellement des erreurs à l'execution
Mon installation est une intallation de base les seules options modifiées de l'EDI sont la police de caractères et la définition de la place de make, jinstalle aussi le paquet sqlite3.

Je me suis aperçu que j'ai une varaiable nouvelle dans mes unités, une variable de compilation me semble-t-il en rouge juste après le terme implementation

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
mplementation
 
{$R *.lfm}
 
{ TFautomarcel }
 
procedure TFautomarcel.FormCreate(Sender: TObject);
begin
   // préparation de l'environnement
  ShortDateFormat:='DD/MM/YYYY';
  DateSeparator:='/';
  DecimalSeparator:=',';
end;

info que je n'ai pas avec les anciennes unités développées avec fpc 2.4.4.

Ne lisant pas l'anglais je n'ai pas trouvé de solution si ce n'est de revenir à un ancien fpc et lazarus.
Donc j'ai besoin d'un peu d'aide pour avancer et comprendre.
Merci d'avance

[Invité]

Bonjour Jean,

C'est curieux en effet. J'ai ajouté les 3 lignes que vous précisez dans le Create de la Form (dans un nouveau projet) sous deux environnements différents.
Voici les résultats obtenus :

Win 32-Laz 0.9.31-FPC 2.6.1
Options changed, recompiling clean with -B
Hint: Start of reading config file G:\lazarus\0.9.31-35081-fpc-2.6.1-20120202\fpc\2.6.1\bin\i386-win32\fpc.cfg
Hint: End of reading config file G:\lazarus\0.9.31-35081-fpc-2.6.1-20120202\fpc\2.6.1\bin\i386-win32\fpc.cfg
Free Pascal Compiler version 2.6.1 [2012/02/02] for i386
Copyright (c) 1993-2011 by Florian Klaempfl and others
Target OS: Win32 for i386
Compiling C:\Users\selzig\AppData\Local\Temp\project1.lpr
Compiling unit1.pas
unit1.pas(34,18) Warning: Symbol "ShortDateFormat" is deprecated
unit1.pas(35,16) Warning: Symbol "DateSeparator" is deprecated
unit1.pas(36,19) Warning: Symbol "DecimalSeparator" is deprecated
unit1.pas(15,26) Hint: Parameter "Sender" not used
Compiling resource lib\i386-win32\project1.or
Linking C:\Users\selzig\AppData\Local\Temp\project1.exe
61 lines compiled, 8.5 sec , 1192880 bytes code, 295148 bytes data
3 warning(s) issued
3 hint(s) issued
Project "project1" créer avec succès

Linux x86_64-Laz 0.9.31-FPC 2.7.1
Options changed, recompiling clean with -B
Hint: Start of reading config file /etc/fpc.cfg
Hint: End of reading config file /etc/fpc.cfg
Free Pascal Compiler version 2.7.1 [2012/03/06] for x86_64
Copyright (c) 1993-2011 by Florian Klaempfl and others
Target OS: Linux for x86-64
Compiling /tmp/project1.lpr
Compiling unit1.pas
unit1.pas(34,18) Warning: Symbol "ShortDateFormat" is deprecated
unit1.pas(35,16) Warning: Symbol "DateSeparator" is deprecated
unit1.pas(36,19) Warning: Symbol "DecimalSeparator" is deprecated
unit1.pas(15,26) Hint: Parameter "Sender" not used
Compiling resource lib/x86_64-linux/project1.or
Linking /tmp/project1
/usr/bin/ld: warning: link.res contains output sections; did you forget -T?
61 lines compiled, 5.4 sec
3 warning(s) issued
3 hint(s) issued
Project "project1" créé avec succès

Peut-être le problème apparaît-il uniquement en Laz 0.9.31-FPC 2.6.1 sous Linux ? Je pourrai tester demain matin. D'un autre côté, des "is deprecated" apparaissent en grand nombre lors de la compilation de Lazarus... Je ne sais pas si c'est vraiment inquiétant.

Cordialement. Gilles

[ovni76]

Merci pour ces essais, je précise que je suis en 32 bits sous fedora 15.
Le message d'erreur

Code :

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

Symbol "Short DateFormat " is deprecated

exitait peut-être avant mais come je n'avais pas d'erreur je n'y ai pas fait attention.
Mais mon problème de varaiable d'environnement ne viendrait-il pas de la variable de compilation, nouvelle pour moi et dont je ne connais pas l'usage.
En complément d'information je joins le début d'un de mes programmes qui me sert à faire une sauvegarde de mes données avec une variable de type integer qui dans une "boucle" case donne le chemin de la sauvegarde suivante avec un retour au premier chemin si le dernier était le sixième.
Et avec ce fpc 2.6 il ya un plantage avec arrêt sur

Code :

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

XSAUVE_X:=StrToInt(MSAUVE_X);

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
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
var
  Fautomarcel: TFautomarcel;
  MQ,MQ1,Q0,Q1,Q2,Q3,Q4,Q5,Q6,Q7,Q8:String;
  MSAUVE_A,MSAUVE_B,MSAUVE_C,MSAUVE_D,MSAUVE_E,MSAUVE_F,MSAUVE_X:String;
  MSOURCE,MDESTINATION,MCHEMIN,MBASE,MANNEE:String;
  XSAUVE_X:integer;
 
implementation
 
{$R *.lfm}
 
{ TFautomarcel }
 
procedure TFautomarcel.FormCreate(Sender: TObject);
begin
   // préparation de l'environnement
  ShortDateFormat:='DD/MM/YYYY';
  DateSeparator:='/';
  DecimalSeparator:=',';
end;
 
procedure TFautomarcel.FutureSauvegarde;
begin
  if data.divers.RecordCount=1 then // le fichier n'est pas vide
  begin
  MSAUVE_A:=data.divers.FieldByName('SAUVE_A').AsString;
  MSAUVE_B:=data.divers.FieldByName('SAUVE_B').AsString;
  MSAUVE_C:=data.divers.FieldByName('SAUVE_C').AsString;
  MSAUVE_D:=data.divers.FieldByName('SAUVE_D').AsString;
  MSAUVE_E:=data.divers.FieldByName('SAUVE_E').AsString;
  MSAUVE_F:=data.divers.FieldByName('SAUVE_F').AsString;
  MSAUVE_X:=data.divers.FieldByName('SAUVE_X').AsString;
  XSAUVE_X:=StrToInt(MSAUVE_X);
    Case XSAUVE_X of
    1:
      begin
      MDESTINATION:='tablesA/';
      MSAUVE_X:='2';
      end;
    2:
      begin
      MDESTINATION:='tablesB/';
      MSAUVE_X:='3';
      end;
    3:
      begin
      MDESTINATION:='tablesC/';
      MSAUVE_X:='4';
      end;
    4:
      begin
      MDESTINATION:='tablesD/';
      MSAUVE_X:='5';
      end;
    5:
      begin
      MDESTINATION:='tablesE/';
      MSAUVE_X:='6';
      end;
    6:
      begin
      MDESTINATION:='tablesF/';
      MSAUVE_X:='1';
      end;
    end;
  end;
ESauvegarde.Text:=MDESTINATION;
ESauvegarde.Update;
end;

Cette forme de programmation, je l'utilise depuis plusieurs années sans problème pour définir la forme de certaines variables et me permettre une transposition simple sous XP
C'est la seule façon que j'ai trouvé pour définir le format date, le séparateur de date et la virgule décimale.
Comment faire avec fpc 2.6 ?
A demain

[ovni76]

Je trouvais la nouvelle définition des paramètres d'environnement au lieu de

Code :

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

1
2
3
ShortDateFormat:='DD/MM/YYYY';
  DateSeparator:='/';
  DecimalSeparator:=',';

il faut définir

Code :

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

1
2
3
defaultFormatSettings.DateSeparator:='/';
  defaultFormatSettings.DecimalSeparator:=',';
  defaultFormatSettings.CurrencyString:='DD/MM/YYYY';

quand au problème avec

Code :

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

XSAUVE_X:=StrToInt(MSAUVE_X);

c'est une erreur de conversion car dans mon fichier la variable MSAUVE_X est vide.

Donc il ne reste plus que la fonction de compilattion

Code :

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

1
2
3
4
5
implementation
 
{$R *.lfm}
 
{ TFautomarcel }

et mes problèmes actuels seront résolus

[ovni76]

Suite au message précédent pour avoir les mêmes résultats avec la date il faut utiliser

Code :

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

defaultFormatSettings.ShortDateFormat:='DD/MM/YYYY';

pour avoir le format date avec les 8 chiffres.
A+

[Jon Shannow]

Code :

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

  defaultFormatSettings.CurrencyString:='DD/MM/YYYY';

T'es sûr que c'est CurrencyString, ça ?

[ovni76]

Et non,
Voir ma réponse précédente avec la première version la date est en format je dirais court le 01/03/2012 est rendu en 1/3/10 c'est le pourquoi de ma dernière réponse pour avoir le format long.
Je rappelle que je suis sous Linux et j'utilise ces paramètres pour ne pas avoir de problème de conversion vers XP.
A+