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가 발생하네요..
어떻게 해야할지...
>
> 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;
해보세요....