Convertir un string en cardinal

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...

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