Text coloriser en language pascal
Soyez le premier à donner votre avis sur cette source.
Vue 3 681 fois - Téléchargée 271 fois
Description
salut des amis mon demander des trucs sur la colorisation syntaxique donc les voila.....
Codes Sources
A voir également
- Text coloriser en language pascal
- Text colorisé avec le pourcentage - Codes sources - Javascript (Effets)
- C / C++ / C++.NET : Analyseur syntaxique du language pascal (analyse descendante recursive) - CodeS - Guide
- Bonjour tout le monde j'ai un probleme avec language pascal!!! ✓ - Forum - Delphi / Pascal
- Delphi / Pascal : Copier/coller texte et image avec le clipboard de windows - CodeS SourceS - Guide
- Delphi / Pascal : Supprimer des items dans une listbox suivant leur texte - CodeS SourceS - Guide
Commentaires
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 ???
- Messages postés
-
1467
- Date d'inscription
- samedi 13 mars 2004
- Statut
- Membre
- Dernière intervention
- 5 mai 2010
2function 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;
Bon je connais pas non plus le Pascal... Tu auras pas un exemple stp ?
- Messages postés
-
1467
- Date d'inscription
- samedi 13 mars 2004
- Statut
- Membre
- Dernière intervention
- 5 mai 2010
2Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.