Q&A

  • NumberEdit 의 연산..?


NumberEdit1,NumberEdit2,NumberEdit3의

displayformat을 ,0.0;(,0.0)로 하여 소수이하 첫번째자리까지 입력 받는데

NumberEdit3 의 값은 NumberEdit1 + NumberEdit2 일경우



NumberEdit3의 events Onenter에



procedure Tins.NumberEdit3Enter(Sender: TObject);

var

n1,n2,n3 : real;

begin

n1 := strtofloat(numberedit1.text);

n2 := strtofloat(numberedit2.text);

n3 := n1 + n2;

numberedit3.text := floattostr(n3);

end;

기술하고 실행하여

numberedit1.text 에 1,000.4

numberedit2.text 에 1,000.5 입력 하였더니



'1,000.4' is not a vaild floating point value라는 error가 발생하네요..

어떻게 해야할지...







1  COMMENTS
  • Profile
    2000.04.18 19:32
    초보1 wrote:

    >

    > NumberEdit1,NumberEdit2,NumberEdit3의

    > displayformat을 ,0.0;(,0.0)로 하여 소수이하 첫번째자리까지 입력 받는데

    > NumberEdit3 의 값은 NumberEdit1 + NumberEdit2 일경우

    >

    > NumberEdit3의 events Onenter에

    >

    > procedure Tins.NumberEdit3Enter(Sender: TObject);

    > var

    > n1,n2,n3 : real;

    > begin

    > n1 := strtofloat(numberedit1.text);

    > n2 := strtofloat(numberedit2.text);

    > n3 := n1 + n2;

    > numberedit3.text := floattostr(n3);

    > end;

    > 기술하고 실행하여

    > numberedit1.text 에 1,000.4

    > numberedit2.text 에 1,000.5 입력 하였더니

    >

    > '1,000.4' is not a vaild floating point value라는 error가 발생하네요..

    > 어떻게 해야할지...

    >

    >

    >

    NumberEdit는 사용자 정의 콤포겠지요?

    NumberEdit의 프로퍼티중 value는 없었나요?



    보통 float로 사용되는데 ...

    그냥

    NumberEdit3.value := NumberEdit1.value +NumberEdit2.value;

    해보세요....