Convertir string en Array of Char et point de restauration

Je souhaite créer un point de restauration systeme dans mon programme.
j'ai trouvé le code sur le site de developpez.com à l'adresse :
http://www.developpez.com/delphi/faq...inrestauration

la ligne suivante, affiche le nom du point de restauration :
InfoPointRestauration.szDescription := 'Example de point de restauration';

il s'agit en fait d'un Array et non s'un string

J'ai voulu ajouter un InputBox pour demander le nom du point de restauration mais impossible ! des problèmes de compatibilité de format entre string et Array. J'ai essayer de transformer le string de l'inputbox en Array of Char
comme ceci :

Code:

---

1 2 3 4 5 6 7 8 9

var a : string; RestoreName : Array[0..255) of char; begin //Copie d'un string vers un array of char RestoreName := StrCopy(a, PChar(RestoreName));   InfoPointRestauration.szDescription := RestoreName;

---

mais impossible (type incompatibles) ! j'avoue que je bloque.
Quelque'un peut-il m'aider ?
Merci.

Daniel

Pourquoi ne pas effectuer uen boucle de 1 a Length(<chaine saisie>) et copiler les caracteres un par un dans le tableau de char ;)

A verifier ... mais je pense que le tableau doit contenir le caracter nul #0 pour terminer la chaine :)

Pour transférer un String dans un Array of Char :

