Discussion :

[TsCyrille]

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 :

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

Voici la fonction concernée :

Code :

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

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

[Cl@udius]

Salut

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

1° solution

Code :

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

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 :

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

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 :

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

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

[TsCyrille]

Salut,

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

Encore merci