Discussion :

[Hamza]

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 :

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

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

[Fxg]

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.

[Hamza]

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

[khaled-benloucif]

salut, essayes ce code:

Code :

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

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.

[Hamza]

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

Code :

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

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

[edam]

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

+1

[Hamza]

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 ??

[Andnotor]

FixedCols et FixedRows à 0.

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

Code :

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

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

[Hamza]

Salut,

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

[Andnotor]

Cherche mieux .

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

[Hamza]

A c bon sa a marcher merci merci beaucoup.