Discussion :

[dehorter olivier]

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 :

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

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 :

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

 tTabChamps  = Array OF tChamps;

Je cree bien sur une variable

Code :

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

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 :

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

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 :

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

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

[sjrd]

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.

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.

[dehorter olivier]

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 !

une solution ?

a+
olivier

[Gilbert Geyer]

Bonjour,

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

Code :

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

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+

[dehorter olivier]

Merci bcp!

je teste ca ce soir a la maison...


a+

olivier

[guillemouze]

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

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

Code :

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

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;

[dehorter olivier]

Ca marche impecablement bien




merci a tous

olivier