Écrire dans un Edit

Question

Bonjour, jai un petit probleme avec mon application. Voila normalement pour saisir le nom de la personne je fais:

Nom:=inputbox('Nom et pr&#233;nom','Entrez le nom et le pr&#233;nom',' ');

Mais jaimerais pouvoir le saisir seulement avec un edit, cest a dire
que l'utilisateur naura qu'a entrer le nom dans le Edit pour pouvoir
ensuite l'afficher. Il est a not&#233; aussi que je dois saisir plusieurs
noms de personnes mais avec le meme Edit.



Merci!!

ni69 · Answer

Pour r&#233;cup&#233;rer le texte d'un Edit :

Nom := Edit1.Text;

@+
Bonne Prog'
Nico [www.ni69.new.fr]
<hr size="2" width="100%">


N'oubliez pas de cliquer sur R&#233;ponse accept&#233;e lorsque la r&#233;ponse vous convient !

Inconnu Anonyme · Answer

Hmm ca fonctionne si je n'entre qu'une seule personne mais lorsque je
rentre plusieurs noms et que je navigue entre eux avec mes
boutons(precedent,suivant), ils disparaissent?

ni69 · Answer

Donne moi ton code, je vois pas ce que tu comptes faire au juste... 

@+
Bonne Prog'
Nico [www.ni69.new.fr]
<hr size="2" width="100%">


N'oubliez pas de cliquer sur R&#233;ponse accept&#233;e lorsque la r&#233;ponse vous convient !

Inconnu Anonyme · Answer

Ma premiere unité: const NB_MAX_COMPTE = 10; var Form1: TForm1; Indice_actuel : integer; nb_personne : integer; Nom : string[15]; Tab_personne : array [1..NB_MAX_COMPTE] of TpPersonne; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); begin Indice_actuel := 0; Nb_personne := 0; end; procedure TForm1.FormShow(Sender: TObject); begin affiche_info_gen; end; //procédure pour ajouter une nouvelle personne procedure TForm1.Ajout1Click(Sender: TObject); var ok_ajout: boolean; begin ok_ajout := true; if Nb_personne = NB_MAX_COMPTE then begin Showmessage('Impossible d''ajouter une nouvelle personne, le tableau est plein.'); ok_ajout := false; end; if ok_ajout = true then begin Showmessage('Saisir les informations de la nouvelle personne.'); Edit1.ReadOnly := false; Nom:=inputbox('Nom et prénom','Entrez le nom et le prénom',' '); <--C'est normalement ici que je veux faire la modif. Indice_actuel : = Nb_personne + 1; Tab_Personne[Indice_actuel] := TpPersonne.Init(Nom); Nb_personne := Nb_personne + 1; affiche_info_personne(indice_actuel); affiche_info_gen; end; procedure TForm1.Button6Click(Sender: TObject); begin Edit1.ReadOnly := true; end; procedure TForm1.Button2Click(Sender: TObject); begin if Indice_actuel <> 1 then begin Indice_actuel := 1; Affiche_info_personne(Indice_actuel); affiche_info_gen; end; end; procedure TForm1.Button3Click(Sender: TObject); begin if Indice_actuel <> Nb_personne then begin Indice_actuel := Nb_personne; Affiche_info_personne(Indice_actuel); affiche_info_gen; end; end; procedure TForm1.Button4Click(Sender: TObject); begin if Indice_actuel = 1 then begin Showmessage('Premier compte'); end else begin Indice_actuel := Indice_actuel - 1; Affiche_info_personne(Indice_actuel); affiche_info_gen; end; end; procedure TForm1.Button5Click(Sender: TObject); begin if Indice_actuel = Nb_personne then begin Showmessage('Dernier compte'); end else begin Indice_actuel := Indice_actuel + 1; Affiche_info_personne(Indice_actuel); affiche_info_gen; end; end; end. Ensuite, ma deuxieme unité: unit Unit2; interface type TpPersonne = class private NomA : string; public constructor Init(NomB:string);overload; procedure set_nom(NomB : string); function get_nom : string; end; constructor TpPersonne.Init(NomB:string); begin NomA := NomB; end; procedure TpPersonne.set_nom(NomB : string); begin NomA := NomB; end; function TpPersonne.get_nom : string; begin Result := NomA; end; end. Enfin ma 3e unité: unit Unit3; interface uses SysUtils; Procedure Affiche_info_gen; procedure affiche_info_personne(Ind : integer); implementation uses Unit1, Unit2; Procedure Affiche_info_gen; begin Form1.Edit9.Text : = inttostr(Nb_personne); Form1.Edit10.Text := inttostr(Indice_actuel); end; procedure affiche_info_personne(Ind : integer); begin Form1.Edit1.Text := Tab_personne[Ind].Get_Nom; end;

ni69 · Answer

Dans ton code, il faudrait que l'Edit1 ait sa propri&#233;t&#233; ReadOnly &#224;
false avant le clic sur le bouton d'ajout pour pouvoir entrer un nom
avant de l'ajouter...
Pourquoi ne pas utiliser cette boite de
dialogue qui me semble plus pratique ? Parce que sinon tu devrais selon
moi ajouter un autre Edit pour effectuer l'ajout...




@+
Bonne Prog'
Nico [www.ni69.new.fr]
<hr size="2" width="100%">


 
N'oubliez pas de cliquer sur R&#233;ponse accept&#233;e lorsque la r&#233;ponse vous convient !

Inconnu Anonyme · Answer

Oui mon Edit1  REadonly est a "True" quand je demarra
l'application et elle devient false lors de l'ajout. Pourquoi ne pas
utiliser la boite de dialogue? Pcqu'il est interdit de l'utiliser pour
mon projet

ni69 · Answer

ben alors utilise un autre Edit pour effectuer les ajouts... 

@+
Bonne Prog'
Nico [www.ni69.new.fr]
<hr size="2" width="100%">


 
 
N'oubliez pas de cliquer sur R&#233;ponse accept&#233;e lorsque la r&#233;ponse vous convient !

Inconnu Anonyme · Answer

Peut etre est ce que ceci pourra t'&#233;claircir sur ce que j'essais de faire (les images viennent de la version finale du projet):

Écrire dans un Edit

8 réponses

Votre réponse

Discussions similaires