Discussion :

[iznogoud_23]

bonjour a Tous

Voila, je débute en Delphi et ce petit bout de code me pose problème
Lorsque je clique sur le bouton, j'obtiens un débordement de pile. Pourquoi?

Merci d'avance

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
 
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
  Type Location = record
      Ville     : string[255];
      Annee     : string[4];
      Latitude  : real;
      Longitude : real;
  end;
 
  Type Releve = record
      Heure     : string[2];
      Minute    : string[2];
      Tps       : integer;
      Tpr_Min   : real;
      Tpr_Max   : real;
      Press_Min : real;
      Press_Max : real;
      Precip    : integer;
      Humidite  : integer;
      Neige     : integer;
      Dir_Vent  : integer;
      Force_Vent: integer;
      Comments  : string[255];
  end;
 
  Type Fichier = record
      Locdata   : Location;
      NumReleve : array[1..365] of integer;
      Donnees   : array[1..365,1..24] of Releve;
  end;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure CreateSheet(Struct: Fichier);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
var
  Form1: TForm1;
  Classeur: Fichier;
 
implementation
 
{$R *.dfm}
Procedure TForm1.CreateSheet(Struct: Fichier);
begin
  Struct.Locdata.Ville:='test';
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  createSheet(Classeur);
end;
 
end.

[evarisnea]

j'ai repris le code que tu as posté, j'ai cliqué sur le bouton (plusieurs fois) sans aucun débordement de pile. est tu sur que ce soit ce code qui pose problème ?

[ShaiLeTroll]

Ta structure est assez grosse !

Va dans Projet | Options
Onglet "Lieur", Groupe "Taille de la Mémoire"
Combien as tu dans Pile Maximum en général c'est $00100000 = 1Mo

As vu de nez, ta strucutre prend dans les 2,5 Mo "365 * 24 * (255 + ~50)", donc soit agrandi la pile (mauvais idée)

soit passez par de l'allocation dynamique voir "Taille d' un tableau de tableau"
tu as la méthode, via GetMem très intéressant si tu souhaite gérer ta mémoire et surtout tricher pour certaines opérations ...
tu as la méthode du SetLength, facile et efficace qui est pour toi la bonne méthode ...

[iznogoud_23]

en fait, je ne peux pas modifier la dimension du tableau malheureusement.
Je pense que le pb viens que je passe tout le tableau en argument.

en effet, si je fais Struct.LocData.Ville:='test', j'ai le debordement, alors que Classeur.LocData.Ville:='test' marche.

Passer un pointeur vers le tableau plutot que le tableau lui meme ne resoudrait-il pas le probléme? Et si oui comment faire (suis un vrai bille en ce qui concerne les pointeurs )

[Graffito]

Bonjour,

Vu la taille de la structure, mieux vaut la passer par adresse au lieu de la passer par valeur:

Code :

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

Procedure TForm1.CreateSheet(var Struct: Fichier);

[iznogoud_23]

