Delphi2009 option {$H-}

Version imprimable

02/11/2009, 16h00
franckgar

Delphi2009 option {$H-}

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
02/11/2009, 16h32
Linkin

Ce n'est pas la différence Unicode/AnsiChar?
02/11/2009, 16h38
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
03/11/2009, 18h26
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}.
04/11/2009, 08h34
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

Code:

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;

05/11/2009, 11h11
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