Fonctions et procédures ReportBuilder

Fonctions de chaînes de caractères (Chaîne)

Nom	Déclaration	Description	Exemple	Résultat
Capitalize	function Capitalize(const S: String): String;	Met en majuscule la 1ère lettre de la chaîne	Value := Capitalize('rambouillet');	Rambouillet
CompareText	function CompareText(const S1, S2: string): Integer;	Compare deux chaînes par valeur ordinale sans sensibilité à la casse. CompareText compare S1 et S2 et renvoie 0 s'ils sont égaux. Si S1 est supérieur à S2, CompareText renvoie un entier supérieur à 0. Si S1 est inférieur à S2, CompareText renvoie un entier inférieur à 0.	a = CompareText('rambouillet', 'rambouillet'); b = CompareText('versaille', 'rambouillet'); c = CompareText('rambouillet', 'versaille');	a = 0 b = 1 c = -1
Copy	function Copy(S: String; Index, Count: Integer): String;	Renvoie une sous-chaîne d'une chaîne(S). Copy renvoie une sous-chaîne contenant n caractères(Count) en partant de l'Index. Si l'Index est supérieur à la longueur de S, Copy renvoie une chaîne vide. Si Count spécifie plus de caractères que ceux disponibles, seuls les caractères compris entre S[Index] et la fin de S sont renvoyés.	Copy('rambouillet', 1, 4);	ramb
Delete	procedure Delete(var S: String; Index, Count: Integer);	Supprime des caractères dans une chaîne(S). Delete supprime une sous-chaîne contenant n caractères (Count) en partant de l'Index. Si l'Index est supérieur à la longueur de S, Delete ne supprimera aucun caractère. Si Count spécifie plus de caractères que ceux disponibles à partir de l'Index, le reste de la chaîne sera supprimé. Si Count est inférieur ou égal à zéro, aucun caractère ne sera supprimé.	var S: string; begin S := 'rambouillet';   Delete(S, 3, 2); end;	raouillet
Insert	procedure Insert(Source: String; var S: String; Index: Integer);	Insert une sous-chaîne dans une chaîne au début d'une position spécifique	var   ChaineDestination: string; begin   ChaineDestination := ' rambouillet';   Insert('78120', ChaineDestination, 1); end;	78120 rambouillet
Length	function Length(S: String): Integer;	Renvoie le nombre de caractère de la chaîne passée en paramètre.	Value := Length('rambouillet');	16 caractères
LowerCase	function LowerCase(const S: String): String;	Renvoie une chaîne de caractère en minuscule	Value := LowerCase('RAMBOUILLET');	rambouillet
PadLeft	function PadLeft(Str: String; TotalWidth:Integer; PaddingChar: Char): String;	Ajoute des caractères à gauche de la chaîne (Str). TotalWidth est le nombre total de caractère à ajouter. PaddingChar est le caractère à insérer.	begin Result := PadLeft('Rambouillet', 7, '-'); end	-------Rambouillet
PadRight	function PadRight(Str: String; TotalWidth:Integer; PaddingChar: Char): String;	Ajoute des caractères à droite de la chaîne (Str). TotalWidth est le nombre total de caractère à ajouter. PaddingChar est le caractère à insérer.	begin Result := PadRight('Rambouillet', 7, '-'); end	Rambouillet-------
Pos	function Pos(Substr: String; S: String): Integer;	Retourne la position de la première occurrence de la sous-chaîne Substr dans la chaîne S	Value := Pos('b','rambouillet');	4
StringOfChar	function StringOfChar(Ch: Char; Count: Integer): String;	Renvoie une chaîne avec le nombre de caractères spécifié.	Value := StringOfChar('R', 5);	RRRRR
StringReplace	function StringReplace(const S, OldPattern, NewPattern: String; IgnoreCase: Boolean): String;	Remplace la 1ère occurrence de la sous-chaîne au sein d'une chaîne(S). StringReplace remplace la 1ère occurrence de la sous-chaîne spécifiée par OldPattern, par la sous-chaîne spécifiée par NewPattern au sein de la chaîne Source. Si IgnoreCase est à True, le remplacement ne fait pas la distinction majuscules/minuscules.	Value := StringReplace('RAMBOUILLET', 'A', 'M', False);	RMMBOUILLET
StringReplaceAll	function StringReplaceAll(const S, OldPattern, NewPattern: String; IgnoreCase: Boolean): String;	Remplace toutes les occurrences de la sous-chaîne au sein d'une chaîne(S). StringReplace remplace les occurrences de la sous-chaîne spécifiée par OldPattern, par la sous-chaîne spécifiée par NewPattern au sein de la chaîne Source. Si IgnoreCase est à True, le remplacement ne fait pas la distinction majuscules/minuscules.	Value := StringReplace('RAMBOUILLET', 'A', 'M', False);	RMMBOUILLET
Trim	function Trim(const S: String): String;	Supprime les caractères de contrôle et les espaces se trouvant en début et en fin de chaîne.	Value := Trim(' RAMBOUILLET ');	RAMBOUILLET
TrimLeft	function TrimLeft(const S: String): String;	Supprime les caractères de contrôle et les espaces se trouvant en début de chaîne.	Value := Trim(' RAMBOUILLET ');	'RAMBOUILLET '
TrimRight	function TrimRight(const S: String): String;	Supprime les caractères de contrôle et les espaces se trouvant en fin de chaîne.	Value := Trim(' RAMBOUILLET ');	' RAMBOUILLET'
UpperCase	function UpperCase(const S: String): String;	Met une chaîne de caractère en majuscule	Value := 'rambouillet';	RAMBOUILLET

