Discussion :

[secretman]

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 :

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

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

[Clorish]

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

[Gilbert Geyer]

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.

[secretman]

marche pas (avec ou sans +1) !

Code :

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

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

[Gilbert Geyer]

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.

[J_apprenti]

Mr secretman.

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

Code :

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

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 :

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

1
2
3
4
5
6
var
a : string;
RestoreName : Array[0..255) of char;
begin
StrPCopy(RestoreName,a);
InfoPointRestauration.szDescription := RestoreName;

[secretman]

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