Discussion :

[Isa31]

Bonjour,

Question idiote, comment fait-on pour incrémenter les caractères, j'aimerais pouvoir passer du 'A' au 'B' et ainsi de suite jusqu'à 'ZZ'

Merci d'avance pour votre aide.

Isa

[Rayek]

La fonction Ord() te permet de récupérer le code ASCII d'un caractère.

La fonction Chr() te permet depuis un code ASCII de récupere un caractère.

Sachant que le A à le code ASCII 65, avec ces deux fonction tu peux maintenant facilement faire ce que tu souhaites.

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
 
function AddChar (sVal : String) : String;
var
  i,iValChar : integer;
  bContinue : Boolean;
  sValTemp : String;
begin
  i := Length(sVal);
  sValTemp := sVal;
  bContinue := True;
  while (i >= 0) or bContinue do
  begin
    iValChar := Ord(sVal[i]) + 1;
    if iValChar > 90 then
    begin 
       sVal[i] = 'A';
       i := i - 1;
    end else
    begin
      sVal[i] := char(iValChar);
      bContinue := False;
    end;
  end;
  Result := sValTemp;
end;

A tester, j'ai fait ca à la va vite

[Isa31]

Merci beaucoup je vais faire des tests.

[Isa31]

Ca marche mais jusqu'à Z, après il y a une erreur...

[yarocco]

Tu t'attend a quoi apres Z dans l'alphabet ??

[Lung]

Tu t'attend a quoi apres Z dans l'alphabet ??

AA, je suppose.
C'est pour Excel ?

[Isa31]

Ben j'ai dis que je voulais continuer avec 'AA' jusqu'à 'ZZ'...

Merci Lung, c'est ca.

En fait je voulais sélectionner toute la ligne mais colonne a colonne.

Est-il possible de le faire?? Si oui, comment?

[Guile]

Essaie ça :

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
 
function TForm1.ValSuivante(s: string): string;
var LastChar : char;
begin
  if Length(s) = 0 then
  begin
    result := 'A';
    Exit;
  end;
 
  LastChar := RightStr(s,1)[1];
  If LastChar = 'Z' then
    result := ValSuivante(Copy(s,1, length(s) -1)) + 'A'
  else
    result := Copy(s,1, length(s) -1) + Succ(LastChar);
end;

avec strUtils dans les Uses pour RightStr

Bonne prog

[Isa31]

Merci beaucoup, ca marche.