Fonctions de conversion (Conversion)

Nom	Déclaration	Description
Chr	function Chr(Value: Integer): Char;	Transforme un entier en caractère
CurrToStr	function CurrToStr(Value: Currency): String;	Transforme une valeur monétaire en chaîne
DateTimeToStr	function DateTimeToStr(aDateTime: DateTime): String;	Transforme une date et une heure en chaîne
DateToStr	function DateToStr(aDate: Date): String;	Transforme une date en chaîne
FloatToStr	function FloatToStr(Value: Extended): String;	Transforme un chiffre à virgule en chaîne
Int64ToStr	function Int64ToStr(Value: Int64): String;	Transforme un entier 64 bit en chaîne
IntToHex	function IntToHex(Value: Integer; Digits: Integer): String;	Transforme un entier en valeur hexadécimale. Digits indique le nombre minimum de chiffres hexadécimaux à renvoyer.
IntToStr	function IntToStr(Value: Integer): String;	Transforme un entier en chaîne
Ord	function Ord(X: Char): Integer;	Renvoie la valeur ordinale d'un caractère.
RGB	function RGB(aRed; aGreen, aBlue: Integer): Integer;	Permet de récupérer une couleur sous forme d'entier. Cette couleur sera caractérisée par son niveau de rouge (aRed), de vert(aGreen) et de bleu(aBlue).
StrToCurr	function StrToCurr(const S: String): Currency;	Transforme une chaîne en valeur monétaire
StrToCurrDef	function StrToCurrDef(const S: String): Currency;	Transforme une chaîne en valeur monétaire avec renvoi de Default en cas d'erreur
StrToDate	function StrToDate(const S: String): Date;	Transforme une chaîne en date
StrToDateDef	function StrToDateDef(const S: String): Date;	Transforme une chaîne en date avec renvoi de Default en cas d'erreur
StrToDateTime	function StrToDateTime(const S: String): DateTime;	Transforme une chaîne en date et heure
StrToDateTimeDef	function StrToDateTimeDef(const S: String): DateTime;	Transforme une chaîne en date et heure avec renvoi de Default en cas d'erreur
StrToFloat	function StrToFloat(const S: String): Extended;	Transforme une chaîne en nombre à virgule
StrToFloatDef	function StrToFloatDef(const S: String): Extended;	Transforme une chaîne en nombre à virgule avec renvoi de Default en cas d'erreur
StrToInt64	function StrToInt64(const S: String): Integer;	Transforme une chaîne en entier
StrToInt64Def	function StrToInt64Def(const S: String; Default: Integer): Integer;	Transforme une chaîne en entier avec renvoi de Default en cas d'erreur
StrToInt	function StrToInt(const S: String): Integer;	Transforme une chaîne en entier
StrToIntDef	function StrToIntDef(const S: String; Default: Integer): Integer;	Transforme une chaîne en entier avec renvoi de Default en cas d'erreur
StrToTime	function StrToTime(const S: String): Time;	Transforme une chaîne en heure
StrToTimeDef	function StrToTimeDef(const S: String): Time;	Transforme une chaîne en heure avec renvoi de Default en cas d'erreur
TimeToStr	function TimeToStr(aTime: Time): String;	Transforme une heure en chaîne
TryStrToCurr	function TryStrToCurr(const S: String; var Value: Currency): Boolean;	Transforme une chaîne en valeur monétaire. Renvoie True pour succès ou False pour échec.
TryStrToDate	function TryStrToDate(const S: String; var Value: Date): Boolean;	Transforme une chaîne en date. Renvoie True pour succès ou False pour échec.
TryStrToDateTime	function TryStrToDateTime(const S: String; var Value: DateTime): Boolean;	Transforme une chaîne en date et heure. Renvoie True pour succès ou False pour échec.
TryStrToFloat	function TryStrToFloatDef(const S: String; var Value: Extended): Boolean;	Transforme une chaîne en nombre à virgule. Renvoie True pour succès ou False pour échec.
TryStrToInt64	function TryStrToInt64(const S: String; var Value: Int64): Boolean;	Transforme une chaîne en entier. Renvoie True pour succès ou False pour échec.
TryStrToInt	function TryStrToInt(const S: String; var Value: Integer): Boolean;	Transforme une chaîne en entier. Renvoie True pour succès ou False pour échec.
TryStrToTime	function TryStrToTime(const S: String; var Value: DateTime): Boolean;	Transforme une chaîne en heure. Renvoie True pour succès ou False pour échec.

