Discussion :

[thierrybo]

Bonjour,

j'ai vu ce problème résolu dans ce fil

En fait je l'ai aussi :

Code :

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

1
2
3
4
5
6
function StrToOem(const AnsiStr: string): string;
begin
  SetLength(Result, Length(AnsiStr));
  if Length(Result) <> 0 then
    CharToOem(PChar(AnsiStr), PChar(Result));
end;

me donne

Types incompatibles Char et AnsiChar

sur la ligne CharToOem sous D2009.

Dans le fil, sous D7, il fallait cocher Chaine vaste dans les options de syntaxe du compilateur. Sous 2009, ça s'appelle "Chaine longue par défaut" et c'est aussi coché par défaut.
J'ai chargé le code dans D7 et ça passe.

Bon je fouille, j'ai bien vu que c'est à cause d'Unicode

[Andnotor]

Pour que ça fonctionne en 2007 et en 2009:

Code :

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

1
2
3
4
5
6
function StrToOem(const Str: string): ansistring;
begin
  SetLength(Result, Length(Str));
  if Length(Result) <> 0 then
    CharToOem(PChar(Str), PAnsiChar(Result));
end;

J'ai remplacé la variable AnsiStr par Str pour éviter la confusion. C'est une AnsiSring sous 2007, mais WideString sous 2009 .

[thierrybo]

Merci,

en plus ta version fonctionne sur D7 aussi.