begin process at 2012 02 10 13:10:22
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > Forum > 

Delphi

 > 

Réseau & Internet

 > 

Autre

 > 

Convertir un string en cardinal

Derniers messages déposésPoser une question dans le forum ou lancer une discussion

Convertir un string en cardinal

vendredi 1 septembre 2006 à 02:02:50 | Convertir un string en cardinal

systmd


Bonjour,
J'aimerais savoir si quelqu'un sait comment résoudre ce probléme:
[quote]
Ne fonctionne pas : SendMessage(Edit2.Handle,StrToInt64Def(Trim(Edit1.Caption),0),1, 0);
       Fonctionne : SendMessage(Edit2.Handle,EM_SETREADONLY,1, 0);
[/quote]


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
vendredi 1 septembre 2006 à 08:10:26 | Re : Convertir un string en cardinal

Emandhal

Function StrToCardinal(Const S: String): Cardinal;
Begin
  If not TryStrToCardinal(S, Result) Then
    Raise EConvertError.Create(Format('''%s'' n''est pas une valeur entière correcte', [S]));
End;

Function StrToCardinalDef(Const S: String; Default: Cardinal): Cardinal;
Begin
  If not TryStrToCardinal(S, Result) Then Result := Default;
End;

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

Tout problème a sa solution... Mais en général, celle que l'on trouve n'est jamais la bonne...
vendredi 1 septembre 2006 à 08:19:49 | Re : Convertir un string en cardinal

Emandhal
Réponse acceptée !
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...
vendredi 1 septembre 2006 à 11:42:29 | Re : Convertir un string en cardinal

systmd
Bonjour,
merci pour ta réponse.

Si je fais SendMessage(Edit1.Handle,StrToCardinal(ComboBox1.Text),1, 0);

avecEM_SETREADONLY comme texte de ComboBox1, 
 
celà me donne : 'EM_SETREADONLY '  n'est pas une valeur correcte.

J'utilise peut-être pas ta fonction comme il le faut ?.
vendredi 1 septembre 2006 à 12:05:35 | Re : Convertir un string en cardinal

cirec

Membre Club Administrateur CodeS-SourceS
Salut,

1°) pourquoi veux-tu absolument utiliser les Messages ?

2°)StrToInt64Def: Converti un String en Entier

Et si tu veux affecté un entier à un String il faut utiliser IntToStr :

Donc pour faire ce que tu demandes il faudrait faire :

Edit2.Text := IntToStr(StrToInt64Def(Edit1.Text, 0));

ce qui revient pratiquement à faire : Edit2.Text := Edit1.Text; // tout simplement

@+
Cirec
vendredi 1 septembre 2006 à 12:28:11 | Re : Convertir un string en cardinal

systmd
@CIREC

Cette ligne SendMessage(Edit1.Handle,EM_SETREADONLY,1, 0);
c'est pour rendre Edit1 en lecture seul .
Pas la peine de me parler de Edit1.readonly:=true, c'est pas ce que je cherche.


Edit2.Text := IntToStr(StrToInt64Def(Edit1.Text, 0)); -->donne 0 et non pas 207
vendredi 1 septembre 2006 à 13:44:34 | Re : Convertir un string en cardinal

cirec

Membre Club Administrateur CodeS-SourceS
Réponse acceptée !

ça ne m'explique toujours pas pourquoi tu veux utilisé les messages ...

Et si tu sais que : " SendMessage(Edit1.Handle,EM_SETREADONLY,1, 0); "
C'est pour mettre Edit1 en lecture seul ...

Tu devrais savoir que le deuxième paramètre de SendMessage est le message à envoyé
et donc que forcément ceci " SendMessage(Edit2.Handle,StrToInt64Def(Trim(Edit1.Caption),0),1, 0); " ne pourra jamais fonctionner  

Ensuite tu dis :
Edit2.Text := IntToStr(StrToInt64Def(Edit1.Text, 0)); -->donne 0 et non pas 207

Mais quel est la valeur de Edit1.Text      ...   
si Edit1.Text := S207  le résultat sera 0
si Edit1.Text := 207  le résultat sera 207
si Edit1.Text := 207W  le résultat sera 0
si Edit1.Text := 20P7  le résultat sera 0


Et quand tu dis pas la peine de me parler de Edit1.ReadOnly := True;
Je suppose donc que l'édit en question ne se trouve pas dans la même application


Et pour finir je pense qu'une petite visite sur la page du règlement de CodeS SourceS ne peut pas te faire de mal.

on ne sais toujours pas ce que tu veux faire (ce qui est très important pour tout ceux qui voudront te répondre) et entre nous les membres ne sont pas encore des voyants.

Mais si tu es si avare de détails essaye google

@+
Cirec
vendredi 1 septembre 2006 à 14:00:00 | Re : Convertir un string en cardinal

systmd
SendMessage(Edit2.Handle,StrToInt64Def(Trim(Edit1.Caption),0),1, 0);  " ne pourra jamais fonctionner

Bin voilà , je cherche pas plus loin

Et pour finir je pense qu'une petite visite sur la page du règlement de CodeS SourceS ne peut pas te faire de mal.

Je ne vois pas pourquoi, mes bon si ça vous fais plaisir
vendredi 1 septembre 2006 à 16:50:43 | Re : Convertir un string en cardinal

f0xi

Membre Club Administrateur CodeS-SourceS



Bonjour,

Stublupul(Blabi,Kapoue,0,0,KIKOO_LOL);

ça marche pas !!!! pourquoi ?


Parce que .... Lavabo transatlantique.


si tu nous dis pas ce que tu cherche a faire, a quoi sa sert, dans quel but on ne peu pas t'aider.
faut pas avoir fait Bac+15 pour comprendre ça.

try again.

Croc (click me)


Cette discussion est classée dans : caption, string, convertir, em, setreadonly

Répondre à ce message

Sujets en rapport avec ce message

Convertir un nombre en string [ par Frank19 ] Allo, ce que je veux faire c'est convertir un nombre en string ... example :346entrois cents quarante-sixsi vous avez une idée a savoir comme le faire Label [ par UserXW ] Slt:J'ai un souci avec un composant ... (Boite A propos sous forme de composant) voici donc :(parti du code source)private fCopyright: string; f Convertir variable string en TForm ? [ par orelien ] Bonjour,J'aimerais convertir une variable de type string en TForm ou tout autre composants existant. Quelqu'un a t-il une idée ?MerciOrélien. convertir un string en word [ par valkyrie ] est ce que qqun sait comment faut il faire donc??merci bienaimez vous les uns les autres Fonction pour convertir un extended en string? [ par stigmate101 ] Salut, j'ai une question très simple, je voudrais conertir un type extended en un type string. Merci d'avance @+ convertir une image en string [ par sarlcopib ] Salut tous le monde, voila je veut convertir une image en string, j'ai vue des sources comme sa mais maleuheusement c'etait en VB et en C, parcontre m dbgrid to quickreport [ par khier ] salut,j'ai programme une programme de facturation mais sur pre imprimé,le probleme que se pose si ajouter une ligne sur dbgrid automatiquement l' ecri violation d'accès [ par van6071 ] Bonjour, J'ai l'erreur suivante lorsque je relance le prog (dans la procédure  : procedure TfrmACCUEIL.FormCreate(Sender: TObject);): - Le projet Pr convertir un string en double [ par Tank01 ] Bonjour,Je souhaitais savoir comment convertir un string en double. Exist-il une fonction type StrToInt mais pour des double???Merci à tous et bonne j


Nos sponsors


Sondage...

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode
 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 1,030 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales
Outils Convertisseur VB/C# Snippets et scripts Outils en ligne La ToolBox
Communauté Programmation Photographie Technologie Newsgroups Emploi Forum Blogs
Guide d'achat Téléphonie mobile Image et son Informatique Bureautique Jeux vidéo
Logiciels Internet & Réseau Développement Market Android Jeux & Loisirs Graphisme Multimédia Sécurité Pilotes
Loisirs Cartes virtuelles Vidéos droles Jeux en ligne Géoguide AndroLib (Android Market)