Discussion :

[MaTHieU_]

Bonjour,

J'ai une chaine de caractère du style :

var
MaChaine : string;
MonTab : array of char;
begin
MaChaine := '123 456 789 0AB CDEF'; {ma string représente des caractères hexadécimaux}

Je voudrais splitter cette chaine grâce aux espaces en un tableau de char : MonTab := {123,456,789,0AB,CDEF}

Comment puis-je faire ?

Merci d'avance,
MaTHieU_

[fab56]

Et pourquoi veux-tu faire ça ?

Tu sais en Delphi, le type String et plus ou moins un array of Char, ainsi tu peux accéder au caractère d'une chaîne en faisant
MaChaine[n];

ce qui récupère le Neme caractère de la chaîne MaChaine.

Code :

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

1
2
3
4
5
6
7
8
9
10
var
  MaChaine: String;
begin
  MaChaine:='Ceci est une chaîne !';
  ShowMessage(MaChaine[4]); // affiche 'i'
 
  MaChaine[3]:='l';
  MaChaine[4]:='a';
  ShowMessage(MaChaine); // affiche 'Cela est une chaîne !'
end;

Donc je voit pas l'intérêt de faire cet conversion. Enfin, sache que le premier carctère d'une chaîne a pour indice 1.

[MaTHieU_]

Salut,

En fait, le code hexa est donné via un TEdit.

Je dois donc decouper ma chaine de caractères en un tableau de char ou même de integer car après je dosi utiliser chaque bout comme chiffre.

MaTHieU_

[Okaryn]

Voici un exemple pour un tableau de Integer :

Avec un While :

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
procedure TForm1.Button1Click(Sender: TObject);
var
  MaChaine : string;
  MonTab : array of integer;
  I, iCount : Integer;
begin
  MaChaine := '123 456 789 0AB CDEF';
  iCount := 1;
  I := pos(' ', Machaine); {Position du 1er espace}
  While I <> 0 do
  begin
    SetLength(MonTab, iCount); {Taille tableau }
    MonTab[icount - 1] := StrToInt('$' + LeftStr(MaChaine, I - 1)); {Conversion Hexa}
    MaChaine := Copy(MaChaine, I + 1, Length(MaChaine) - I); {Reste de la chaine}
    I := pos(' ', Machaine);
    inc(iCount);
  end;
  SetLength(MonTab, iCount); {Derniere partie}
  MonTab[icount - 1] := StrToInt('$' + MaChaine);
end;

Avec un Repeat...Until

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
procedure TForm1.Button1Click(Sender: TObject);
var
  MaChaine : string;
  MonTab : array of integer;
  I, iCount : Integer;
begin
  MaChaine := '123 456 789 0AB CDEF';
  iCount := 1;
  repeat
    I := pos(' ', Machaine);
    SetLength(MonTab, iCount);
    if I > 0 then
    begin
      MonTab[icount - 1] := StrToInt('$' + LeftStr(MaChaine, I - 1));
      MaChaine := Copy(MaChaine, I + 1, Length(MaChaine) - I);
      inc(iCount);
    end
    else
      MonTab[icount - 1] := StrToInt('$' + MaChaine);
  until I = 0;
end;

[MaTHieU_]

Bonsoir,

Merci pour ce coup de pouce !

MaTHieU_

[Okaryn]

Pas de quoi