Delphi 6.0Résolu

Question

Voila j'ai deux petit probleme tout 'abord j'aimerai savoir comment on fait que our dans le edit1.text on sait aller a la ligne


2) j'aimerai savori comment on fait un appel de variable exemple : Le score et de: edit1.text feliciation





Merci d'avance

JulioDelphi · Accepted Answer

hello,



voila qqs exemples :



- cr&#233;ons un variable de type string 
nomm&#233;e "MonTexte"

- ensuite cr&#233;ons une variable "MonScore" de type Integer;



var

 MonTexte: string;

 MonScore: integer;



MonTexte := '';

MonScore := 20;



Edit1.Text := 'Julio2005';




- Puis en utilisant un TEdit nomm&#233; "Edit1" on peut faire &#231;a :

MonTexte := 'Le score de '+Edit1.Text+' est de '+IntToStr(MonScore)+' points.';


resultat : MonTexte vaut "Le score de Julio2005 est de 20 points."

ou tu peux aussi utiliser la fonction format (que j'adore) :

MonTexte := Format('Le score de %s est de %d points.',[Edit1.Text,MonScore]);


resultat : MonTexte vaut "Le score de Julio2005 est de 20 points." !! la meme chose =) perso je trouve &#231;a plus propre.



Dans tous les cas tu dois utiliser des ' et non des " , puis pour
convertir un entier en chaine IntToStr (&#231;a veut dire Integer to String)
et l'inverse, une chaine en entier StrToInt.

Pour concat&#233;ner n'utilise pas la fonction "Concat()" qui est plus lente
que mon 'chaine '+Control.Text+' autre chaine '+Control.Caption;

(control peut etre TEdit, TLabel, TListBox.Items[n], ...)

voila !! bon codage

ni69 · Answer

1) Mets un titre plus "parlant"
2) Tu ne peux pas aller &#224; la ligne dans un Edit, mais tu peux utiliser un Memo si cela te convient mieux.
3) Pour mettre le score dans un TEdit, tu peux faire ceci :
      Edit1.Text := 'Le score est de : '+IntToStr(score)+' f&#233;licitations';
   o&#249; 'score' est une variable de type Integer 


@+
Bonne Prog'
Nico



<HR>
N'oubliez pas de cliquer sur R&#233;ponse accept&#233;e lorsque la r&#233;ponse vous convient !

rsca_en_force · Answer

oui je sais mais c'&#233;tait une xemple mon edit1.text sera de plusieur type il y aura des chiffrer et des lettres que dois-je mettre alors. merci de ton aide

ni69 · Answer

Je te l'ai dit ! Pour mettre des chiffres, tu te sers de la procedure de conversion IntToStr ! Pour mettre des lettres dans l'edit, par contre, ça ne doit pas poser de problèmes ! EXEMPLE : - score est un nombre de type integer - chaine est une chaîne de caractères de type string - La procédure va renvoyer ceci dans le Edit : Vous avez 854 points. Félicitations ! Cela incorpore bien des chiffres et des lettres non ?

procedure AfficheScore; var score : Integer; chaine : string; begin score := 854; chaine := 'Félicitations !'; Edit1.Text := 'Vous avez ' + IntToStr(score) + ' points. ' + chaine; end;

@+ Bonne Prog' Nico

N'oubliez pas de cliquer sur Réponse acceptée lorsque la réponse vous convient !

rsca_en_force · Answer

ok merci de ton aide mais si j'utilise un memo comment dosi je faire merci d'avance

ni69 · Answer

Dsl JulioDelphi  j'ai post&#233; en m&#234;me temps 

C'est vrai qu'il est aussi possible d'utiliser Format() je suis tout &#224; fait d'accord avec toi 
Mais pour notre ami, il serait utile de pr&#233;ciser que les %s et %d ne sont pas choisis par hasard, mais que %s est utilis&#233; pour une cha&#238;ne de caract&#232;res et %d pour un nombre d&#233;cimal... Il peut en savoir plus sur l'aide int&#233;gr&#233;e de Delphi si il veut connaitre plus de formats

Perso, je suis comme toi et je n'aime pas trop Concat, je pr&#233;f&#232;res mettre des "+" 


@+
Bonne Prog'
Nico



<HR>
N'oubliez pas de cliquer sur R&#233;ponse accept&#233;e lorsque la r&#233;ponse vous convient !

ni69 · Answer

Pour un memo, c'est toujours aussi simple :
Tu peux faire ce que tu veux de deux mani&#232;res diff&#233;rentes pour sauter des lignes :
1) Avec un saut de ligne "#13#10"
Memo1.Text := 'Votre score est de : ' + #13#10 + IntToStr(score) + #13#10 + 'F&#233;licitations !';

2) En utilisant Lines.Add()
Memo1.Clear // Efface le contenu sinon cela &#233;crit &#224; la suite de ce qui est d&#233;j&#224; &#233;crit
Memo1.Lines.Add( 'Votre score est de : ' );
Memo1.Lines.Add( IntToStr(score) );
Memo1.Lines.Add( 'F&#233;licitations !' )


@+
Bonne Prog'
Nico



<HR>
N'oubliez pas de cliquer sur R&#233;ponse accept&#233;e lorsque la r&#233;ponse vous convient !

rsca_en_force · Answer

merci de votre aider juste une petit question est que le if marhce ici comme dans dev pascal

ni69 · Answer

Le if marche comme ceci :
if nombre =  13 then 
  begin
      ShowMessage('Le nombre est 13');
      Memo1.Text := '13';
  end // important : pas de  ;  avant else
else // else est facultatif
  begin
      [...]
  end;

Pour mettre plusieurs conditions dans ton test, tu dois utiliser des parenth&#232;ses :if (nombre1  13) and (nombre2 24) then ...

Les begin...end peuvent &#234;tre retir&#233;s si tu n'as besoin d'effectuer qu'une seule instruction :
if nombre = 13 then ShowMessage('Le nombre est 13');

@+
Bonne Prog'
Nico



<HR>
N'oubliez pas de cliquer sur R&#233;ponse accept&#233;e lorsque la r&#233;ponse vous convient !

JulioDelphi · Answer

attention &#224; l'erreur du d&#233;butant de faire :



if nombre := 13 then ShowMessage('Le nom est 13');



le := est pour une assignation et non pour un test if !!!

rsca_en_force · Answer

merci le programme fonctionn je vous remercie beaucoup pour votre aide

zorkaro · Answer

est il possible de lire et ecrire sur le port parall&#233;le avec delphi 6?
 si oui comment faire

merci

ni69 · Answer

Ne pose pas ta question ici ! 
En plus, &#231;a n'a rien avoir avec le sujet du message de rsca_en_force... 
Pose plutot une nouvelle question dans le forum ! 

@+
Bonne Prog'
Nico



<HR>
N'oubliez pas de cliquer sur R&#233;ponse accept&#233;e lorsque la r&#233;ponse vous convient !

Delphi 6.0

13 réponses

Votre réponse

Discussions similaires