Discussion :

[Oyoboy]

Comment on vonverti un widestring (text d'une zone de texte) en un int ?????? :o

merci de répondre svp

[denisys]

la fonction StrToInt() ne marche pas ?

Code :

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

1
2
3
4
5
6
7
8
9
10
procedure TForm1.Button1Click(Sender: TObject);
 
var
  I: Integer;
  J: Integer;
begin
  I := StrToInt(Edit1.Text);
  J := StrToInt(Edit2.Text);
  ShowMessage(IntToStr(I + J));
end;

[paty.olivier]

Non, StrToInt ne fonctionne pas avec les WideString mais il est facile de convertir un WideString grace a la fonction .c_str()

Ce qui donne :

Code :

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

StrToInt(MonEdit->Text.c_bstr());

Je suppose qu'il doit y avoir un equivalent en Delphi

[denisys]

paty.olivier a dit :
Non, StrToInt ne fonctionne pas avec les WideString mais il est facile de convertir un WideString grace a la fonction .c_str()

Je ne comprend ce que tu veut exprimer
Moi avec Kylix 3 sur Red Hat 9 cela fonctionne bien !!!!

[tretsois]

Salut à tous,
Moi aussi j'ai eu ce probleme de conversion.
http://www.developpez.net/forums/vie...032899#1032899

[denisys]

tretsois
Tu a ce probléme avec kylix 3 ???
Avec Mandrake ?
Ou autre ??

[tretsois]

Salut dénisys,
J'ai ce pb avec mdk 10 mais ma distrib n'est pas une référence car je l'ai modifié à ma sauce .
Pour les problèmes de conversion ca vient du compilateur car il faut activer les options de type de chaine ou bien faire des conversions explicites (à mon avis c'est mieux et plus portable pour l'écriture de code multi-plateforme)

[denisys]

Personnellement, j’ai étais surpris que la fonction de conversion

Code :

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

StrToInt

Tourne conventionnellement sur Red Hat 9 . Mais je pense que cela vient de la version du kernel (je n’en suis pas sur ) . De plus je n’est pas effectué les mêmes manips que toi , j’ai juste ajouté le rpm compat-glibc-6.2-2.1.3.2.i386.rpm.

[tretsois]

Re dénisys,
Je vient de regarder la définition de StrToInt(): sa déclaration est en Delphi StrToInt(S: string) et en c++ StrToInt(S: AnsiString) (Delphi 7 pour windows car je suis sous XP en ce moment).
Sous Linux on doit jouer avec {H+} et {H-} car par défaut kylix est configuré pour des string = ShortString.
Si S est un ShortString on S[0] qui est la longueur de la chaine de caractères alors qu'un TCaption définit dans QType(type TCaption = type WideString et dans Controls( type TCaption = type string dans ce cas S[0] est un caractere et S devient une chaine AZT.
Pour plus d'info regardez bien quelles sont les unités déclaré dans la clause uses, si vous avez {H+} ou {H-}, et bien entendu si vous avez activé les exceptions correspondantes ensuite regardez dans le fichier d'aide pour les compatibilité.
(Je sais que mon explication est brouillon mais j'ai des pb d'expressions dsl)

[denisys]

Salut tretsois , excuse pour ce petit temps de réponse , mais je voulais regarder ma config kylix 3 ainsi que fair quelques tests complémentaires avant de te réponde .
Ci-joint ce que je fais pour démarrer kylix 3 , ainsi qu’un petit test StrToInt .

Code :

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

1
2
3
4
5
 
export LD_ASSUME_KERNEL=2.2.5;startkylix
****************************************
[root@plutonrh root]# export LD_ASSUME_KERNEL=2.2.5;startkylix
Note: Please start the Delphi portion of Kylix with the startdelphi command.

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
unit Main;
 
interface
 
uses
  SysUtils, Types, Classes, Variants, QTypes, QGraphics, QControls, QForms, 
  QDialogs, QStdCtrls;
 
type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    EditFranc: TEdit;
    EditEuro: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.xfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var SFranc : integer ;
    VEuro : integer ;
    VConvert : integer ;
begin
VEuro := 6;
    SFranc := StrToInt(EditFranc.Text);
    VConvert := SFranc * VEuro ;
    EditEuro.Text := IntToStr(VConvert);
 
 
end;
 
end.

Comme tu peut le constater Kylix démarre une portion de delphi . Cela explique peut être ceci.

[tretsois]

Salut dénisys,
Ben oui ca marche et c correct sous delphi7 des que je peux je le tente sous kylix.