DELPHI DECLARER ET UTILISER LES TYPES

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.

TYPES ENTIERS :

Byte, ShortInt, Word, SmallInt, LongWord, Cardinal, LongInt, Integer, Int64.

TYPES DECIMAL :

Single, Currency, Double, Extended, Real.

TYPES TEXTE :

Char, WideChar, AnsiChar, ShortString, String, AnsiString, WideString.

TYPES LOGIQUE :

Boolean.

TYPES EN DETAIL :

Nous allons voir ci-dessous comment declarer les types et comment les utiliser.

Byte :

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 :

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 :

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 :

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 :

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 :

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 :

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 :

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 :

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 :

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 :

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 :

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;
Extended :

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 :

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 :

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 :

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 :

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 :

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 :

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 :

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 :

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;