Accueil > Forum > > > > Generer une ligne de texte
 Generer une ligne de texte
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ée 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
|
Derniers Blogs
 [TECHDAYS 2012] SESSION WEBMATRIX 2 : LE COUTEAU SUISSE GRATUIT POUR VOS DéVELOPPEMENTS WEB - SLIDES[TECHDAYS 2012] SESSION WEBMATRIX 2 : LE COUTEAU SUISSE GRATUIT POUR VOS DéVELOPPEMENTS WEB - SLIDES par gpommier
Suite à la session que j'ai présenté sur WebMatrix 2, vous pouvez trouver les slides ici, ainsi que les démos en packages nuget : démos1 et démos2 J'en profite pour remercier chaleureusement tous ceux qui sont venus très nombreux à cette sess...
Cliquez pour lire la suite de l'article par gpommier [SHAREPOINT] LES SESSIONS TECHDAYS 2012.[SHAREPOINT] LES SESSIONS TECHDAYS 2012. par Patrick Guimonet
Voici donc pour ceux qui n'ont pas pu venir, ou ceux qui n'ont pas pu toutes les suivre la liste des sessions SharePoint aux TechDays 2012, que je mettrais à jour dès que les liens des vidéo seront disponibles. Ou ici : http...
Cliquez pour lire la suite de l'article par Patrick Guimonet TECHDAYS PARIS 2012 : SESSION PLEINIèRE JOUR 3TECHDAYS PARIS 2012 : SESSION PLEINIèRE JOUR 3 par ROMELARD Fabrice
Speaker: Bernard Ourghanlian Cette session est comme chaque jour transmise en live par BrainSonic, et j'ai donc suivi cette troisième pleinière par ce moyen sur mon iPad . Elle est dédiée comme chaque année à la mise en perspective de l'é...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice MISHRA READER : UN LECTEUR RSS TRèS ZUNE STYLE EN OPEN SOURCE !MISHRA READER : UN LECTEUR RSS TRèS ZUNE STYLE EN OPEN SOURCE ! par Vko
Hier durant une session dédiée aux Techdays 2012, j'ai eu le plaisir d'annoncer la sortie de la Béta 2 de Mishra Reader. C'est quoi ? Pour les utilisateurs, c'est une vraie expérience de lecture de flux RSS sur Windows. Rien à voir avec les produit...
Cliquez pour lire la suite de l'article par Vko [FRAMEWORK 4] LES TASKS ET LE THREAD UI[FRAMEWORK 4] LES TASKS ET LE THREAD UI par fathi
Je viens de passer quelques temps au TechDay's et j'ai pu voir pas mal de session intéressante. Par contre une chose m'a un peu étonné lors de certaines de ces sessions qui abordaient les améliorations du framework .NET (donc le 4.5) : en gros, bea...
Cliquez pour lire la suite de l'article par fathi
Logiciels
 Academy System (17.2.1.0)ACADEMY SYSTEM (17.2.1.0)Logiciel de gestion des établissements.
- élèves/étudiants (inscription, dossier, absence...)
-... Cliquez pour télécharger Academy System Easy-Planning (1.0.0.1)EASY-PLANNING (1.0.0.1)Basé sur les mêmes principes que MyPlanning, Easy-Planning permet de créer des plannings sous la ... Cliquez pour télécharger Easy-Planning COLLECTOR PLUS (3.00B)COLLECTOR PLUS (3.00B)COLLECTOR PLUS version 3.00B est un logiciel utilisant une base de données alimentée par :
- L... Cliquez pour télécharger COLLECTOR PLUS PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V7.4)PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V7.4)PONAMEDIA TV DEVIENS HELLLOOO FLASH
LA TV SUR VOTRE ORDINATEUR.
Toute une plateforme Multi... Cliquez pour télécharger PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO LettresFaciles 2011 (8.0.0.1)LETTRESFACILES 2011 (8.0.0.1)LettresFaciles est un logiciel facilitant la création et la rédaction de lettres types.
Son inte... Cliquez pour télécharger LettresFaciles 2011
|