Extended zuschneiden: teil nach dem komma soll übrig bleiben

[Kamikaze87]

Hi leute


ich habe mal ne frage: wie kann man extended zuschneiden ich mache das momentan so ...das problem ergibt sich dann jedoch bei grossen zahlen dass das zu lange dauert!!!! aber seht wie ich das mache


  Repeat a:=a-1; until a<1; a ist natürlich ein extended!!!!

gibt es dafür einen einfacheren befehl der auch schneller ist?????


Danke für eure hilfe

Kamikaze