Faire affecter deux Edits à la fois?Résolu

Question

Salut chers developppeurs!


J'ai sur ma form un combobox accompagné de deux tedit (Tedit1, Tedit2).
je suis entrain d'affecter le contenu de mon combobox dans mon edit1. Mais curieusement, je n'arrive pas à faire 
affecter par exemple à un autre en même temps (à l'Edit2). Cela veut dire en affectant la valeur de 2500 à mon edit1. 
S'il peut aussi affecter en même temps la lettre 'A' à l'Edit2.


Pour plus de precision dans mes dires, Les premiers codes marchent bien. Sauf qu'avec une affectation à l'Edit1.
Mais les derniers codes ne marchent pour la deuxième affectation pour l'Edit2.


1.
---------------------------------------------------------------------------------
procedure TVistGer.ComboBox3Change(Sender: TObject);
begin
  if combobox3.ItemIndex = 0 then
  edit1.Text:= '2500';
---------------------------------------------------------------------------------


2.
---------------------------------------------------------------------------------
procedure TVistGer.ComboBox3Change(Sender: TObject);
begin
  if combobox3.ItemIndex = 0 then
  edit1.Text:= '2500'
  edit2.Text:= 'A';
end;

florenth · Accepted Answer

begin => end !!!

Va falloir réviser un peu le Delphi à ce que je vois...
Allez, je suis bon prince :


procedure TVistGer.ComboBox3Change(Sender: TObject);
begin
  if combobox3.ItemIndex = 0 then
  begin
    edit1.Text:= '2500'
    edit2.Text:= 'A';
  end;
end;

nethacker · Answer

salut,
merci de nous indiquer dans quelle ligne se trouve l'erreur !

essaye ca 
<hr size= "2" width="100%" />begin
   if  
combobox3.ItemIndex  = 0 
then
 edit1.Text:=  '2500' ; 
  edit2.Text: = 'A';
end;

florenth · Answer

humm, zut, j'ai oubl le pont virgule après '2500', il va falloir que tu le mettes.

++

JulioDelphi · Answer

@nethacker : à part déplacer le THEN a la ligne, te rends tu compte que ça ne change rien à son problème ? as tu au moins testé ?

f0xi · Answer

petite revision :

si on fait :

for .... do 
   instruction 1;// est dans la boucle
   instruction 2; // n'est pas dans la boucle

while .... do 
   instruction 1;// est dans la boucle
   instruction 2; // n'est pas dans la boucle

if .... then 
   instruction 1;// est dans la condition
   instruction 2; // n'est pas dans la condition

for .... do begin

   instruction 1; // est dans la boucle

   instruction 2; // est dans la boucle
end;
   instruction 3; // n'est pas dans la boucle


while .... do begin

   instruction 1; // est dans la boucle

   instruction 2; // est dans la boucle
end;
   instruction 3; // n'est pas dans la boucle


if .... then begin

   instruction 1; // est dans la condition

   instruction 2; // est dans la condition
end;
   instruction 3; // n'est pas dans la condition

repeat
  instruction 1; // est dans la boucle
  instruction 2; // est dans la boucle
until ...;
  instruction 3; // n'est pas dans la boucle

<hr size="2" width="100%" />Croc (click me)

Cirec · Answer

Salut,

comme l'autre sujet à été clôt ... (à ce propos n'est il pas possible de déplacer les messages vers l'ancien thread au lieu de juste bêtement le fermer   parce que la, ce n'est ni pratique ni utile (en cas de recherches) bien au contraire)

... Donc voici une solution bien plus courte ... testé avec onze Items :

procedure TVistGer.ComboBox3Change(Sender: TObject);
Const BaseNum =  25;
      BaseChar = 65;
 begin 
  With ComboBox3 do
    If ItemIndex > -1 Then Begin
      Edit1.Text : = IntToStr((BaseNum + ItemIndex) * 100);
      Edit2.Text :=  Chr(BaseChar + ItemIndex);
     End ;
end;

 
@+
Cirec

<hr size ="2" />

nethacker · Answer

je sais que ca ne change rien juliodelhpi ! je l'ai juste organisé pour que ca se presente bien ! 
:)

f0xi · Answer

lol ... toi t'es comme le h de hawai, non ?

<hr size="2" width="100%" />Croc (click me)

Faire affecter deux Edits à la fois?

8 réponses

Votre réponse

Discussions similaires