[[Lepe]]

Bueno, yo he usado las rutinas:

Código Delphi [-]

// para no tener que hacer un uses de la unidad Math y Strutils, hacemos una copia aqui
// de las funciones más utiles

// copiadas desde la vcl en la unidad Math
function IfThen(AValue: Boolean; const ATrue: Integer; const AFalse: Integer = 0): Integer; overload;
function IfThen(AValue: Boolean; const ATrue: Int64; const AFalse: Int64 = 0): Int64; overload;
function IfThen(AValue: Boolean; const ATrue: Double; const AFalse: Double = 0.0): Double; overload;

// copiadas desde la vcl en la unidad StrUtils
function IfThen(AValue: Boolean; const ATrue: string; AFalse: string = ''): string; overload;

Saludos