Envoyer le contenu d'un TEdit dans un TStringGrid

cs_saravana Messages postés 91 Date d'inscription vendredi 25 mars 2005 Statut Membre Dernière intervention 18 octobre 2007 - 1 août 2005 à 13:54
Gildeplomb Messages postés 102 Date d'inscription samedi 29 décembre 2012 Statut Membre Dernière intervention 24 mars 2021 - 1 août 2005 à 23:18
slt a tous je suis nouveau en delphi et jai un ptit problèm je cherche le code pour que le contenu dun edit soit envoyé dans un tstringgrid sachant que ledit se trouve dans form1 é le tstringgrid dans le form 2

nb g delphi 6 personal et ya pa beaucoup de composants

++

3 réponses

Gildeplomb Messages postés 102 Date d'inscription samedi 29 décembre 2012 Statut Membre Dernière intervention 24 mars 2021
1 août 2005 à 14:42
Bonjour

par exemple

procedure TForm1.Button1Click(Sender: TObject);
begin
Form2.StringGrid1.Cells[1,1]:=Edit1.Text;
end;

Ne pas oublier de mettre

Uses unit2

dans l'unit1 apres Implementation
Bye
0
cs_saravana Messages postés 91 Date d'inscription vendredi 25 mars 2005 Statut Membre Dernière intervention 18 octobre 2007
1 août 2005 à 19:48
merci de mavoir répondu
g essayé ton cod mé il nouvre pa form2 pourtant il é bien aprè implémentation

jessaye de fer un agenda avec edit1(nom) edit2(prénom) é edit3(age) je ve ke button1 envoi c 3 références ds le tstringgrid1(ds le form2)
++
0
Gildeplomb Messages postés 102 Date d'inscription samedi 29 décembre 2012 Statut Membre Dernière intervention 24 mars 2021
1 août 2005 à 23:18
Voila le code de l'unit 1
Essaye de parler francais car j'ai des difficultés a comprendre ton langage

bye

Unit Unit1;

Interface

Uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

Type
TForm1 = Class(TForm)
Button1: TButton;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Procedure Button1Click(Sender: TObject);
Private
{ Déclarations privées }
Public
{ Déclarations publiques }
End;

Var
Form1 : TForm1;

Implementation
Uses unit2;
{$R *.dfm}

Procedure TForm1.Button1Click(Sender: TObject);
Begin
Form2.Show;
Form2.StringGrid1.Cells[1,1] := Edit1.Text;
Form2.StringGrid1.Cells[2,1] := Edit1.Text;
Form2.StringGrid1.Cells[3,1] := Edit3.Text;
End;


End.
0
Rejoignez-nous