Spliter un string en array of char ?

Bonjour,

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

Citation:

---

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_

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:

---

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.

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_

Voici un exemple pour un tableau de Integer :

Avec un While :

Code:

---

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:

---

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;

---

Bonsoir,

Merci pour ce coup de pouce !

MaTHieU_

Pas de quoi :P