TEXT COLORISER EN LANGUAGE PASCAL
Scalpweb
Messages postés
1467
Date d'inscription
samedi 13 mars 2004
Statut
Membre
Dernière intervention
5 mai 2010
-
4 sept. 2004 à 15:57
mamierok Messages postés 1 Date d'inscription mercredi 18 août 2004 Statut Membre Dernière intervention 6 janvier 2005 - 6 janv. 2005 à 13:30
mamierok Messages postés 1 Date d'inscription mercredi 18 août 2004 Statut Membre Dernière intervention 6 janvier 2005 - 6 janv. 2005 à 13:30
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/25934-text-coloriser-en-language-pascal
https://codes-sources.commentcamarche.net/source/25934-text-coloriser-en-language-pascal
6 janv. 2005 à 13:30
Qui change mon texte pour mail Outlook en couleurs
dégradés !!!
Il donne dans une fenêtre les couleurs à placer et puis je copie le script pour le mettre dans la source de mon mail ! ???
Je l'ai perdu .... Une demande ! Qui peut m'aider ???
6 sept. 2004 à 21:03
5 sept. 2004 à 16:50
function FloatToFrac(X: Double; Format, Default: string): string;
const
Delta = 1e-13;
var
A, B: Cardinal;
Sign: integer;
X2: Double;
begin
if Frac(X) = 0 then
begin
Result := SysUtils.Format('%d', [Trunc(X)]);
Exit;
end;
A := 0;
B := 1;
Sign := Trunc(X / Abs(X));
X2 := Frac(Abs(X));
while (A < MAX_CARDINAL) and (B < MAX_FRAC) and (Abs(X2 - A / B) > Delta) do
begin
if X2 > A / B then Inc(A);
if X2 < A / B then Inc(B);
end;
if Abs(X2 - A / B) > Delta then
Result := SysUtils.Format(Default, [X])
else
Result := SysUtils.Format(Format, [Trunc(Sign * (A + Int(Abs(X)) * B)) , B]);
end;
5 sept. 2004 à 12:40
Bon je connais pas non plus le Pascal... Tu auras pas un exemple stp ?
4 sept. 2004 à 15:57