Jak sprawdzić ilość miejsc po przecinku?

0

Mam taki problem może głupi, ale nie mam pomysłu jak to rozwiązać, potrzebuje sprawdzić ile jest miejsc po przecinku. Np. mam 1, 23 to chciałbym by mi zwróciło ze 2 miejsca po przecinku dla 2, 345 ze 3 miejsca itd.…

0
var
  Pos,ilosc : Integer;
  Txt : string;



  Txt:='1.23456';
  Pos:=Pos(DecimalSeparator,Txt);
  ilosc:=Pos - Length(Txt)

//Edit po Juhasie ;-)

0

Oczywiście to jest zły kod, bo należy się posłużyć DecimalSeparator, a nie kropką, czy przecinkiem na sztywno.

0

OK dzieki za pomoc :) udalo się

1 użytkowników online, w tym zalogowanych: 0, gości: 1