Merci Graffito, ca marche (en fait, mon code était evidement un petit peu plus compliqué que l'exemple )

Pour info, que change le fait de mettre "var" en ce qui concerne la gestion de la memoire??

[evarisnea]

Pour info, que change le fait de mettre "var" en ce qui concerne la gestion de la memoire??

sans le var, c'est la copie du paramètre qui est utilisée dans la procédure (on travaille avec une copie, les modifications n'ont d'effet que dans la procédure); avec le var c'est l'adresse du paramètre qui est passé (les modifications sont donc persistantes).
ainsi, on peut dire que le fait de mettre "var" permet "d'économiser" un peu de mémoire lors de l'exécution de l'application.

[edam]

Code :

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

1
2
3
4
5
6
 
  Type Fichier = record
      Locdata   : Location;
      NumReleve : array[1..365] of integer;
      Donnees   : array[1..365,1..24] of Releve;
  end;

si je comprend bien tu utilise ces record pour lire et ecrire dans un fichier, et aussi des données relever pour une année ,
pourquoi ne pas utlisé une base de données?? , comme access,IB ou FB??

[Paul TOTH]

si tu peux changer le format du fichier, moi je ferais ceci (au minimum)

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
 
Type 
 Location = packed record
   Ville     : string[255];
   Annee  : word;
   Latitude  : single;
   Longitude : single;
  end;
 
  Releve = packed record
    Heure     : byte;
    Minute    : byte;
    Tps       : integer;
    Tpr_Min   : single;
    Tpr_Max   : single;
      Press_Min : single;
      Press_Max : single;
      Precip    : integer; // byte si c'est un %
      Humidite  : integer;
      Neige     : integer;
      Dir_Vent  : integer;
      Force_Vent: integer;
      Comments  : string[255];
  end;
 
  Type Fichier = packed record
      Locdata   : Location;
      NumReleve : array[1..365] of integer; // 1..24 ? alors byte
      Donnees   : array[1..365,1..24] of Releve;
  end;

[iznogoud_23]

Merci pour toutes ces infos

Edam, si je n'utilise pas de base de données, c'est uniquement pour une raison toute simple : je sais pas encore faire ca
Pour etre plus precis, c'est surtout pou le deploiement de l'application : il faut fournir le moteur de la base de bonnées non? (donc installer Access, ou FB, ou IB sur la machine cible)?

[Rayek]

Pour ma part, vu la taille des tableaux et des structures, il serait préférable de passer par une base de données ou par un système en xml.

Merci pour toutes ces infos

Edam, si je n'utilise pas de base de données, c'est uniquement pour une raison toute simple : je sais pas encore faire ca
Pour etre plus precis, c'est surtout pou le deploiement de l'application : il faut fournir le moteur de la base de bonnées non? (donc installer Access, ou FB, ou IB sur la machine cible)?

Non, avec access pas besoin, si les postes sont minimum en Win2k.

http://delphi.developpez.com/faq/?pa...nstallerAccess

[edam]

(donc installer Access, ou FB, ou IB sur la machine cible)?

non, pour FB voir ici et ici
mais aussi il y a Midas si tu préfères les fichier

[iznogoud_23]

bon, j'ai jeté un œil (mais je l'ai récupéré, rassurez-vous ) sur firebird et ça pourrais le faire. (mybase semble plus limitée, pas de requêtes possible a ce que j'ai vu)

Cependant, étant une bille en ce qui concerne les bases de données (et oui, la nature m'a pas gâté...), je vois pas trop comment structurer les tables sachant que je souhaite avoir un fichier par ville et par année. Dans ce fichier, je dois pouvoir sauvegarder les données propres au lieu de mesure (nom de la ville, année, longitude, latitude, code id de la vile) ainsi que les relevés proprement dit (de 1 à 24 relevés (nombre variable d'un jour à l'autre) contenant différents paramètres, et ce sur 365 jours).

Si les pro de la BDD ont une idée, j'en leur en serai grandement reconnaissant.

De plus, je voudrais sauver les fichiers au format XML, is it possible??

[Rayek]

Table Ville

• IdVille : Auto Incrément
• NomVille : String

Table Releves

• IdReleve : Auto incrément
• IdVille : Integer
• DateReleve : DateTime
• Tps : integer;
• Tpr_Min : single;
• Tpr_Max : single;
• Press_Min : single;
• Press_Max : single;
• Precip : integer;
• Humidite : integer;
• Neige : integer;
• Dir_Vent : integer;
• Force_Vent: integer;

Table RelevesCommentaires

• IdReleve : integer
• Comments : Memo;

Les champs soulignés sont les clefs/index de tes tables.

[iznogoud_23]

bon bien, ca avance doucement

Je commence a bien cerner comment creer une base de donnée. Finalement, pour debuter, et contrairement a ce que j'ai dit, je vais utiliser mybase. Cependant, dns le tutoriel que j'ai vu, il semble qu'il faille creer un fichier xml par table. Or moi je souhaiterai enregistrer toutes les tables dans un seul fichier XML
Comment faire??

Merci d'avance

[Sub0]

Probablement que ce sujet t'intérressera.

[iznogoud_23]

Intéressant sujet Sub0, merci, mais ca correspond pas encore tout a fait a ce que je pensais faire

En gros, pour reprendre à 0, voici le problème.
Je souhaite programmer un appli permettant de stocker et modifier des relevés météo dans une BDD (Firebird ou mybase)
J'aurai 3 Tables (cf post de rayek) possédant des relations maitre-detail entre elles.
Je souhaite que ces 3 tables soient sauvegardées dans un seul et meme fichier (en XML si possible).
Je cherche un tuto ou un programme exemple

Merci

[Aka Guymelef]

Dans ton cas il faut que tu créé toi-même ta fonction d'export XML en utilisant un composant gérant l'XML ou encore l'API MsXml. Voir ce tuto ou celui-ci.

[iznogoud_23]

en fait, j'ai deja un fonction d'export en XML, basée sur JvSimpleXML de la JVCL pour sauver et lire mes records.
J'ai cependant un pb avec la propriété "properties.value" qui me retourne systématiquement un chaine string vide (une idées?)
Que plus les lectures/écritures sont relativement longue, c'est pour cela que je voulais m'orienter vers une BDD Firebird

[Aka Guymelef]

Arf pardon j'ai mal lu votre post sur la page précédente, je croyais que vous vouliez un export XML en plus du stockage en BDD. Sinon vu l'ampleur des différentes données stockées moi aussi je serais d'avis d'utiliser plutôt une base de donnée, c'est fait pour ça

Après pour le moteur, à vous de voir ce qu'il vous convient le mieux.