Q&A

  • 소수점 자릿수 알기
예) 123.2     - 1자리        
     123.45   - 2자리
     123.456  -3자리


각각의 소수점 자릿수를 알고 싶은데 아시는분 계시나요?    
1  COMMENTS
  • Profile
    이창영 2002.02.07 05:59

    procedure TForm1.BitBtn1Click(Sender: TObject);
    var
    i,j:integer;
    imsi:string;
    begin
      imsi:='123.45';
      i:=pos('.',imsi);
      J:=length(imsi)-i;
      if i=0 then j:=0;
      BitBtn1.Caption:=IntTostr(j)+'자리';
    end;