procedure TForm22.EDMONEYChange(Sender: TObject);
var
i : Double;
str : String;
begin
i := StrToFloat('1234565');
Str := FormatFloat('#,#0',i);
EDMONEY.Text :=Str;
end;
이런식으로 코딩을하고 입력을 하니까 숫자를 누르면 바로 1,234,565 이런식으로
나오는데 왜이러는지 좀 알려주세여.... 아주 죽겠습니다....
> procedure TForm22.EDMONEYChange(Sender: TObject);
> var
> i : Double;
> str : String;
> begin
> i := StrToFloat('1234565');
> Str := FormatFloat('#,#0',i);
> EDMONEY.Text :=Str;
> end;
>
> 이런식으로 코딩을하고 입력을 하니까 숫자를 누르면 바로 1,234,565 이런식으로
> 나오는데 왜이러는지 좀 알려주세여.... 아주 죽겠습니다....
i값에는 1234567이 들어가 있으니 당연히 숫자키가 눌러지면 123,456,789 이렇게
되죠.
i 값에 입력받는 숫자라면 그 에디트박스든 넘버박스든 그 값을 주세요.
i := strtofloat(edit.text); 뭐 이렇게요.
그럼 이만 다른곳을 비추러 갑니다.
>