TStrings dans un Record

Bonjour a tous

je pense faire totalement fausse voie, mais bon !

Dans un record, j'ai integre un tStrings pour tenir compte d'une certaine variabilite dans les informations a y entrer

Code:

1
2
3
4
5
6
7
8
9
10
TYPE
  tChamps    =   RECORD
                    Id                : Integer;
                    Entete            : String[30];
                    CASE Code : Boolean OF
                       True : (id_Code         : Byte;
                               Propre          : Boolean;
                               ListCode        : TStrings;
                               );
                 END;

Ensuite un tableau dynamyque de ces record :
TYPE

Code:

tTabChamps = Array OF tChamps;

Je cree bien sur une variable

Code:

tabChamps : tTabChamps;

Mon tableau est inialise avec setlength(tabchamps, x);

et son chargement fonctionne bien avec tous les parametres :
Id,
Entetes, etc

mais evidemment des que j'essaye d'ajouter un truc dans la tstrings ca plante (j'imagine parce qu'elle n'a pas ete declare).

Comment puis-je faire ?

j'ai essaye une autre solution en changeant la tStrings en un autre Array dynamique

Code:

1
2
3
4
5
6
7
8
9
10
TYPE
  tChamps    =   RECORD
                    Id                : Integer;
                    Entete            : String[30];
                    CASE Code : Boolean OF
                       True : (id_Code         : Byte;
                               Propre          : Boolean;
                               ListCode        : Array of String;
                               );
                 END;

mais ca ne marche, delphi demande de rendre ce second tableau statique

Code:

1
2
3
4
5
6
7
8
9
10
TYPE
  tChamps    =   RECORD
                    Id                : Integer;
                    Entete            : String[30];
                    CASE Code : Boolean OF
                       True : (id_Code         : Byte;
                               Propre          : Boolean;
                               ListCode        : Array[1..100] of String;
                               );
                 END;

mais evidemment ca prendrait trop de place

qq a t-il une idee ??

a+

olivier

Citation:

Envoyé par dehorter olivier

mais evidemment des que j'essaye d'ajouter un truc dans la tstrings ca plante (j'imagine parce qu'elle n'a pas ete declare).

Comment puis-je faire ?

C'est plutôt parce qu'elle n'a pas été créée (TStringList.Create). Tu dois créer explicitement le champ ListCode de chaque record.

Citation:

Envoyé par dehorter olivier

mais ca ne marche, delphi demande de rendre ce second tableau statique

Normal, tu ne peux pas mettre de champ requiérant une initialisation dans un case de record. N'utilise pas de case ici.

Merci de l'info

c'est vrai que declarer et creer ne veulent pas dire la meme chose, c'est ce que je sousentendais (mon clavier a fourche !).

Mais je ne vois pas comment on peut creer le tstrings au pour chaque Records en utilisant setlength(x,x) ?

desole de t'embeter avec ca !:oops:

une solution ?

a+
olivier

Bonjour,
Citation:
j'ai essaye une autre solution en changeant la tStrings en un autre Array dynamique
Code:

1 2 3 4 5 6 7 8 9 10 TYPE tChamps = RECORD Id : Integer; Entete : String[30]; CASE Code : Boolean OF True : (id_Code : Byte; Propre : Boolean; ListCode : Array of String; ); END;
mais ca ne marche, delphi demande de rendre ce second tableau statique
... Delphi m'a fait le même coup dans un autre contexte.
... Du coup j'ai déclaré le type = tAOS; et remplacé l'équivalent de ListCode : Array of String; par ListCode : tAOS; et il a accepté la syntaxe et la suite a bien fonctionné.

Par contre avant d'ajouter une string dans chacun des enregistrements il faut bien sûr faire le setLength() de préallocation pour chacun des enregistrements complété, si besoin est, d'une procédure de croissance du SetLength en cas de dépassement du setLength initial ... alors qu'en utilisant des StringLlists la préallocation puis la croissance sont gérés par les sous-couches dès lors qu'on a fait le MaStringList.Create pour chacun des enregistrements.

A+ :D

Merci bcp!

je teste ca ce soir a la maison...

a+

olivier

Citation:

Mon tableau est inialise avec setlength(tabchamps, x);

et si après ca tu fais un "InitStringlists(tabchamps);"
avec la fonction suivante:
Code:

1 2 3 4 5 6 7 8 9 procedure InitStringLists(ATab: tTabChamps); var i: integer; begin for i := 0 to length(ATab)-1 do if not Assigned(ATab[i].ListCode) then ATab[i].ListCode := TStringList.Create; end;

Ca marche impecablement bien

:king:

merci a tous

olivier