Types incompatibles : 'Array' et 'dynamic array'

Bonsoir.

Soit le code

Code:

---

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

type TTRUC = packed record // autres trucs inutiles pour la démo Name : array of WideChar; // dans msdn : WCHAR Name[1]; // Variable-length string end; TRUC = TTRUC;   procedure InitTruc(var t: TRUC; u: ULong; n: array of WideChar); begin SetLength(t.Name, u); t.Name := n; // Erreur ici ! end;

---

Je voudrais bien savoir pourquoi la compilation (D7) échoue :aie: avec le curseur clignotant au bout de la ligne
t.Name := n;
et avec l'erreur

Citation:

---

Types incompatibles : 'Array' et 'dynamic array'

---

Merci à tous de vos lumières,

Bonjour,

J'ai trouvé cela :

http://www.developpez.net/forums/d14...-dynamique-2d/

en esperant que cela peut t'aider. ;)

Code:

---

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

type TWideCharArray = packed array of WideChar;   type TTruc = packed record WCA : TWideCharArray; end;     procedure Init(const aTruc : TTruc; const aWCA: TWideCharArray); begin aTruc.WCA := aWCA; end;

---

pas besoin de SetLength...

@Buzz : merci, c'est un peu l'idée du Dr.Who.

@Dr.Who : pas mal, mais comment je vais faire afficher ton TWideCharArray ?
Car bien sûr,

Code:

---

ShowMessage(aTruc.WCA);

---

ne fonctionne pas,

Citation:

---

erreur Types incompatibles : 'String' et 'TWideCharArray '

---

Me faudrait-il faire une conversion caractère par caractère, ou existe-t'il une fonction pour cela ?

haha :

et bien utilise le type PWideChar ...

le mieux etant d'utiliser le type PChar (PWideChar en mode unicode et PAnsiChar en mode Ansi).


ce qui donne :

Code:

---

1 2 3 4

type TTruc = packed record name : PChar; end;

---

Salut,
un complément d'infos.

Salut !

Citation:

---

Envoyé par Dr.Who

et bien utilise le type PWideChar ...
le mieux étant d'utiliser le type PChar (PWideChar en mode unicode et PAnsiChar en mode Ansi).
ce qui donne :

Code:

---

1 2 3 4

type TTruc = packed record name : PChar; end;

---

---

Euh,

Code:

---

1 2 3 4

type TTruc = packed record name : PWideChar ; end;

---

plutôt, nan ?
Car n'utiliser que des PChar tels quels ne fonctionne pas...

En tout cas, un

Code:

---

ShowMessage(t.Name);

---

avec PWideChar fonctionne tip top (avec PChar je n'ai que le premier caractère) !

Cette phrase n'est pas claire pour moi :

Citation:

---

le mieux étant d'utiliser le type PChar

---

Bon, OK, je pinaille, mais j'aime bien comprendre, ;)

Allez, un grand merci ! :ccool:
PS : et y a toujours pas besoin de SetLength ?

@Laurent : merci pour ton lien, mais il est vraiment beaucoup orienté .NET (un animal que je ne pratique absolument pas), je m'y suis perdu, :aie:

Citation:

---

Envoyé par Jipété

@Laurent : merci pour ton lien, mais il est vraiment beaucoup orienté .NET (un animal que je ne pratique absolument pas), je m'y suis perdu, :aie:

---

C'est vrai que le lien est lié à dotnet, et je t'accorde le fait que tu puisses y être perdu. Cette citation n'était pas fait pour y perdre qui que ce soi, au contraire.
Si tu fais abstraction de dotnet, tu verras que les explications de Dr.Who prennent corps.
Il ne faut pas se faire un monde de dotnet ou de java. Tout le monde fait la même chose, mais pas de la même maniére.
Le truc est de dire, certes mais moi je le fais mieux.
Mieux faire n'est pas penser mieux.

Et sans Delphi, C# et Visual studio n'auraient pas été comme ils le sont.
Tes réticences liées à dotnet, n'ont, à mon avis pas lieu d'être.
Si tu fais abstraction de dotnet, tu verras que les explications de Dr.Who prennent corps.

en fait que l'on soit sous Delphi 7, 2006 ou 2009 ou autre :

AnsiString -> AnsiChar -> PAnsiChar -> PAnsiString

WideString -> WideChar -> PWideChar -> PWideString

et

String -> Char -> PChar -> PString qui valent :
String = AnsiString si en mode Ansi, sinon = WideString/UnicodeString
Char = Ansichar si en mode Ansi, sinon = WideChar/UnicodeChar
PChar = PAnsiChar si en mode Ansi, sinon = PWideChar/PUnicodeChar
PString = PAnsiString si en mode Ansi, sinon = PWideString/PUnicodeString

en gros sous D2009/D2010 :
String = WideString et PChar = PWideChar

et sous D6/D7 :
String = AnsiString et PChar = PAnsiChar

donc un code utilisant des fonctions overoadées pour PWideChar/PAnsiChar (methodes ...A et ...W) pourront compilée et être affichée correctement.
si l'on travail en mode pur Ansi ou pur Wide il pourra y'avoir des problèmes de compilation/affichage.

par exemple, les methodes utilisant des pointeur type Byte sur PChar en Delphi 7, pourront provoquer des erreurs sous D2009 puisque PChar = PWideChar et donc n'est plus byte mais word.
on devra donc forcer l'utilisation de PAnsiChar plutot que PChar.