Transfert de données à partir de plusieurs Edit vers une matrice ?

Bonjour a tous,

Comme le dit le titre je souhaite transféré des données a partir de plusieurs EDIT vers une matrice sans utilisé a chaque fois la commande :

Code:

---

Mat[1,1]:=edit1.text;Mat[1,2]:)edit2.text

---

ps : j'ai en tout 81 Edit.

Je souhaite savoir si y a une méthode plus simple.

Merci

En faisant une boucle sur tes composants TEdit de 0 à componentCOunt - 1.
Tu testes si le composant est bien un Tedit et si ou tu ajoute sa valeur à ta matrice.

oui mais comment faire cela ? je suis débutant je connais pas grand chose sauf les trucs de base

salut, essayes ce code:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

procedure TForm1.Button1Click(Sender: TObject); var I, Y: integer; begin X:= 0; for I:= 0 to ComponentCount-1 do with Components[I] do if (ClassName= 'TEdit') and (Tag= 1) then begin Inc(Y); Mat[0, Y]:= TEdit(Components[I]).Text end; end;

---

affecte à la propriété Tag des edits concerné la valeur 1 ou une autre valeur pour les distinguer des éventuels composants edits présents sur ta fiche.

l'utilisation d'un TStringGrid s'avère plus utile dans ton cas à mon avis.

Merci merci beaucoup cette expression va m'aider a atteindre mes fin :)

Code:

---

Mat[0, Y]:= TEdit(Components[i]).Text

---

Citation:

---

Envoyé par khaled-benloucif

l'utilisation d'un TStringGrid s'avère plus utile dans ton cas à mon avis.

---

+1;)

Bonsoir,

je vais utilisé le TStringGrid et je souhaite si possible de savoir comment masquer la ligne et la colonne qui son en gris svp ?

Et comment je doit faire pour donnée l'acces a l'utilisateur a remplir la grille ??

FixedCols et FixedRows à 0.

Dans les options du StringGrid, mettre goEditing à TRUE et gérer l'événement OnSetEditText:

Code:

---

1 2 3 4

procedure TForm1.StringGrid1SetEditText(Sender: TObject; ACol, aRow: Integer; const Value: string); begin Mat[0, aRow] := Value; end;

---

Salut,

Dsl mais je trouve pas goEditing dans les options de la grille

Cherche mieux :D.

Dans l'inspecteur d'objet, tu as Options. Double-click pour l'ouvrir...

A c bon sa a marcher merci merci beaucoup.