[delphi] un peu d'aide svp . ça vous prendra a peine 30 segonde !

un peu d'aide svp . ça vous prendra a peine 30 segonde ! [delphi] - Programmation

Marsh Posté le 03-04-2002 à 18:21:49    

Comment on dit ça en delphi ?  :D  :D  
 
begin
if Edit1.Text := '' then
Edit2.Visible := True;
else
Edit2.Visible := False;
end;
 
 
MErci d'avance

Reply

Marsh Posté le 03-04-2002 à 18:21:49   

Reply

Marsh Posté le 03-04-2002 à 18:32:28    

Pilou2001 a écrit a écrit :

Comment on dit ça en delphi ?  :D  :D  
 
begin
if Edit1.Text = '' then
Edit2.Visible := True
else
Edit2.Visible := False;
end;
 
 
MErci d'avance  




---------------
Des bons sites pour Delphi? http://forum.hardware.fr/forum2.php3?post=16838&cat=10 -- informaticien -- http://www.z0rglub.com/phpwebgallery/ -- Delphi :love:
Reply

Marsh Posté le 03-04-2002 à 18:36:09    

Yahoo merci ; j'ai bien fait de voter pour toi :) !

Reply

Marsh Posté le 03-04-2002 à 18:36:35    

Pilou2001 a écrit a écrit :

Yahoo merci ; j'ai bien fait de voter pour toi :) !  




 :lol:


---------------
Des bons sites pour Delphi? http://forum.hardware.fr/forum2.php3?post=16838&cat=10 -- informaticien -- http://www.z0rglub.com/phpwebgallery/ -- Delphi :love:
Reply

Marsh Posté le 03-04-2002 à 18:37:38    

Merci  :jap:


---------------
Des bons sites pour Delphi? http://forum.hardware.fr/forum2.php3?post=16838&cat=10 -- informaticien -- http://www.z0rglub.com/phpwebgallery/ -- Delphi :love:
Reply

Marsh Posté le 03-04-2002 à 18:40:10    

et ça on dit comment ?  :D  :D  
 
begin  
if Edit1.Text = '' then
Edit2.Visible := True
Label2.Visible := True
else
Edit2.Visible := False
Label3.Visible := False;
end;

 

[jfdsdjhfuetppo]--Message édité par Pilou2001--[/jfdsdjhfuetppo]

Reply

Marsh Posté le 03-04-2002 à 18:40:59    

begin  
if Edit1.Text = '' then
Edit2.Visible := True;
Label2.Visible := True
else
Edit2.Visible := False;
Label3.Visible := False;
end;
 
T'as du mal avec les ;


---------------
Des bons sites pour Delphi? http://forum.hardware.fr/forum2.php3?post=16838&cat=10 -- informaticien -- http://www.z0rglub.com/phpwebgallery/ -- Delphi :love:
Reply

Marsh Posté le 03-04-2002 à 18:42:01    

En gros des ; partout aprés chaque commande sauf avant un else
(faut lire les méchants messages du compilateur ;))


---------------
Des bons sites pour Delphi? http://forum.hardware.fr/forum2.php3?post=16838&cat=10 -- informaticien -- http://www.z0rglub.com/phpwebgallery/ -- Delphi :love:
Reply

Marsh Posté le 03-04-2002 à 19:25:43    

ok merci je savais pas ça :)  
oui , avant j'etais sous vb6 et ya pas besoin de ; alors jesavais pas .. :)

Reply

Marsh Posté le 03-04-2002 à 19:29:27    

ça marche pas ton truc ...
 
begin  
if Edit1.Text = '' then
Edit2.Visible := True;
Label2.Visible := True
else
Edit2.Visible := False;
Label3.Visible := False;
end;
 
il me dit : expected end but else found

Reply

Marsh Posté le 03-04-2002 à 19:29:27   

Reply

Marsh Posté le 03-04-2002 à 19:30:01    

[SDF]Poire a écrit a écrit :

begin  
if Edit1.Text = '' then
Edit2.Visible := True;
Label2.Visible := True
else
Edit2.Visible := False;
Label3.Visible := False;
end;
 
T'as du mal avec les ;  




il faut pas 2 begin end; ?
 
