Discussion :

[onet]

Salutation a tous.

Voila, je me remets gentiment a Delphi, après une pause de 3 ans, et d'autres langages entre 2.

Ma première petite application? Un calculateur de Matrice. Oui, bon, je fais pas dans le plus simple, et ca existe surement, mais c'est pas grave

Je résume le petit passage qui me pose problème:

- Je souhaite pouvoir générer un certain nombre de Tedit en fonction du nombre de colonne et de ligne souhaitée.

Pour cela, j'ai la fonction suivante :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
  for i:=1 to ValColonne  do
    begin
      for j:=1 to ValLigne do
        begin
            With TEdit.Create(Self) Do
            Begin
              Parent := Panel2;
              Left := (30 * i);
              Name := 'eC' + IntToStr(i) + 'L' + IntToStr(j);
              Top := (30 * j);
              Width := 25
            End;
        end;
    end;

Mes problèmes sont les suivants:

- Je n'arrive pas a travailler sur les données dans les TEdit créer dynamiquement, pour la simple et bonne raison qu'ils n'existent pas lors de la création du code.
- Il faudrais que je puisse détruire les TEdits une fois que j'en ai plus besoin, car lorsque je relance la procédure, il me plante car ils existent déja (ce qui est le cas, vu que je viens de les créer).

Comment puis-je faire ?

Onet

[qi130]

Pour "adresser" un des TEdit, regarde FindComponent

Code :

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

(FindComponent(leNomduTedit) as TEdit).Text:='quelque chose';

Pour les supprimer, il y a la méthode Free

[Pedro]

Salut
Evidemment, si tu les crées sans les référencer quelque part, tu auras du mal à y accéder
Plusieurs soltuions possibles:
- Utiliser un tableau dynamique ou non de tes TEdit
- Utiliser un TObjectList (unité "Contnrs") qui contiendra les TEdit
- Utiliser un TList en transtypant en pointers
- etc.
En gors, ton code pourrait donner ça:

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
 
var Tab:array[1..ValColonne,1..ValLigne] of TEdit;//note: ici, mettre des valeurs
begin
for i:=1 to ValColonne  do
    begin
      for j:=1 to ValLigne do
        begin
            With Tab[i,j].Create(Self) Do
            Begin
              Parent := Panel2;
              Left := (30 * i);
              Name := 'eC' + IntToStr(i) + 'L' + IntToStr(j);
              Top := (30 * j);
              Width := 25
            End;
        end;
    end;
end;

Pour y accéder, tu fais simplement:

Code :

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

1
2
 
  Tab[1,2].Text:='Je suis le TEdit 1,2!'

Voila...
Bon dev'

[Rayek]

Ca serait pas plus simple de passer par un StringGrid ?

[anapurna]

salut

en reponse a Pedro204
il n'as pas besoin de les referencer
il existe une liste de composant dans la form
lors de la creatiuon d'un composant celui-ci et inserer automatiquement dedans

sinon y'a aucune raison que cela ne marche pas
une fois creer tes edit sont modifiable
pour y acceder utilise FindCompoment() comme te la dit qi130


@+ Phil

[Pedro]

en reponse a Pedro204
il n'as pas besoin de les referencer
il existe une liste de composant dans la form
lors de la creatiuon d'un composant celui-ci et inserer automatiquement dedans

Oui évidemment Mais bon, c'est pas franchement pratique La méthode par liste ou par tableau est plus simple je pense

[Lung]

La méthode par liste ou par tableau est plus simple je pense

Même avis : J'utilise très souvent la TObjectList.