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
 L'INTERFACE NATURELLE DE WINDOWS PHONE 7 SERIESL'INTERFACE NATURELLE DE WINDOWS PHONE 7 SERIES par odewit
La tendance est aux interfaces naturelles (NUI), et le keynote de Bill Buxton au MIX l'a bien souligné.
La charte graphique et ergonomique de Windows Phone 7 a donc été entièrement repensée en vue d'obtenir un maximum d'efficacité sur ce point. En re...
Cliquez pour lire la suite de l'article par odewit COMMENT MAPPER UNE VUE SQL SUR UNE COLLECTION DE COMPLEX TYPE?COMMENT MAPPER UNE VUE SQL SUR UNE COLLECTION DE COMPLEX TYPE? par Matthieu MEZIL
Avec EF, les vues doivent être mappées sur des entity types. Le problème c'est que les entity types doivent avoir une clé. Avec EF, nous avons les complex type qui n'ont pas de clé mais les vues ne peuvent pas être mappées dessus. Avec EF4, il est possibl...
Cliquez pour lire la suite de l'article par Matthieu MEZIL [WF4] UN BINDING ACTIVITY/ACTIVITYDESIGNER QUI PASSE MAL?[WF4] UN BINDING ACTIVITY/ACTIVITYDESIGNER QUI PASSE MAL? par JeremyJeanson
Certain d'entre vous on peut être vécu cette situation embarrassante après quelques temps passer avec WF4 : Au début avec mon " ActivityDesigner" , tout allait bien. Et puis un jour j'ai au des problèmes de " Binding" . Alors nous sommes allé sur le site ...
Cliquez pour lire la suite de l'article par JeremyJeanson
Forum
 DELPHIDELPHI par overtaker
Cliquez pour lire la suite par overtaker QREPORT QREPORT par lounnaci
Cliquez pour lire la suite par lounnaci
Logiciels
 Academy System (10.9.4.0)ACADEMY SYSTEM (10.9.4.0)Logiciel de gestion des établissements.
- élèves/étudiants (inscription, dossier, absence...)
-... Cliquez pour télécharger Academy System Xilisoft Convertisseur Vidéo Ultimate (5.1.39.0305)XILISOFT CONVERTISSEUR VIDéO ULTIMATE (5.1.39.0305)Xilisoft Convertisseur Vidéo Ultimate est un outil puissant de conversion vidéo, facile à utilise... Cliquez pour télécharger Xilisoft Convertisseur Vidéo Ultimate Xilisoft DVD Ripper Ultimate (5.0.64.0304)XILISOFT DVD RIPPER ULTIMATE (5.0.64.0304)Xilisoft DVD Ripper Ultimate est un logiciel excellent pour copier et convertir DVD vers presque ... Cliquez pour télécharger Xilisoft DVD Ripper Ultimate Rigs of Rods (63.3)RIGS OF RODS (63.3)c'est un jeu de multi-simulation camions,autobus voitures, avions, bateaux, hélicoptère avec défo... Cliquez pour télécharger Rigs of Rods
|