Discussion :

[aydin24alain]

J'ai un petit souci, sous Delphi j'ai un grand nombre d'Edit qe je souhaite enregistrer dans un fichier. Comment créer une boucle qui m'enregistre tous les text(s) à tour de role.

Exemple :
Quand je met : writeln(fichier,Edit[i].text) // il en veux pas.
Comment faire ?

[souviron34]

faudrait déjà savoir lire

le forum Delphi c'est ici : http://www.developpez.net/forums/forumdisplay.php?f=15

[evarisnea]

un truc du genre

Code :

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

1
2
3
4
 
for i := 0 to ComponentCount - 1 do
  if Components[i] is TEdit then
    writeln(fichier,TEdit(Components[i]).text);

le code est censé parcourir tous les composants "possédés" par la fiche, vérifier pour chaque composant si celui ci est un TEdit, et enregistrer alors sa propriété Text à l'aide d'un cast.

utilise l'aide de delphi pour la propriété Components.

[Aka Guymelef]

Je te propose le code suivant (à l'intérieur d'un évènement de ta form par exemple) :

Code :

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

1
2
3
4
5
6
7
var
  Cpt: Integer;
begin
  for Cpt := 0 to ComponentCount - 1 do
    if ( Components[Cpt] is TEdit ) then
      // enregistrer le TEdit en castant TEdit( Components[Cpt] ) pour avoir accès à la propriété Text
end;

Edit : Grillé

[aydin24alain]

Comment on fait pour récupérer dans le même ordre ?

[Aka Guymelef]

Il n'y a rien de prêt à l'emploi pour ça, si tu veux les récupérer dans l'ordre tu dois faire un tri dans un tableau temporaire en te basant sur le Name, le TabOrder ou encore le Tag, etc... un champ qui permette l'ordonnancement.

[aityahia]

Il n'y a rien de prêt à l'emploi pour ça, si tu veux les récupérer dans l'ordre tu dois faire un tri dans un tableau temporaire en te basant sur le Name, le TabOrder ou encore le Tag, etc... un champ qui permette l'ordonnancement.

c'est pas nécessaire, il peut toujours organiser dans ça fiche l'ordre de création des objet et ça sera l'ordre de parcours en gardant les même boucles.

[Aka Guymelef]

Moui c'est vrai néanmoins je trouve ça difficilement évolutif, si jamais il a besoin de rajouter un TEdit en plein milieu, il faut se re-palucher tout, pas terrible

Mais bon le soucis d'évolution n'est peut-être pas un impératif aussi. A voir...

[Ben_Le_Cool]

Comment on fait pour récupérer dans le même ordre ?

Il faut d'abor definir c'est quoi ton critere de tri? L'ordre de creation? De gauche a droite? du haut vers le bas? Le nom? le contenu?

Dans tous les cas, tu peux mettre ca dans une liste temporaire et appliquer ton tri.

[Linkin]

Autrement il faut regarder du côté de FindComponents (Recherche un composant par son nom), s'ils sont nommés Edit1, Edit2 etc.

[Aka Guymelef]

Autrement il faut regarder du côté de FindComponents (Recherche un composant par son nom), s'ils sont nommés Edit1, Edit2 etc.

C'est également une solution envisageable si les composants sont nommés incrémentalement

[Linkin]

Je suis d'accord que sémantiquement, ça n'a pas de sens de les nommer de cette façon .

[aydin24alain]

Merci à tous.