begin
if Edit1.Text = '' then  
begin
Edit2.Visible := True;
Label2.Visible := True;
end else  
begin
Edit2.Visible := False;
Label3.Visible := False;
end;
end;

 

[jfdsdjhfuetppo]--Message édité par BFT@lph@--[/jfdsdjhfuetppo]

Reply

Marsh Posté le 03-04-2002 à 19:31:44    

BFT@lph@ a écrit a écrit :

 
il faut pas 2 begin end; ?
 
if Edit1.Text = '' then  
begin
Edit2.Visible := True;
Label2.Visible := True;
end else  
begin
Edit2.Visible := False;
Label3.Visible := False;
end;
end;  




si si  :D  
C pas ou j'avais la tête  :pt1cable:  
 :hello:


---------------
Des bons sites pour Delphi? http://forum.hardware.fr/forum2.php3?post=16838&cat=10 -- informaticien -- http://www.z0rglub.com/phpwebgallery/ -- Delphi :love:
Reply

Marsh Posté le 03-04-2002 à 20:37:39    

[SDF]Poire a écrit a écrit :

 
si si  :D  
C pas ou j'avais la tête  :pt1cable:  
 :hello:  




 
A préparer ta campagne...
 :pt1cable:


---------------
Vendredi c'est Buitoni
Reply

Marsh Posté le 03-04-2002 à 20:40:59    

Buitoni a écrit a écrit :

 
 
A préparer ta campagne...
 :pt1cable:  




 :pt1cable:  :hap:  
Suis en partiel là... alors... :sweat:


---------------
Des bons sites pour Delphi? http://forum.hardware.fr/forum2.php3?post=16838&cat=10 -- informaticien -- http://www.z0rglub.com/phpwebgallery/ -- Delphi :love:
Reply

Marsh Posté le 03-04-2002 à 20:42:35    

[SDF]Poire a écrit a écrit :

 
 :pt1cable:  :hap:  
Suis en partiel là... alors... :sweat:  




 
Oh, j'oubliais t'es aux z'études... Faut pas foutre un modo student, ca sort tout le temps, ca doit toujours étudier, etc, etc   [:ddr555]  
 
Mais bon, ca fout rien de toute la journée aussi un student


---------------
Vendredi c'est Buitoni
Reply

Marsh Posté le 03-04-2002 à 20:49:58    

Buitoni a écrit a écrit :

ca doit toujours étudier,  




 :lol:  
C marqué où ça ?
Moi G rien signé :D


---------------
Des bons sites pour Delphi? http://forum.hardware.fr/forum2.php3?post=16838&cat=10 -- informaticien -- http://www.z0rglub.com/phpwebgallery/ -- Delphi :love:
Reply

Marsh Posté le 04-04-2002 à 09:39:52    

Vous devriez éclaircir le code, sinon on comprends moins bien :
 

Code :
  1. begin
  2. if Edit1.Text = '' then 
  3.   begin
  4.   Edit2.Visible := True;
  5.   Label2.Visible := True;
  6.   end
  7. else 
  8.   begin
  9.   Edit2.Visible := False;
  10.   Label3.Visible := False;
  11.   end;
  12. end;

 

[jfdsdjhfuetppo]--Message édité par juju_le_barbare--[/jfdsdjhfuetppo]


---------------
Visitez mon site : http://www.jujubarbare.linux-fan.com
Reply

Marsh Posté le 04-04-2002 à 09:44:00    

et hop sans le if
 
Edit2.visible  := Edit1.Text='';
label2.visible := Edit2.visible;
label3.visible := not Edit2.visible;

Reply

Marsh Posté le 04-04-2002 à 09:49:48    

Taureau a écrit a écrit :

et hop sans le if
 
Edit2.visible  := Edit1.Text='';
label2.visible := Edit2.visible;
label3.visible := not Edit2.visible;  




 
c'est exactement ce que je voulais écrire (enfin à peu près)
 

Code :
  1. Edit2.visible  := Edit1.Text = '';
  2. label2.visible := Edit1.Text = '';
  3. label3.visible := not Edit1.Text = '';


---------------
Visitez mon site : http://www.jujubarbare.linux-fan.com
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed