Copy String to array of char

Bonsoir,
J'aurais une petite question de compréhension,
pourquoi je peux faire ceci et le sens inverse ne fonctionne pas..
example.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

var Buf1 :array[1..120] of char; Buf2 :array[1..120] of char; TempStr : String; .. // Buf1 -> remplie de données, ok .. TempStr := Buf1; // ceci fonctionne Buf2:= TempStr; // ceci ne fonctionne pas .. ..

---

Merci beaucoup pour une petite explication et comment dois-je faire.
Salutations

En fait, qu'on m'arrête si je dis des bêtises, :P
Quand on déclare une variable de type string, on déclare un pointeur de chaine.

Ton tableau étant une chaine de caractères peut donc être affecté à la chaine string tandis que l'inverse n'est pas vrai, ton tableau ne peut référencer un pointeur.

Tu aurais pu également déclarer ta chaine de la façon suivante string[120] (chaine courte) et affecter directement ton tableau. Seul petit problème c'est que pour les chaines courtes le premier caractère de ta chaine est réservé pour connaitre la taille de ta chaine. pour que ton code puisse marcher il aurait fallu déclarer ton tableau comme suit :

Code:

---

1 2 3 4

var Buf1 :array[0..120] of char; Buf2 :array[0..120] of char; TempStr : String[120];

---

Mais pour que cela ne pose pas de problème il faut que tu renseignes dans l'élément de ton tableau à l'indice 0 la longueur de ta chaine.

Bonjour

Copie caractère par caractère => for i:= 1 to length(TempStr) do Buf2[i]:= TempStr[i];

Exemple [D7]: sur une fiche 1 Tbouton 2 Tedit

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

procedure TForm1.Button1Click(Sender: TObject); KMAX = 8; // 8 pour l'exemple var Buf1,Buf2 : array[1..KMAX] of char; TempStr : String[KMAX]; i : integer; begin TempStr := ''; for i:= 1 to KMAX do buf1[i]:=inttostr(i)[1]; TempStr := Buf1; // ceci fonctionne edit1.Text := tempstr; tempstr := '87654321'; // ... traitement for i:= 1 to length(TempStr) do Buf2[i]:= TempStr[i];// ceci fonctionne edit2.Text := Buf2; end;

---

Comme tu commences à 1 avec buf tout va bien.
Attention au résidu en fin de buf2 si TempStr est plus petit que buf2.

A+, Hervé.

Tu peux optimiser grave avec Move :

Code:

---

Move(Str[1], Buf, Length(Str));

---

Mais je suppose que ton buffer est AZT (à zéro terminal) non ?
Dans ce cas tu ajoute 1 au Move :

Code:

---

Move(Str[1], Buf, Length(Str)+1);

---

Hallo, de faire une copie caractère par caractère

Citation:

---

Copie caractère par caractère => for i:= 1 to length(TempStr) do Buf2[i]:= TempStr[i];

---

n'est-ce pas assez lourd seulement pour copier un array dans un String?

Le but de mon problèm est que je n'arraivais pas a faire ceci!

Code:

---

1 2	Buf2 := copy(Buf1, 1, 18);

---

Donc j'ai fait

Code:

---

1 2 3

TempStr := copy(Buf1, 1, 18); Buf2 := TempStr // qui ne fonctionne pas

---

Donc si je veux résoudre ce problèm je dois passez par une boucle ou de définir le string[120]!

Merci pour la réponse. Salutations.

Comme indiqué par macumba en deuxième réponse, je teconseille de commencer tes tableaux avec un indice de 0, pas de 1

Code:

---

Buf0,Buf1 :array[0..120] of char;

---

Je viens de faire ce que vous m'avez dit:
En définisant:

Code:

---

1 2 3 4 5

var Buf1 :array[0..120] of char; Buf2 :array[0..120] of char; TempStr : String[120];

---

Mais le compilateur ne pass pas à cette ligne
Types incompatibles : 'Array' et 'ShortString'

Code:

---

1 2	Buf1 := TempStr;

---

Zut, dans l'exemple le KMAX est défini en constante mais je pense que tu avais corrigé.(oubli dans copier/coller)

Code:

---

const KMAX=8;

---

Pour ma part la boucle fonctionne.
La définition du string[120] c'est pour que l'ensemble soit homogène.

Mais il existe peut-être d'autre solutions.
A+, Hervé.

Ton message est passé pendant que j'écrivais.
Pour répondre ,c'est normal Buf1 est un tableau, TempStr une chaine de caractère.
Le fait de définir TempStr : String[120]; lui indique simplement que c'est une chaine de caractère qui aura 120 de long maxi. Pas un tableau.
Fait la boucle for ou attend de voir d'autre réponses.

A+, Hervé.

Citation:

---

Envoyé par Ardely

Le but de mon problèm est que je n'arraivais pas a faire ceci!

Code:

---

Buf2 := copy(Buf1, 1, 18);

---

Donc j'ai fait

Code:

---

1 2	TempStr := copy(Buf1, 1, 18); Buf2 := TempStr // qui ne fonctionne pas

---

---

Au lieu de t'en tenir à ta première (bonne) idée : avec juste un changement : utiliser Move au lieu de Copy :

Code:

---

Move(Buf1[1], Buf2[1], 18);

---

Avec les Buf de 1 à 120 :)

Hallo,
Tu as raison avec Move sa fonctionne absolument correctement bien.
Merci à tous pour les solutions.. qui m'a fait mieux comprendre à mieux adapter les possibilité pour les array et string.

Citation:

---

Mais le compilateur ne pass pas à cette ligne
Types incompatibles : 'Array' et 'ShortString'

Code :

Buf1 := TempStr;

---

Curieux chez moi ca ne pose pas de pb. Tu n'aurais pas bouger certaines directives de compilation? Tu es en quelle version de Delphi?
Enfin c'est pas bien grave c'est pas une méthode très recommandée.