Convertir String en Char: comment?

Le code suivant ne fonctionne pas. Comment pourrais-je le faire fonctionner?

C'est tout bête, mais je n'y arrive pas!

Code:

---

1 2 3 4 5 6 7 8 9 10

var i: integer; c: char; begin   for i:= 1 to length(edit1.text) do c := copy(edit1.text, i, 1);   end;

---

Un string, c'est une chaîne de caractères. Un char, c'est un caractère. Comment tu veux convertir plusieurs trucs en un seul truc ?

Je pense que tu veux plutôt convertir une chaîne en tableau de char, dans ce cas là ça donne plutôt avec StrCopy :

Code:

---

1 2 3 4 5

var LArrayOfChar: array[0..100] of char; //longueur arbitraire begin StrPLCopy(LArrayOfChar, 'Un string', SizeOf(LArrayOfChar)); end;

---

Sinon, pour récupérer le ième caractère dans un char, c'est MaChaine[i]...

Merci!