Discussion :

[Jipété]

Bonsoir.

Soit le code

Code :

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

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 avec le curseur clignotant au bout de la ligne
t.Name := n;
et avec l'erreur

Types incompatibles : 'Array' et 'dynamic array'

Merci à tous de vos lumières,

[BuzzLeclaire]

Bonjour,

J'ai trouvé cela :

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

en esperant que cela peut t'aider.

[Dr.Who]

Code :

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

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

[Jipété]

@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 :

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

ShowMessage(aTruc.WCA);

ne fonctionne pas,

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 ?

[Dr.Who]

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 :

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

1
2
3
4
type
  TTruc = packed record
    name : PChar;
  end;

[Laurent Dardenne]

Salut,
un complément d'infos.

[Jipété]

Salut !

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 :

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

1
2
3
4
type
  TTruc = packed record
    name : PChar;
  end;

Euh,

Code :

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

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 :

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

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 :

le mieux étant d'utiliser le type PChar

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

Allez, un grand merci !
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,

[Laurent Dardenne]

@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,

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.

[Dr.Who]

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.