|
Tutoriaux
- Routines - Conversions |
Fonction
|
Description
|
IntToHex |
Convertit
un entier en valeur hexadécimal. |
IntToStr |
Convertit
un entier en string. |
StrToInt |
Convertit
un string en entier. |
StrToIntDef |
Convertit
un string en entier et renvoie une valeur si l'entier est incorrect. |
Exemple : Utilisation
de la fonction StrToIntDef |
Ajouter deux composants TEdit
procedure
TForm1.Button1Click(Sender: TObject);
var Nombre: Integer;
begin
Nombre := StrToIntDef(Edit1.Text, 10);
Edit2.Text := IntToStr(Nombre);
end; |
|
Si le nombre entré est un entier correct,
la même valeur apparaît dans la deuxième boîte de saisie.
Si le nombre entré n'est pas un entier correct, la valeur par défaut 10
apparaît dans la deuxième boîte de saisie.
|