Discussion :

[BuzzLeclaire]

Bonjour à tous.

Je doit vraiment être malade. J'ai créer une fonction me permettant de remplacer un chiffre par des lettres
genre j'ai 554RR55444 (en alphanumérique)
ICI je remplace le 5 par E, le 4 par L etc...
voilà la fonction :

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
function TFormInstall.ChiffreEnlettre(xValeur: String): String;
Var
  x: integer;
  r: String; // Pas util mais c'etait pour tester
  rValeur: String; // Pas util mais c'etait pour tester
Begin
  Result := '';
  rValeur := '';
  for x:=0 to Length(xValeur)-1 do
  Begin
    Case ord(xValeur[x]) of
      48: r := 'B';  // J'ai essayer r := r + 'B'
      49: r := 'U'; // ou même result := result + 'B'
      50: r := 'Z';
      51: r := 'Z';
      52: r := 'L';
      53: r := 'E';
      54: r := 'C';
      55: r := 'L';
      56: r := 'A';
      57: r := 'I';
    else
      r := xValeur[x]; // pas util si j'utilise juste result
    end;
    rValeur := rValeur + r; // je vois pas pourkoi !!!
  end;
 
    result := rValeur;
end;

Donc je parcoure chaque chiffre et je remplace, la fonction me renvoi rien que du vide. si j'affiche r en dessous de r = xValeur[x], il me montre bien chaque Lettre, mais il me concatenne pas :!!!!!

le délire non ?

J'ai essayer d'utiliser également que la variable result, à la place de rValeur et r, mais rien y fait avez-vous une idée ?

[Andnotor]

Pour une fois, ce n'est pas à base 0. La chaîne commence au caractère 1 .

Code :

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

for x:= 1 to Length(xValeur) do

[BuzzLeclaire]

Merci AndNotOr

Pfff quand tu vois pourquoi tu devient fou lololol

CA marche.