Quelle est la Question précisement ?
On ne va pas prendre tout ton code, le lire et faire ton boulot !
En plus c'est tout écrit en français, que c'est vilain !
Rien que cela m'écoeure !
if n>0 then positive:=true else positive:=false;
Merci d'apprendre à coder simplement et avec efficatité !
Je vois aussi plein de code inutile, merci d'utiliser l'unité Math et d'utiliser les fonctions RTL existantes de Delphi !
RoundTo, Trunc, il y a des fonctions standards qui existent !
il y a aussi StringOfChar pour faciliter les bourrages à gauche ou droite !
le type real est totalement déconseillé !
tu devrais utiliser des "packed record" avec des array of char, cela éviterait des tonnes de code dont les Copy de découpage !
Partager