tableau d'éléments structurés?

Version imprimable

Bonjour à tous,
Je suis débutant en Delphi et j'essais actuellement de faire un tableau d'éléments structurés:
En fait ma structure se présente sous cette forme (en espérant qu'elle soit bonne syntaxiquement :? )
Code:

1 2 3 4 5 6 7 type mStructure = packed record strQuestion : String ; //libelle de la q° intCode : integer; //code permettant de vérifier la rép tabStrReponses : array of string; //tableau des réponses proposées strNomPhoto : String; //photo associée à la q° strCorrection : String; //correction de la q° end;
Ensuite je dis que le tableau mTabStrTableauGeneral est stucturé :

Code:

mTabStrTableauGeneral = array of mStructure;

Voila j'aimerais savoir où je dois mettre ces déclarations et par quelles méthodes on peut remplir ce tableau et extraire des données. Je n'ai pas trouvé d'exemple sur les tutoriels pour les tableaux d'éléments structurés :(

Merci d'avances

Salut

En ce qui concerne ta structure, il manque la taille du tableau tabStrReponses dans la structure et également la taille du tableau structuré mTabStrTableauGeneral.

Je t'ai fais un petit "programme" très très léger qui remplir ton tableau grâce à un bouton Remplir et un autre qui affiche ce qu'on a remplir grâce à un bouton Remplir.

Voici le code :

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

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Remplir: TButton;
    Afficher: TButton;
    procedure RemplirClick(Sender: TObject);
    procedure AfficherClick(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;

type mStructure = record
         strQuestion : String ;                //libelle de la q°
         intCode : integer;                     //code permettant de vérifier la rép
         tabStrReponses : array[1..10] of string; //tableau des réponses proposées
         strNomPhoto : String;                //photo associée à la q°
         strCorrection : String;               //correction de la q°
end;

var
  Form1: TForm1;
  mTabStrTableauGeneral: array[1..10] of mStructure;

implementation

{$R *.dfm}

procedure TForm1.RemplirClick(Sender: TObject);
var
i,indice:integer;

begin
for indice:=1 to 2 do
begin
 mTabStrTableauGeneral[indice].strQuestion:='Question '+IntToStr(indice);
 mTabStrTableauGeneral[indice].intCode:=indice;
 for i:=1 to 5 do
 mTabStrTableauGeneral[indice].tabStrReponses[i]:='Réponse '+IntToStr(i);
 mTabStrTableauGeneral[indice].strNomPhoto:='NomPhoto '+IntToStr(indice);
 mTabStrTableauGeneral[indice].strCorrection:='Correction '+IntToStr(indice);
end;
end;

procedure TForm1.AfficherClick(Sender: TObject);
var
i,indice:integer;
begin
for indice:=1 to 2 do
begin
  ShowMessage(mTabStrTableauGeneral[indice].strQuestion);
  ShowMessage(IntToStr(mTabStrTableauGeneral[indice].intCode));
  for i:=1 to 5 do
  ShowMessage(mTabStrTableauGeneral[indice].tabStrReponses[i]);
  ShowMessage(mTabStrTableauGeneral[indice].strNomPhoto);
  ShowMessage(mTabStrTableauGeneral[indice].strCorrection);
end;
end;

end.

J'espère que cela te servira et que c'est ce que tu attendais.
@+ ;)

PS: Je n'ai pas mis packed record lors de la déclaration de ta structure. Si quelqu'un peut me dire en quoi ce mot Packed est utile, ca serait gentil :)

04/10/2006, 14h02
edam

Citation:

Envoyé par ero-sennin

PS: Je n'ai pas mis packed record lors de la déclaration de ta structure. Si quelqu'un peut me dire en quoi ce mot Packed est utile, ca serait gentil :)

F1 est votre ami :lol: ;)
04/10/2006, 14h11
ero-sennin

Oui, j'ai lu ceci :

Citation:

Envoyé par Aide Delphi

Quand vous déclarez un type structuré, vous pouvez spécifier le mot réservé packed pour implémenter le stockage compressé des données. Par exemple :

type TNombres = packed array[1..100] of Real;

L'utilisation de packed ralentit l'accès aux données et, dans le cas d'un tableau de caractères, nuit à la compatibilité

(je passe ce qui est avant)

Je voulais juste savoir ce que ca veut dire : implémenter le stockage compressé des données.
Si tu as une meilleure explication, je suis prenant ;)
04/10/2006, 15h04
Linkin

Et en utilisant un TList ça ne pourrait pas simplifier (entre autres d'utiliser un tableau dynamique de structures)

essaye de crée une structure par example
Code:

1 2 3 4 5 struc=record //packed t:byte; s:string[21];//(taille+1) mod 4<>0 t:array[1..9] of char; end;
par example fait un test avec:
Code:

1 2 3 4 5 var z:struc begin caption:=inttostr(sizeof(z)); // en premier temp avec packed et 2 éme sans end;
pour voir la différence aussi en taill et en vitesse crée un fichier typé "struc" de 100000 enregist (lire et ecrir)
bon dev

04/10/2006, 15h26
ero-sennin

Merci edam ;)

Bon développement !
05/10/2006, 21h51
Sub0

Tu peux jetter un oeil sur ce sujet, ça pourrait t'intéresser.

N'oubli pas le tag resolu, à+