Vous trouverez sur cette page des exemples. Comment déclarer et utiliser des nombres entier. Comment déclarer et utiliser des nombres à virgule. Comment déclarer et utiliser des chaines de caractères. Comment déclarer et utiliser des boleans.
Byte, ShortInt, Word, SmallInt, LongWord, Cardinal, LongInt, Integer, Int64.
Single, Currency, Double, Extended, Real.
Char, WideChar, AnsiChar, ShortString, String, AnsiString, WideString.
Boolean.
Nous allons voir ci-dessous comment declarer les types et comment les utiliser.
Byte : Entier non signé 0 à 255.
var Entier1 : Byte;
La valeur doit être comprise entre 0 et 255. Sinon un message d'erreur est renvoyer.
EXEMPLE :procedure TForm1.Button1Click(Sender: TObject);
var Entier1 : Byte;
begin
Entier1 := 55;
Label1.Caption := IntToStr(Entier1);
// Label1.Caption = 55
end;
ShortInt : Entier signé -128 à 127.
var Entier2 : ShortInt;
La valeur doit être comprise entre -128 et 127. Sinon un message d'erreur est renvoyer.
EXEMPLE :procedure TForm1.Button1Click(Sender: TObject);
var Entier2 : ShortInt;
begin
Entier2 := -55;
Label1.Caption := IntToStr(Entier2);
// Label1.Caption = -55
end;
Word : Entier non signé 0 à 65535.
var Entier3 : Word;
La valeur doit être comprise entre 0 et 65535. Sinon un message d'erreur est renvoyer.
EXEMPLE :procedure TForm1.Button1Click(Sender: TObject);
var Entier3 : Word;
begin
Entier3 := 5535;
Label1.Caption := IntToStr(Entier3);
// Label1.Caption = 5535
end;
SmallInt : Entier signé -32768 à 32767.
var Entier4 : SmallInt;
La valeur doit être comprise entre -32768 et 32767. Sinon un message d'erreur est renvoyer.
EXEMPLE :procedure TForm1.Button1Click(Sender: TObject);
var Entier4 : SmallInt;
begin
Entier4 := 12540;
Label1.Caption := IntToStr(Entier4);
// Label1.Caption = 12540
end;
LongWord : Entier non signé 0 à 4294967295.
var Entier5 : LongWord;
La valeur doit être comprise entre 0 et 4294967295. Sinon un message d'erreur est renvoyer.
EXEMPLE :procedure TForm1.Button1Click(Sender: TObject);
var Entier5 : LongWord;
begin
Entier5 := 212547;
Label1.Caption := IntToStr(Entier5);
// Label1.Caption = 212547
end;
Cardinal : Entier non signé 0 à 4294967295.
var Entier6 : Cardinal;
La valeur doit être comprise entre 0 et 4294967295. Sinon un message d'erreur est renvoyer.
EXEMPLE :procedure TForm1.Button1Click(Sender: TObject);
var Entier6 : Cardinal;
begin
Entier6 := 56184523;
Label1.Caption := IntToStr(Entier6);
// Label1.Caption = 56184523
end;
LongInt : Entier signé -2147483648 à 2147483647.
var Entier7 : LongInt;
La valeur doit être comprise entre -2147483648 et 2147483648. Sinon un message d'erreur est renvoyer.
EXEMPLE :procedure TForm1.Button1Click(Sender: TObject);
var Entier7 : LongInt;
begin
Entier7 := 147483647;
Label1.Caption := IntToStr(Entier7);
// Label1.Caption = 147483647
end;
Integer : Entier signé -2147483648 à 2147483647.
var Entier8 : Integer;
La valeur doit être comprise entre -2147483648 et 2147483648. Sinon un message d'erreur est renvoyer.
EXEMPLE :procedure TForm1.Button1Click(Sender: TObject);
var Entier8 : Integer;
begin
Entier8 := 836473647;
Label1.Caption := IntToStr(Entier8);
// Label1.Caption = 836473647
end;
Int64 : Entier signé -9223372036854775808 à 9223372036854775807.
var Entier9 : Int64;
La valeur doit être comprise entre -9223372036854775808 et 9223372036854775807. Sinon un message d'erreur est renvoyer.
EXEMPLE :procedure TForm1.Button1Click(Sender: TObject);
var Entier9 : Int64;
begin
Entier9 := 23372036854775808;
Label1.Caption := IntToStr(Entier9);
// Label1.Caption = 23372036854775808
end;
Single : Decimal à 7 chiffres significatifs, exposant -38 à +38
var Decimal1 : Single;
EXEMPLE :
procedure TForm1.Button1Click(Sender: TObject);
var Decimal1 : Single;
begin
Decimal1 := 233.7203685;
Label1.Caption := FloatToStr(Decimal1);
// Label1.Caption = 233,720367431641
end;
Currency : Decimal à 50+ chiffres significatifs, 4 décimales fixes
var Decimal2 : Currency;
EXEMPLE :
procedure TForm1.Button1Click(Sender: TObject);
var Decimal2 : Currency;
begin
Decimal2 := 233.7203685;
Label1.Caption := FloatToStr(Decimal2);
// Label1.Caption = 233,7204
end;
Double : Decimal à 15 chiffres significatifs, exposant -308 à +308
var Decimal3 : Double;
EXEMPLE :
procedure TForm1.Button1Click(Sender: TObject);
var Decimal3 : Double;
begin
Decimal3 := 233.7203685;
Label1.Caption := FloatToStr(Decimal3);
// Label1.Caption = 233,7203685
end;
Double : Decimal à 19 chiffres significatifs, exposant -4932 à +4932
var Decimal4 : Extended;
EXEMPLE :
procedure TForm1.Button1Click(Sender: TObject);
var Decimal4 : Extended;
begin
Decimal4 := 233.7203685;
Label1.Caption := FloatToStr(Decimal4);
// Label1.Caption = 233,7203685
end;
Char : Contient un seul caractère, petit alphabet
var Chaine1 : Char;
EXEMPLE :
procedure TForm1.Button1Click(Sender: TObject);
var Chaine1 : Char;
begin
Chaine1 := 'A'; // "A" ou "a" ou "B" ou "b" ou "_" Etc...
Label1.Caption := Chaine1
// Label1.Caption = A
end;
WideChar : Contient un seul caractère, alphabet international
var Chaine2 : WideChar;
EXEMPLE :
procedure TForm1.Button1Click(Sender: TObject);
var Chaine2 : WideChar;
begin
Chaine2 := 'A'; // "A" ou "a" ou "B" ou "b" ou "_" Etc...
Label1.Caption := Chaine2
// Label1.Caption = A
end;
AnsiChar : Contient un seul caractère, petit alphabet.
var Chaine3 : AnsiChar;
EXEMPLE :
procedure TForm1.Button1Click(Sender: TObject);
var Chaine3 : AnsiChar;
begin
Chaine3 := 'A'; // "A" ou "a" ou "B" ou "b" ou "_" Etc...
Label1.Caption := Chaine3
// Label1.Caption = A
end;
ShortString : Peut contenir une chaîne jusqu'à 255 caractères.
var Chaine4 : ShortString;
EXEMPLE :
procedure TForm1.Button1Click(Sender: TObject);
var Chaine4 : ShortString;
begin
Chaine4 := 'Chaîne jusqu'à 255 caractères';
Label1.Caption := Chaine4
// Label1.Caption = Chaîne jusqu'à 255 caractères
end;
String : Contient une chaîne de caractères de n'importe quelle taille souhaitée.
var Chaine5 : String;
EXEMPLE :
procedure TForm1.Button1Click(Sender: TObject);
var Chaine5 : String;
begin
Chaine5 := 'Chaîne de caractères de n''importe quelle taille';
Label1.Caption := Chaine5
// Label1.Caption = Chaîne de caractères de n'importe quelle taille
end;
AnsiString : Contient une chaîne de caractères Ansi de n'importe quelle taille souhaitée.
var Chaine6 : AnsiString;
EXEMPLE :
procedure TForm1.Button1Click(Sender: TObject);
var Chaine6 : AnsiString;
begin
Chaine6 := 'Chaîne de caractères Ansi de n''importe quelle taille';
Label1.Caption := Chaine6
// Label1.Caption = Chaîne de caractères Ansi de n'importe quelle taille
end;
WideString : Contient une chaîne de caractères Ansi de n'importe quelle taille souhaitée.
var Chaine7 : WideString;
EXEMPLE :
procedure TForm1.Button1Click(Sender: TObject);
var Chaine7 : WideString;
begin
Chaine7 := 'Chaîne de caractères WideString de n''importe quelle taille';
Label1.Caption := Chaine7
// Label1.Caption = Chaîne de caractères WideString de n'importe quelle taille
end;
Boolean : Le type booléen fournit une énumération des valeurs logiques True et False. (Vrai et Faux
Verif : Boolean;
EXEMPLE :
procedure TForm1.Button1Click(Sender: TObject);
var
Verif : Boolean;
petit, grand : Integer;
begin
petit := 37;
grand := 684159;
// Test pour voir si ces nombres ont la même taille
if petit = grand
then Label1.caption := 'petit est egal à grand'
else Label1.caption := 'petit est different de grand';
// Label1.Caption = petit est different de grand
end;
procedure TForm1.Button1Click(Sender: TObject);
var
Verif : Boolean;
petit, grand : Integer;
begin
petit := 37;
grand := 684159;
// Utilise une booléen pour tester le résultat
Verif := (petit = grand);
if Verif
then Label1.caption := 'petit est egal à grand'
else Label1.caption := 'petit est different de grand';
// Label1.Caption = petit est different de grand
end;
procedure TForm1.Button1Click(Sender: TObject);
var
Verif : Boolean;
begin
// Affecte une valeur logique directe à la booléen
Verif := True;
if Verif
then Label1.caption := 'Verif est True'
else Label1.caption := 'Verif est False';
// Label1.Caption = Verif est True
end;