|
 Trouver une ressource
Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !
 Sujet : Generer une ligne de texte [ Divers / Débutant(e) ] (emirej)
 Informations & options pour cette discussion
mardi 2 septembre 2008 à 22:22:54 |
Generer une ligne de texte
emirej
|
Voila enfaite j'ai placé un Edit et un Button et enfaite j'ai plusieurs lignes de texte et j'aimerais qu'on faite qu'a chaque fois que je clique il m'affiche le texte puis quand je rappuie sur le même boutton il m'affiche une phrase au hasard je vais vous montrer en gros procedure TForm1.Button1Click(Sender: TObject); begin Edit3.Text:='Bonjour c'est moi'; Edit3.Text:=' Je m'apelle .... " ( Mais quand je fait comme ca apres avoir affiché le Bonjour c'est moi , je rappuie une fois pour qu'il affiche l'autre texte mais cela ne fait rien , comment puis-je faire ? ^^' ) end; end. Merci
|
|
|
mercredi 3 septembre 2008 à 05:03:27 |
Re : Generer une ligne de texte
f0xi
|
Réponse acceptée !
const
SentencesCountMax = 8;
Sentences : array[0..TACountMax-1] of string = (
'Bonjour!',
'Salut!',
'Coucou!',
'Salutation!',
'Hi!',
'Hello',
'''Lut!',
'Yo!'
);
var
CurrentSentence : integer = 0;
procedure TForm1.Button1Click(Sender: TObject);
begin
Edit3.Text := Sentences[CurrentSentence];
CurrentSentence := (CurrentSentence+1) mod SentencesCountMax;
end;
|
|
|
mercredi 3 septembre 2008 à 09:58:42 |
Re : Generer une ligne de texte
|
mercredi 3 septembre 2008 à 10:28:14 |
Re : Generer une ligne de texte
f0xi
|
Réponse acceptée !
const
SentencesCountMax = 8;
{ Nombre maximum de ligne de texte
}
Sentences : array[0..SentencesCountMax-1] of string = (
{ tableau allant de 0 a SentencesCountMax-1
soit 8-1 = 7 et 7 + 0 = 8 elements
pas convaincus ? 0 1 2 3 4 5 6 7 = 8 elements :)
de 1 a 8 = 8 et de 0 a 7 = 8, simple non ?
}
'Bonjour!',
'Salut!',
'Coucou!',
'Salutation!',
'Hi!',
'Hello',
'''Lut!',
'Yo!'
);
var
CurrentSentence : integer = 0;
{ compteur qui est incrementé a chaque clique sur button1
}
procedure TForm1.Button1Click(Sender: TObject);
begin
{ on affiche la ligne
0 la premiere fois, puis 1 puis 2 etc...
}
Edit3.Text := Sentences[CurrentSentence];
CurrentSentence := (CurrentSentence+1) mod SentencesCountMax;
{ incrementation +1 a chaque iteration
MOD (modulo) permet de faire un index rotatif, MOD retourne le reste
d'une division entiere.
(4 div 2)= 2 ; reste= (4 mod 2)= 0 ; 4/2= 2
(5 div 3)= 1 ; reste= (5 mod 3)= 2 ; 5/3= 1.6666666666666666666x
(9 div 4)= 2 ; reste= (9 mod 4)= 1 ; 9/4= 2.25
(1 div 8)= 0 ; reste= (1 mod 8)= 1 ; 1/8= 0.125
(7 div 5)= 1 ; reste= (7 mod 5)= 2 ; 7/5= 1.4
exemple :
(0 + 1) mod 8 = 1
(1 + 1) mod 8 = 2
(2 + 1) mod 8 = 3
(3 + 1) mod 8 = 4
(4 + 1) mod 8 = 5
(5 + 1) mod 8 = 6
(6 + 1) mod 8 = 7
(7 + 1) mod 8 = 0
(0 + 1) mod 8 = 1 ... etc
it's mathémagique!
le truc c'est que ça marche même si on continue au dela de 8 :
(7 + 1) mod 8 = 0 (7+1 = 8 ; 8 = multiple de 8 (8x1))
(8 + 1) mod 8 = 1
(9 + 1) mod 8 = 2
(10 + 1) mod 8 = 3
(11 + 1) mod 8 = 4
(12 + 1) mod 8 = 5
(13 + 1) mod 8 = 6
(14 + 1) mod 8 = 7
(15 + 1) mod 8 = 0 (15+1 = 16 ; 16 = multiple de 8 (8x2))
(16 + 1) mod 8 = 1
...
(23 + 1) mod 8 = 0 (23+1 = 24 ; 24 = multiple de 8 (8x3))
...
(31 + 1) mod 8 = 0 (31+1 = 32 ; 32 = multiple de 8 (8x4))
donc chaque multiple de 8 retournera 0
40, 48, 56, 64, 72, 80, 88, 96, 104 etc.
et chaque chiffres suivant (41,42,43 etc) renverons respectivement
la suite 1,2,3,4,5,6,7
d'ou le nom "index rotatif" puisque malgré l'incrementation
on repete toujours la même suite de nombres.
}
end;
|
|
|
mercredi 3 septembre 2008 à 18:24:18 |
Re : Generer une ligne de texte
|
Cette discussion est classé dans : affiche, ligne, texte, generer, enfaite
 Répondre à ce message
 Sujets en rapport avec ce message
