Discussion :

[franckgar]

Bonjour,
j'ai un problème avec Delphi2009.
Pour faire un portage en Delphi2009 d'un logiciel écrit en Delphi7 j'ai utilisé l'option {$H-} dans mon projet pour de définir les mots clefs string comme étant des shortstring.

Cependant cette option n'a pas l'air de fonctionner !
En delphi7 je ne pouvais pas déclarer de shortstring de plus de 255 caractères (ce qui est normal) mais en delphi2009 je n'ai pas cette limitation.

De plus avec Delphi7: sizeof(s[1])=1
mais avec Delphi2009: sizeof(s[1])=2
(avec s:string)

ce qui me fait penser que l'option {$H-} n'est pas prise en compte.
Une idée du problème ?

merci

[Linkin]

Ce n'est pas la différence Unicode/AnsiChar?

[franckgar]

pour résumer

avec Delphi7:

string = AnsiString avec {$H+}
string = ShortString avec {$H-}
char = AnsiChar

avec Delphi2009:

string = UnicodeString avec {$H+}
string = ShortString avec {$H-} -> ne fonctionne pas chez moi
char = WideChar

[Dr.Who]

relis l'aide delphi 2009 pour les directive $H, $V, $X.

en delphi :

String = UnicodeString (WideString)
Char = UnicodeChar (WideChar)
PChar = PUnicodeChar (PWideChar)


pour revenir au mode Ansi il faut utiliser les types PAnsiChar, AnsiString et AnsiChar au lieu des String, Char et PChar.

on peu egalement utiliser une compilation conditionnelle grace à {$IFDEF UNICODE}.

[Linkin]

D'après cette discussion, H ne s'applique qu'aux chaines Ansi. Or en Delphi 2009 ce sont des chaînes Unicode.

https://forums.codegear.com/thread.j...start=0#117207

[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
14
15
16
17
18
19
20
21
22
23
24
type
  lpStr = {$IFDEF UNICODE} PAnsiString {$ELSE} PString{$ENDIF};
  lStr = {$IFDEF UNICODE} AnsiString {$ELSE} String {$ENDIF};
  lpChar = {$IFDEF UNICODE} PAnsiChar {$ELSE} PChar {$ENDIF};
  lChar = {$IFDEF UNICODE} AnsiChar {$ELSE} Char {$ENDIF};
 
function Truc(const S: lStr): lStr;
  // S = "hello world" -> result = "h e l l o  w o r l d"
var pR : lpChar;
  N : integer;
  L : integer;
begin
  L := Length(S);
  SetLength(result, L*2 - 2);
  pR := lpChar(result);
 
  for N := 1 to L-1 do
  begin
    pR[0] := S[N];
    pR[1] := #20;
    inc(pR, 2);
  end;
  pR[0] := S[L];
end;

[franckgar]

comme l'option {$H} ne semble pas faire ce que je souhaite j'ai résolu mon problème en remplaçant les 3000 mots clés "string" par "shortstring" dans mon projet ... maintenant je dois tester tout ça ...
merci