Discussion :

[Marc_3]

Bonjour,

J'ai un problème pour faire une conversion de type Shortstring vers int pour pouvoir faire des opérations arithmétiques sur les valeurs extraites.
Je travaille avec Delphi 7 et pas moyen.
J'ai vu sur embarcadero une méthode ou on passe par un tableau de Byte mais les fonction décrites ne font pas partie, autant que je sache, de sysutils de ma version comme décrit dans le tuto.

Est-ce qu'un moyen existe?


Merci pour vos reponses

marc_3

[Paul TOTH]

Code :

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

1
2
3
4
 
Val(Str, Int, Err);
// ou
Int := StrToInt(Str);

[tourlourou]

La ShortString est-elle du type '125' ou contient-elle autre chose que la représentation à base 10 d'un nombre ?

[Marc_3]

Merci pour vos réponse,
le code avec val(... fonctionne mais avec StrToInt pas du tout.

est-ce que cela a avoir avec la question du contenu de type 125?
Ce sont bien des int en base 10.

Je n'ai rien vu dans la littérature sur le type 125, qu'est-ce que c'est?

[tourlourou]

Excuse-moi d'avoir mis la chaîne '125' en exemple au lieu de parler d'entiers représentés en base 10 sous forme de chaîne...

L'essentiel est que Val() fonctionne avec les ShortStrings.

[Cl@udius]

Salut

le code avec val(... fonctionne mais avec StrToInt pas du tout.

Si tu as une erreur avec StrToInt c'est que ta chaîne de caractères contient au moins un caractère non interprétable.

Avec ce petit bout de code:

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
var
  S: ShortString;
  V, RetCode: Integer;
begin
  S := '123ABC';
  val(S, V, RetCode);
  ShowMessage(Format('S = ''%s'', V = %d, RetCode = %d', [S, V, RetCode]));
 
  try
    V := StrToInt(S);  // Levée exception
    ShowMessage(Format('V = %d', [V]));
  except
    on E: Exception do
      ShowMessage(E.Message);
  end;
end;

A la ligne 7, tu vois que RetCode est égal à 4, car le 4° caractère de la chaine (A) est incorrect, et V est égal à 123.

@+ Claudius.

[Marc_3]

Merci pour les réponses, ça marche maintenant et j'ai peur d'avoir une nouvelle question d'ici peu
Je mets déjà le résolu ici

@+