Essayes donc avec Move(StrSource, BufDestination, Length(StrSource));
et si Length(StrSource) est trop court (0 terminal AZT de l'Array) remplaces par Length(StrSource)+1) ;

Pour plus de détails sur Move faire F1.

marche pas (avec ou sans +1) !

Code:

---

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

var RestoreName : string; RestoreName2 : Array[0..255] of Char; begin   repeat RestoreName := InputBox('Point de restauration', 'Entrez un nom', 'Nouveau point de restauration'); until RestoreName <> '';   Move(RestoreName, RestoreName2, Length(RestoreName)); InfoPointRestauration.szDescription := RestoreName2; //Array of

---

Types incompatibles !
Quelqu'un peut-il me dire s'il s'agit bien d'un Array of Char pour InfoPointRestauration.szDescription" ?

Quelqu'un peut il tester le code (voir lien dans la question) ?


Daniel

Y'a pas beaucoup de monde sur le forum aujourd'hui.

Mais si tu tapes 'Copy String to array of char' dans l'Edit qui s'ouvre avec la fonction Chercher dans le Forum (en haut à droite de la page 1 du Forum) on trouve une discussion sur ce sujet qui te donnera peut-êtres des idées.

:salut: Mr secretman.

peut-etre que c'est StrPCopy que tu dois utiliser :D

Code:

---

function StrPCopy(Dest:PChar;const Source:string):PChar;

---

StrPCopy copie Source dans une chaîne à zéro terminal Dest.Elle renvoie un pointeur vers Dest.

Code:

---

1 2 3 4 5 6

var a : string; RestoreName : Array[0..255) of char; begin StrPCopy(RestoreName,a); InfoPointRestauration.szDescription := RestoreName;

---

:coucou:

StrPCopy(RestoreName,a);

[Erreur] Unit1.pas(467): Types incompatibles

Je me demande si "InfoPointRestauration.szDescription"
est bien d'un Array of Char ??? car j'ai tout essayer en vain.

Qu'y a t-il comme autres Array ? Byte ? ...

Si quelque'un à le temps de regarger le source, 2 secondes, pour me dire ce qu'il en pense :

http://www.developpez.com/delphi/faq...inrestauration

Merci d'avance,

Daniel

Non, y'a pas de doute, c'est bien un Array of Char...

Tu peux refaire un copier-coller de ton code avec ton Input ? J'ai l'impression que le problème vient de l'input et non pas du type d'origine...

Dans l'api le szDescription est limité à 64 caractères... T'es sûr que ton problème ne vient pas de là ???

Hello,

et en essayant Move(StrSource[1], BufDestination, Length(StrSource)); ?

la partie array of char d'un string commence au rang 1 et non 0, ne l'oublions pas.

dsl, je n'ai pas delphi ici pour tester.

Code:

---

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

var a : string; RestoreName : Array[0..63] of char; begin // Initialise l'enregistrement InfoPointRestauration.dwEventType := BEGIN_SYSTEM_CHANGE; InfoPointRestauration.dwRestorePtType := APPLICATION_INSTALL; InfoPointRestauration.llSequenceNumber := 0;   a := InputBox('Point de restauration', 'Entrez un nom', 'Nouveau point de restauration'); Move(a[1], RestoreName, Length(a)); // a := StrCopy(RestoreName, PChar(a)); //test2 // a := StrPCopy(RestoreName, PChar(a)); //test3 : toujours rien   InfoPointRestauration.szDescription := RestoreName;

---

Voici donc le code, pour trouver le truc qui coince !

Daniel

salut

restorename n'est pas du meme type que szDescription

Code:

---

1 2 3 4 5 6 7

MAX_DESC = 64; ... // Informations de point de restauration type ... szDescription: array [0..MAX_DESC] of CHAR; // Description : Nom de l'application / opération ...

---

64 est different de 63

@+ Phil

var
RestoreName: array [0..MAX_DESC] of CHAR;
toto : string;

toto := InputBox('Point de restauration', 'Entrez un nom', 'Nouveau point de restauration');

Move(toto[1], RestoreName, Length(toto));
//StrPCopy(RestoreName,toto)

InfoPointRestauration.szDescription := RestoreName; //Array of

Toujours type incompatible ! c'est à s'arracher les cheveux.

Citation:

---

Envoyé par secretman

var
RestoreName: array [0..MAX_DESC] of CHAR;
toto : string;

toto := InputBox('Point de restauration', 'Entrez un nom', 'Nouveau point de restauration');

Move(toto[1], RestoreName, Length(toto));
//StrPCopy(RestoreName,toto)

InfoPointRestauration.szDescription := RestoreName; //Array of

Toujours type incompatible ! c'est à s'arracher les cheveux.

---

bonjour, j'ai pu jouer un peu avec delphi ce week end.

Move(toto[1], RestoreName[0], Length(toto));

devrait mieux fonctionner. attention aux longueurs respectives des tableaux de caractères

Merci pour tes tests !
RestoreName prend bien le contenu de toto comme un Array (chaque caractère est séparé dans la chaine) mais il rempli les autres caractères, au dela de la longueur de toto jusqu'au 64e caractère, avec des caractères cabalistiques de toute nature. Le problème surement de là.
Comment faire pour vider la variable RestoreName (Array of Char) avant de l'affecter à toto ?

Merci,

Daniel

Citation:

---

Envoyé par secretman

Merci pour tes tests !
RestoreName prend bien le contenu de toto comme un Array (chaque caractère est séparé dans la chaine) mais il rempli les autres caractères, au dela de la longueur de toto jusqu'au 64e caractère, avec des caractères cabalistiques de toute nature. Le problème surement de là.
Comment faire pour vider la variable RestoreName (Array of Char) avant de l'affecter à toto ?

Merci,

Daniel

---

As tu vraiment besoin d'un tableau statique ?

si ce n'est pas le cas

Code:

---

1 2 3

RestoreName: array of CHAR; {déclaration de tableau dynamique}   SetLength(RestoreName, Length(Toto));

---

{met le tableau à même longueur que Toto}




sinon,

Code:

---

1 2	For Index := High(RestoreName) downto 0 do {une simple boucle qui érase les caractères un á un. L'expression High renvoie l'index le plus haut du tableau. ne pas utiliser length qui renvoie la taille, c'est à dire high + 1 et qui donnerait une erreur} RestoreName[Index] := '';

---

Peut-être un FillChar(RestoreName, MAX_DESC, #0); ???
pour initialiser le tableau RestoreName afin de supprimer les caractères parasites

Citation:

---

Envoyé par secretman

Peut-être un FillChar(RestoreName, MAX_DESC, #0); ???
pour initialiser le tableau RestoreName afin de supprimer les caractères parasites

---

oui un fillchar, mais ainsi, je pense.

FillChar(RestoreName, Length(RestoreName), 0);
Il vaut mieux mesurer la valeur de RestoreName
et, comme il demande un byte en valeur et non un caractère.

lorsque je met
SetLength(RestoreName, Length(Toto));
j'ai : [Erreur] Unit1.pas(804): Un objet constante ne peut être passé comme paramètre Var

Alors je met cela :

Code:

---

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

var RestoreName: array [0..MAX_DESC] of CHAR; toto : string;   begin // Initialise l'enregistrement InfoPointRestauration.dwEventType := BEGIN_SYSTEM_CHANGE; InfoPointRestauration.dwRestorePtType := APPLICATION_INSTALL; InfoPointRestauration.llSequenceNumber := 0;   toto := InputBox('Point de restauration', 'Entrez un nom', 'Nouveau point de restauration');   For Index := High(RestoreName) downto 0 do RestoreName[Index] := #0;   Move(toto[1], RestoreName[0], Length(toto)); InfoPointRestauration.szDescription := RestoreName;

---

et j'ai toujours : [Erreur] Unit1.pas(810): Types incompatibles, sur la dernière ligne
Je rappel que le code complet est ici :
http://www.developpez.com/delphi/faq...inrestauration

Si quelque'un veut bien faire quelques tests (prend 2 minutes avec un copier coller du code)

Merci

Daniel

C'est sur InfoPointRestauration.szDescription := RestoreName;
qu'est l'erreur ?

Une déclaration de tableau dans un packed record et une déclaration de tableau dans une var ??



dans ce cas, travaille directement sur InfoPointRestauration.szDescription:

Code:

---

1 2 3 4

If Length(toto) > Length(InfoPointRestauration.szDescription) then SetLength(toto, Length(InfoPointRestauration.szDescription)); {interdit une copie de caractères plus longue que szDescription} For Index := High(InfoPointRestauration.szDescription ) downto 0 do InfoPointRestauration.szDescription [Index] := ''; Move(toto[1], InfoPointRestauration.szDescription [0], Length(toto));

---

RestoreName est il réellement utile ?

De mon coté pas de résultat de test avant lundi. Ici, demain c'est férié avec pont vendredi.