NB Ligne dans un fichier texte [ par ProGMaN007 ]
salut, comment connaître le nombre de ligne dans un fichier txt ?
lire un fichier texte [ par mentral ]
Bonjour,Il me faudrait un algo pour ouvrir un fichier texte, lire une ligne dont le numéro est choisi au hasard par un random, et affecter cette ligne
Effacer dans un fichier texte [ par Kundun2 ]
Bonjour,Je n'arrive pas à effecer juste une ligne danbs un fichier texte.Mon fichier enumère plusieurs lignes : testligne1testligne2testligne3...je vo
Lecture fichier texte ligne par ligne [ par MattXSFR ]
J'utilise le code suivant pour copier le contenu d'un fichier texte dans une liste box (une ligne de list box pour chaque ligne du fichier) :procedure
sauter une ligne dans un label en fin de mot tout les 60 caractères [ par Animax77 ]
J'ai créé une base de données access dans laquelle j'ai un mémo, qui peut avoir un texte très long.Je récupère ce texte dan un dbmemo mais je l'affich
Déplacement dans une DBGrid [ par vdefer ]
J'ai une DataSource relié avec DBGrid. Je voudrais avoir accès au texte contenu dans la première ligne et la première colonne de cette DBGrid. Je mémo
Qui y a t il ecrit sur la ligne x de mon Memo? [ par Joleroy ]
Salut,J' ai un memo avec par exemple 50 lignes de texte.J' ai mis ds l' evenement OnDbclick de mon memo ShowMessage('Vous avez cliquez sur' +Memo1.Lin
StringGrid et fichier texte [ par koaiz ]
Salut les mecs je voudrais savoire si on peut copier le contenue d'un StringGrid dans un fichier textej'ai esssayer une methode qui consiste a copier
Connaitre le nombres de lignes dans un fichier texte [ par Tank01 ]
Bonjour, Je suis débutant en delphi, et voici le problème auquel je suis confronté: Soit un document texte contenent plusieurs lignes. je traite ces
Selection Verticale dans une TMemo [ par PsykopatSncf ]
Salut,j'appel au secours les joyeux developpeurs.En effet je cherche a contrer la réaction d'une opération de sélection de texte dans un Tmemo.Lorsque
 Livres en rapport
|
 Téléchargements
Logiciels à télécharger sur le même thème :
Comparez les prix Nouvelle version
|