Convertir un string en cardinal

Résolu
cs_systmd
Messages postés
41
Date d'inscription
mercredi 25 février 2004
Statut
Membre
Dernière intervention
29 août 2012
- 1 sept. 2006 à 02:02
f0xi
Messages postés
4205
Date d'inscription
samedi 16 octobre 2004
Statut
Modérateur
Dernière intervention
12 mars 2022
- 1 sept. 2006 à 16:50
Bonjour,
J'aimerais savoir si quelqu'un sait comment résoudre ce probléme:
Ne fonctionne pas : SendMessage(Edit2.Handle,StrToInt64Def(Trim(Edit1.Caption),0),1, 0);
       Fonctionne : SendMessage(Edit2.Handle,EM_SETREADONLY,1, 0);

si je fait label1.caption:=IntToStr(EM_SETREADONLY); celà me donne 207
si je remplace EM_SETREADONLY pas le texte de mon edit
en faisant label1.caption:=StrToInt64Def(Trim(Edit1.Caption); ça donne 0

8 réponses

Emandhal
Messages postés
194
Date d'inscription
dimanche 2 mars 2003
Statut
Membre
Dernière intervention
10 octobre 2006
2
1 sept. 2006 à 08:19
Petite correction...

Function TryStrToCardinal(Const S: String; out Value: Cardinal): Boolean;
Var
  tmpInt: Int64;
Begin
  Result := False;
  If TryStrToInt64(S, tmpInt) Then
    If not ((tmpInt<Low(Cardinal)) or (tmpInt>High(Cardinal))) Then
    begin
      Value := tmpInt;
      Result := True;
      Exit;
    end;
End;

Chez moi ca fonctionne nickel, si ca ne fonctionne pas chez toi c'est peut-etre parce que ta chaine n'est pas totalement un suite de chiffres...

Tout problème a sa solution... Mais en général, celle que l'on trouve n'est jamais la bonne...
3