Discussion :

[bigey3]

salut

tout d'abord j'ai consulter la Faq mais rien.

Voila

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

showmessage(FormatFloat('0.00',(0.999999229)*100));

j'ai comme résultat: 100,00

j'aimerais plutot un arrondi qui me donnerait 99,99

connaissez-vous d'autre fonction delphi pour ce faire

a+

[banban54]

bonsoir

les fonction delphi 'round et roundto' renvoient l'entier le plus proche
donc pour 0.999999229*100 ça donnera toujours 100.00
sinon sans fonction:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
showmessage(FormatFloat('0.00',trunc(0.999999229*10000)/ 100));

devrait être bon!

sinon se pencher du côté de 'FloatToStrF' (voir l'aide)

à plus

[bigey3]

merci bien.

Mais en fait je souhaiterais écrire le résultat dans un fichier
mais cette ligne de code ne marche pas.peux-tu me guider...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

writeln(nomfichier,FormatFloat('0.00',trunc(nombre)*10000)/100);

a+

[ero-sennin]

Il te faut faire la convertion en une chaine de caractères ...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

writeln(nomfichier,FloatToStr(FormatFloat('0.00',trunc(nombre)*10000)/100));

[edam]

Il te faut faire la convertion en une chaine de caractères ...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

writeln(nomfichier,FormatFloat('0.00',trunc(nombre)*10000)/100));

function FormatFloat(const Format: string; Value: Extended): string;
est déjà une string

[ero-sennin]

function FormatFloat(const Format: string; Value: Extended): string;
est déjà une string

Ah le bougre, j'ai même pas pris le temps de vérifier ce que j'écrivais!!
Désolé pour ce message qui induit en erreur alors.

Merci de ta remarque Edam

[ero-sennin]

J'ai testé le code que tu as mis Bigey et ça fonctionne chez moi.
Que contient la variable NomFichier?

A+

[bigey3]

J'ai testé le code que tu as mis Bigey et ça fonctionne chez moi.
Que contient la variable NomFichier?

A+

salut

la variable nomfichier est le nom du fichier dans lequel j'écrit le réel formaté.

a+

[edam]

dans l'aide de delphi

Writeln, procédure
Ecrit dans un fichier texte et ajoute un marqueur de fin de ligne.
Unité:System
Catégorie:routines de fichiers texte
procedure Writeln([ var F: Text; ] P1 [, P2, ...,Pn ] );
Description
La procédure Writeln est une extension de la procédure Write adaptée aux fichiers texte.
Après une exécution de Write, Writeln écrit un marqueur de fin de ligne dans le fichier. Writeln(F) sans paramètre écrit un marqueur de fin de ligne dans le fichier. (Writeln sans paramètre correspond à Writeln(Output).

Le fichier doit être ouvert en écriture.

Remarque*: La variable DefaultCRLFMode détermine si Writeln insère un retour chariot ou un retour chariot et un caractère de fin de ligne quand elle écrit le marqueur de fin de ligne.

[bigey3]

salut


sos

avez-vous unn code pour mon post?

a+