begin process at 2010 03 21 18:17:42
  Trouver un code source :
 
dans
 
Accueil > Forum > 

Archive Delphi

 > 

Archives

 > 

J'AI BESOIN D'AIDE !!!! :O

 > 

Extended trop court


Derniers messages déposésPoser une question dans le forum ou lancer une discussion

Extended trop court

vendredi 13 février 2004 à 01:47:39 | Extended trop court

3Rescator


Je dois calculer des nombres d'une longueur de 25 chiffres.

Mais Extended est trop court car il ne peut contenir que 19 chiffres : ça me fait passer en notation scientifique, alors que je dois rester en notation classique.

Le nombre étant additionné, je ne peux pas rester dans une variable string, malheureusement.

Quelqu'un aurait-il une idée ?

Bon courage à vous tous, et à bientôt.

jeudi 29 avril 2004 à 04:32:22 | Re : Extended trop court

manu1506


Tu peux effectuer toi-même l'addition de nombres contenus dans des chaînes en faisant comme si tu le faisais sur papier.

function Additionner(N1, N2: ShortString): ShortString;
var
zN1: array[0..255] of Byte absolute N1;
zN2: array[0..255] of Byte absolute N2;
X: Byte;
Temp: Byte;
Retenue: Byte;
begin
Result:= '';
// Faire en sorte que les chaînes N1 et N2 soient
// de même longueur
while zN1[0]<255 do Insert('0', N1, 1);
while zN2[0]<255 do Insert('0', N2, 1);
// Additionner N1 et N2 dans Result
Retenue:= 0;
for X:= 255 downto 1 do begin
Temp:= Retenue;
Retenue:= 0;
if (N1[X] in ['0'..'9']) then Temp:= Temp + zN1[X] - 48;
if (N2[X] in ['0'..'9']) then Temp:= Temp + zN2[X] - 48;
if Temp>=10 then begin
Temp:= Temp - 10;
Retenue:= 1;
end;
Insert(Chr(Temp + 48), Result, 1);
end;
if Retenue>0 then Insert(Chr(Retenue + 48), Result, 1);
// Supprimer les zéros inutiles
while Result[1]='0' do Delete(Result, 1, 1);
end;

Bon, j'ai écris le code comme ça à l'arrachée et il peut être optimisé...
Mais avec, tu peux déjà additionner des nombres de 255 chiffres.

Pour plus de détails, regarde l'aide dans Delphi à propos de 'absolute'
jeudi 29 avril 2004 à 19:21:15 | Re : Extended trop court

3Rescator


Je vais travailler là-dessus, ça me paraît tout à fait intéressant.

Manu, je te remercie...


Cette discussion est classée dans : chiffres, trop, extended, court, notation


Répondre à ce message

Sujets en rapport avec ce message

Fixation Notation décimal (param system) dans une applique [ par DarkLago ] Est-ce que quelsu'un sait comment puis-je fixer la notation décimal du system. De façons à ce que l'application n'ai pas rehcerché la notation décimal Problême d'impression [ par Raoutas ] Alors j'ai un petit problême avec mon état, j'imprime un état sur plusieurs page dès fois et j'aimerais afficher sur chaque page 1/5, 2/5 etc...Mais j Extended ?!?! [ par intello2001 ] j'ai fait un prog qui fait des calcul y me dit que je doi declarer ma variable en extended ( se que je fait) puis apres je veut le mettre dans un edit CopyRect Transparent [ par Zynox ] J aimeré pouvoir faire un copyrect transparent d d une portion d image.canvas vers un canvas sans utilisr le copybrush ou brushcopy ki est trop trop l Erreur SQL : base trop grosse !!!!! [ par vagabon ] Bonjour,J'ai un probleme sur une base de données,je fais des stats par jour, semaine et mois : Ok tout baignepar contre je fais la meme requete sur l' SVP : J'ai besoin d'aide ! ! ! [ par Neopheus ] Bonjour,J'ai un p'tit pb. En effet, je voudrais "transformer", dans un string, les chiffres en lettres, mais ceci dans un string qui contient en plus aider moi!!!!!!!! stringgrid et bd [ par mimicracra2003 ] Salut!J'ai un problème!!!J'dois enregistrer un tableau (stringgrid contenant pleins d'chiffres) dans ma base de données ACCESS en format binaire si po DelphiX: ralentissements!! [ par costello ] AAAARGGHH (cri de détresse) ! je développe 1 jeu depuis quelques jours, sous DelphiX / Delphi 7 perso (tout tourne très bien jusqu'à maintenant, ya ja Diiférencier les chiffres des lettres dans une string? [ par kwentinn ] Salut tt le monde!J'aimerais savoir s'il est possible de différencier les chiffres des lettres dans une string. Si oui, comment faire? Y'a-t-il une fo Nb de chiffres significatifs dans une DBGrid [ par Adelain ] Je n'arrive pas à modifier le nombre de chiffres significatifs dans une DBGrid liée à une table Paradox!Pourtant, dans la table paradox j'ai bien limi


Nos sponsors


Sondage...

CalendriCode

Mars 2010
LMMJVSD
1234567
891011121314
15161718192021
22232425262728
293031    

Consulter la suite du CalendriCode

Photothèque

 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 1,217 sec (4)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales