transformation de nompbre en hectar

Question

Bonjour, 
jai un nombre de 4chiffre après la virgule ,je veut faire le transfère de ce nombre en hectare,Art et centiare
  * bon la partie entier de ce nombre(avant la virgule) en hectare
  * les 2premier chiffre apres la virgule en Art
  * les 2dernier chiffre apres la virgule en centiare

exp1:  132.9095  ( 132Hectar-90art-95centiart)
exp2:  22.6120 (22hectare- 61 art-20 centiare)

voila <gras>ma fonction mais elle est marche juste pour le premier exp1 et pour 2eme exp ca marche pas

//////le nombre a transferer est dans DBEdit10///////////////
I := Copy (DBEdit10.Text,6,2);
A := Copy (DBEdit10.Text,5,2);
 C:=int(StrToFloat(DBEdit10.Text));

////////le resultat est dans DBEdit32///////////////////
DBEdit32.Text:=('hectar'+( Floattostr(C)))+ ',' +('Art'+ (A))+ ','+('centiare'+ (I));
lors de léxecution voila le resultat: exp1:132Hectar-90art-95centiart  (bien)
                                                  exp2:22hectare- 12 art-0 centiare (pas bons)

cs_yanb · Answer

Salut,
Rappel : dans un premier temps merci de répondre au post précedent et de ne pas le laisser en suspend ou de le passer en résolu car "ca marche pas" n'est pas une réponse correcte ! Il me semble que certains te l'on fait remarquer donc merci de ne pas ignorer les commentaires et de ne pas reposer de questions identique à peu de chose près à la précèdente.
Donc merci de faire un minimum d'effort ou de dire ce qui ne marche pas ou que tu ne comprends pas !
Voici un exemple taper en live...A toi de l'adapter...
varS : string;begin  S := DBEdit10.Text;  ShowMessage(Format('%s Hectare(s) - %s Are(s) - %s Centiare(s)',[Copy(S,0,Pos('.',S)-1),Copy(S,Pos('.',S)+1,2),Copy(S,Pos('.',S)+3,2)]));end;
@+

Transformation de nompbre en hectar

1 réponse

Votre réponse

Discussions similaires