Fonction System.Str avec Delphi 2010

Version imprimable

Bonjour,

Je suis en train de migrer mes applications de Delphi 2007 vers 2010 et je rencontre un souci avec la fonction System.Str().

Quand je compile une de mes projets (qui est en fait un composant que j'ai acheté il y a un petit moment) , j'ai ce type d'avertissement :

Citation:

"W1057 Transtypage de chaîne implicite de 'ShortString' en 'string'"

Voici la fonction concernée :
Code:

1 2 3 4 5 6 7 8 9 constructor MyClass.Create(const nNo: Integer; const sMsg: string); var s, sNo : string; begin Str(nNo, sNo); s := 'Error:' + sNo + ' ' + sMsg; inherited Create(s); ErrorNo := nNo; end; {ECrpeError}
L'avertissement s'applique sur la ligne concernant la fonction Str() or, je passe bien un 'string' à cette fonction comme l'indique l'aide. Je ne comprends pas pourquoi j'ai cet avertissement. Est-ce que quelqu'un pourrait m'expliquer ce qui se passe ?

Merci d'avance

Salut

Contrairement à ce que tu penses, la fonction Str attend en paramètre une chaine courte (ShortString) d'où l'avertissement.

1° solution

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
constructor MyClass.Create(const nNo: Integer; const sMsg: string);
var
  s: string;
  sNo: ShortString[11];    // 11 longueur max d'un Integer
begin
  // sNo en ShortString
  Str(nNo, sNo);
  // transtypage explicite du ShortString pour la concatenation vers S
  // sinon nouvel averto. ;)
  s := 'Error:' + string(sNo) + ' ' + sMsg;  
 
  inherited Create(s);
  ErrorNo := nNo;
end;

2° solution, utilisation de Format:

Code:

1
2
3
4
5
6
7
8
constructor MyClass.Create(const nNo: Integer; const sMsg: string);
var
  s: string;
begin
  s := Format('Error: %d %s', [nNo, sMsg];  
  inherited Create(s);
  ErrorNo := nNo;
end;

ou encore, puisque qu'apparemment c'est une classe d'exception:

Code:

1
2
3
4
5
constructor MyClass.Create(const nNo: Integer; const sMsg: string);
begin
  inherited CreateFmt('Error: %d %s', [nNo, sMsg]);
  ErrorNo := nNo;
end;

@+ Claudius

25/03/2010, 16h04
TsCyrille

Salut,

Merci pour ton aide : j'ai pris la première solution et je n'ai plus d'avertissement.

Encore merci