File

Nom	Déclaration	Description
DirectoryExists	function DirectoryExists(aDirectory: String): Boolean;	Vérifie que le chemin existe dans aDirectory passé en paramètre.
ExtractFileExt	function ExtractFileExt(aFileName: String): String;	Extrait l'extension du fichier du chemin et du nom de fichier passé en paramètre
ExtractFileName	function ExtractFileName(aFileName: String): String;	Extrait le nom du fichier du chemin et du nom de fichier passé en paramètre
ExtractFilePath	function ExtractFilePath(aFileName: String): String;	Extrait le chemin du fichier du chemin et du nom de fichier passé en paramètre
FileExists	function DirectoryExists(aFileName: String): Boolean;	Vérifie que le fichier existe dans aFileName passé en paramètre. aFileName doit contenir le chemin et le nom du fichier

Fonctions de formatage (Format)

Nom	Déclaration	Description	Exemple	Résultat
FormatCurr	function FormatCurr(const Format: String; Value: Currency): String;	Renvoie un chiffre formaté sous forme de chaîne	Value := FormatCurr('#,##0.0 $', 1234.567)	1 234.6 €
FormatDateTime	function FormatDateTime(const Format: String; aDateTime: DateTime): String;	Renvoie une date formatée sous forme de chaîne	var maDate: TDateTime; begin maDate := StrToDateTime('17/05/2018 15:41'); Value := FormatDateTime('dddd dd mmmm yyyy hh:mm', maDate);	jeudi 17 mai 2018 15:41
FormatFloat	function FormatFloat(const Format: String; Value: Extended): String;	Renvoie un chiffre formaté sous forme de chaîne	Value := FormatFloat('#,##0', 1234.567)	1 235
FormatMaskText	function FormatMaskText(const EditMask: String; const Value: String): String;	Formate une chaîne avec un masque d'édition	Value := FormatMaskText('00.00.00.00.00;0;*', '0134840984')	01.34.84.09.84
FormatString	function FormatString(const EditMask: String; const Value: String): String;	Formate une chaîne avec un masque d'édition	Value := FormatMaskText('00.00.00.00.00;0;*', '0134840984')	01.34.84.09.84

Fonctions de dates (DateHeure)

Nom	Déclaration	Description	Exemple	Résultat
CurrentDate	function CurrentDate: Date;	Retourne la date courante	var   DateDuJour: TDate; begin   DateDuJour := CurrentDate; end;	17/05/2018
CurrentDateTime	function CurrentDateTime: DateTime;	Retourne la date et l'heure courante	var   DateDuJour: TDateTime; begin   DateDuJour := CurrentDateTime; end;	17/05/2018 14:49:50
CurrentTime	function CurrentTime: DateTime;	Retourne l'heure courante	var HeureDuJour: Time; begin HeureDuJour := CurrentTime; end;	14:49:50
DayOfWeek	function DayOfWeek(aDate: DateTime): Integer;	Retourne le jour de la semaine en fonction de l'index suivant :	var    maDate: TDateTime begin   maDate := StrToDateTime('17/05/2018 15:41');   Value := DayOfWeek(maDate)); end;	5
DaysBetween	function DayBetween(const ANow, AThen: DateTime): Integer;	Retourne le nombre de jours entre 2 dates	begin Value := DaysBetween('17/05/2025', '20/05/2025'); end;	3
DecodeDate	procedure DecodeDate(aDate: DateTime; var Year, Month, Day: Integer);	Renvoie les différentes parties d'une date sous forme d'entier	var    maDate: TDateTime Jour: Integer; Mois: Integer; Annee: Integer; begin   maDate := StrToDateTime('17/05/2018'); DecodeDate(maDate, Annee, Mois, Jour); end;	2018 05 17
DecodeTime	procedure DecodeTime(aTime: DateTime; var Hour, Min, Sec, MSec: Integer);	Renvoie les différentes parties d'une heure sous forme d'entier	var monHeure: Time; Heure: Integer; Minute: Integer; Seconde: Integer; MilliSeconde: Integer; begin monHeure := StrToTime('14:53:48:02'); DecodeTime(monHeure, Heure, Minute, Seconde, MilliSeconde); end;	14 53 48 2
EncodeDate	function EncodeDate(Year, Month, Day: Integer): DateTime;	Transforme des entiers en date	var    maDate: TDateTime Jour: Integer; Mois: Integer; Annee: Integer; begin Jour := 17; Mois := 5; Annee := 2018;   maDate := EncodeDate(Annee, Mois, Jour); end;	17/05/2018
EncodeTime	function EncodeTime(Hour, Min, Sec, MSec: Integer): DateTime;	Transforme des entiers en heure	var monHeure: Time; Heure: Integer; Minute: Integer; Seconde: Integer; MilliSeconde: Integer; begin Heure := 11; Minute := 45; Seconde := 12; MilliSeconde := 0; monHeure := EncodeTime(Heure, Minute, Seconde, MilliSeconde); end;	11:45:12.0000
MonthsBetween	function MonthsBetween(const ANow, AThen: DateTime): Integer;	Retourne le nombre de mois entre 2 dates	begin Value := MonthsBetween('17/05/2025', '20/07/2025'); end;	2
WeeksBetween	function WeeksBetween(const ANow, AThen: DateTime): Integer;	Retourne le nombre de semaines entre 2 dates	begin Value := WeeksBetween('17/05/2025', '20/07/2025'); end;	9
YearsBetween	function YearsBetween(const ANow, AThen: DateTime): Integer;	Retourne le nombre d'années entre 2 dates	begin Value := YearsBetween('17/05/2025', '20/05/2026'); end;	1

