Discussion :

[nmathon]

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

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

Code :

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

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;

[Reisubar]

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 :

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

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]...

[nmathon]

Merci!