faire un affichage RDS

**mickael.be** · 30/05/2007, 09h03

Hello.

Je cherche à faire un rendu style "RDS" (radio) avec Delphi.

Il faudrait que toutes les 3 secondes je mette à jour un Caption avec maximum 8 caractères d'une ligne complète..

Exemple : Si j'ai "Nolween Leroy - Nolween Ohwo"
cela devrait donner :

Nolween (3sec)
Leroy (3sec)
- (3sec)
Nolween (3sec)
Ohwo (3sec)

J'ai mon timer ok, mais comment gérer ça?

Merci de vos bonnes idées..

**Rayek** · 30/05/2007, 10h10

Dans un timer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
var
  lst : TStringList;
begin
  lst := TStringList.create;
  try
    lst.text := 'Nolween Leroy - Nolween Ohwo';
    // on mets les mots sur des lignes séparées dans la liste en remplacant les espaces
    // par des CRLF
    lst.text := StringReplace(lst.text, ' ' , #13#10,[rfReplaceAll]); 
 
    // on affiche dans le label
    MonLabel.caption := lst.Strings[Timer(Sender).Tag];
    Application.ProcessMessage;
 
    // on augemente le tag du timer pour qu'au prochain passage on passe
    // à la ligne suivante dans la liste.
    Timer(Sender).tag := Timer(Sender).tag + 1;
    if Timer(Sender).tag > lst.count then
      Timer(Sender).tag := 0; 
  finally
    lst.Free;
  end;
end;

Code non testé et surement à modifier pour qu'il soit compatible avec ton programme.

**Gaadek** · 30/05/2007, 12h57

La réponse de Malatar est pas mal sauf que les mots de plus de 8 caractères ne sont pas découpés...

Je propose donc ce code... Fortelent inspiré du post précédent!

Tout d'abord, la fonction qui découpe la chaine en mots d'au plus 8 caractères

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
var
  chaine_depart: string;  // Variable uniquement pour les tests
  wordlist : TStringList;   // StringList contenant le résultat
  currentword: string;     // Variable intermédiare contenant le mot (d'au plus 8 caractères) à insérer dans la liste de résultat
  i,j: integer;                // Variables internes
begin
  wordlist := TStringList.create;
  try
    // On rempli la chaine de test avec des valeurs bidons
    chaine_depart := 'Nolween Leroy - Testgrandmot - Nolween Ohwolulio';
 
    // On ajoute un espace à la fin de la chaine à manipuler. Si on ne le fait pas, on risque de ne pas prendre en compte le dernier mot!
    chaine_depart := chaine_depart + ' ';
 
    j := 1;
 
    // Boucle qui va scruter la chaine à découper
    repeat
      // i représente la position du prochain caractère espace trouvé
      // j représente la position du dernier caractère traité
      // PosEx va chercher, à partir de j (initialisé à 1, début de la chaine au départ) la position du prochain caractère espace
      i := PosEx(' ', chaine_depart, j);
 
      // Si i - j est supérieur à 8, on est tombé sur un mot de plus de 8 caractères
      if ((i - j) > 8) then
      begin
        // Dans ce cas, on copie les 8 premiers caractères uniquement (on tronque le mot)
        currentword := copy(chaine_depart, j, 8);
        // Et on incrément notre variable j pour indiquer, à la prochaine boucle, où il faut reprendre le traitement
        j := j + 8;
      end
      else  // Sinon, on est tombé sur un mot de 8 caractères ou moins
      begin
        // Dans ce cas, on copie les caractères jusqu'à la position de notre espace, soit à partir de j jusque (i - j)
        currentword := copy(chaine_depart, j, (i - j));
 
        // Enfin, on incrémente j pour 'sauter' le caractère espace qui ne nous intéresse plus pour traiter la suite de la chaine
        j := i + 1;
      end;
 
      // Enfin, on peut insérer dans notre liste 'résultat' le mot / groupe de caractères trouvé!
      wordlist.Add(currentword);
 
    until (i = 0); // Si PosEx renvoie 0, c'est que la recherche fut infructueuse! C'est en partie pour ça qu'il faut ajouter un espace à la fin de la chaine de test pour traiter le dernier mot

Enfin, le reste du code pour afficher le résultat dans un label...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
    // on affiche dans le label
    Label1.caption := wordlist.Strings[Tag];
 
    // on augemente le tag du timer pour qu'au prochain passage on 
    // affiche le mot suivant
    tag := tag + 1;
 
    // Ne pas oublier le -1 sur count, sinon on va sortir des bornes de l'objet StringList
    if tag > wordlist.count - 1 then
      tag := 0;
  finally
    wordlist.Free;
  end;
end;

Informations importantes: le code situé ci-dessus à été tester dans l'événement d'un timer... J'ai juste découpé le code pour comprendre les différentes étapes! Donc pas d'inquiétude sur les begin / end qui passent d'un bloc de code à un autre!

L'idéal serait de couper ces deux codes. En effet, sur l'exemple, le découpage de la chaine se fait à chaque appel du timer... bref, on fait 50.000 fois la même chose, ce qui est inutile!!!

Il faudrait donc, dans l'idéal, une fonction qui coupe la chaine, puis une autre pour afficher un élément...