Fonctions mathématiques (Math)

Nom	Déclaration	Description
Abs	function Abs(aValue: Variant): Variant;	Renvoie une valeur absolue.
ArcTan	function ArcTan(X: Extended): Extended;	Donne la valeur en radians de l'arc tangent d'un nombre
Ceil	function Ceil(X: Extended): Integer;	Renvoie le plus petit entier supérieur ou égal à X.
Cos	function Cos(X: Extended): Extended;	Calcule le cosinus d'un angle
Cosh	function Cosh(X: Extended): Extended;	Calcule le cosinus hyperbolique d'un angle
Cotan	function Cotan(X: Extended): Extended;	Calcule la cotangente d'un angle.
Dec	function Dec(var X: Integer): Integer;	Décrémente de 1 l'entier X.
Exp	function Exp(X: Extended): Extended;	Renvoie l'exponentielle de X.
Floor	function Floor(X: Extended): Integer;	Renvoie le plus grand entier inférieur ou égal à X.
Frac	function Frac(X: Extended): Extended;	Renvoie la partie fractionnaire d'un nombre réel.
Inc	procedure Inc(var X: Integer);	Incrémente de 1 l'entier X
Int	function Int(X: Extended): Extended;	Renvoie la partie entière d'un nombre réel
IntPower	function IntPower(Base: Extended; Exponent: Integer): Extended;	Calcule la puissance intégrale d'une valeur de base.
Ln	function Ln(X: Extended): Extended;	Renvoie le logarithme naturel d'une expression réelle.
Max	function Max(A, B: Integer): Integer;	Renvoie la valeur la plus élevée des deux arguments d'entrée A et B.
Min	function Min(A, B: Integer): Integer;	Renvoie la valeur la plus petite des deux arguments d'entrée A et B.
Odd	function Odd(X: Integer): Boolean;	Renvoie true si l'argument X est un nombre impair.
Power	function Power(Base, Exponent: Extended): Extended;	Élève Base à n'importe quelle puissance d'Exponent.
Pred	function Pred(X: Integer): Integer;	Renvoie le prédécesseur de l'argument X.
Round	function Round(X: Extended): Integer;	Renvoie la valeur de X arrondie au nombre entier le plus proche
RoundTo	function RoundTo(const AValue: Extended; const ADigit: Integer): Extended;	Arrondit une valeur AValue au nombre de chiffres spécifié ADigit, ou à la puissance de dix spécifiée en utilisant l'arrondi de banque
SimpleRoundTo	function SimpleRoundTo(const AValue: Extended; const ADigit: Integer): Extended;	Arrondit une valeur AValue au nombre de chiffres spécifié ADigit, ou à la puissance de dix spécifiée en utilisant l'arrondi symétrique
Sin	function Sin(X: Extended): Extended;	Renvoie le sinus de l'angle en radians.
Sqr	function Sqr(X: Extended): Extended;	Renvoie le carré d'un nombre.
Sqrt	function Sqrt(X: Extended): Extended;	Renvoie la racine carrée de X.
Tan	function Tan(X: Extended): Extended;	Renvoie la tangente de X, exprimée en radians
Tanh	function Tanh(X: Extended): Extended;	Calcule la tangente hyperbolique de X
Trunc	function Trunc(X: Extended): Integer;	Tronque un nombre réel en entier

Fonctions utilitaires (Utility)

Nom	Déclaration	Description
MessageBeep	procedure MessageBeep;	Déclenche un son sur le PC
ShowMessage	procedure ShowMessage(const Msg: string);	Affiche un message