Discussion :

[Ardely]

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

Code :

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

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

[macumba]

En fait, qu'on m'arrête si je dis des bêtises,
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 :

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

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.

[rv26t]

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 :

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

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

[sjrd]

Tu peux optimiser grave avec Move :

Code :

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

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 :

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

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

[Ardely]

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

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 :

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

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

Donc j'ai fait

Code :

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

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.

[LadyWasky]

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

Code :

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

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

[Ardely]

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

Code :

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

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 :

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

1
2
 
 Buf1 := TempStr;

[sjrd]

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

Code :

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

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

Donc j'ai fait

Code :

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

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 :

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

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

Avec les Buf de 1 à 120

[Ardely]

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.

[macumba]

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.

[rv26t]

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

Code :

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

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

[rv26t]

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