Q&A

  • 아침부터 지금까지....
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 이런식으로

나오는데 왜이러는지 좀 알려주세여.... 아주 죽겠습니다....



3  COMMENTS
  • Profile
    아폴론 2001.02.13 04:10
    zerodog wrote:

    > 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); 뭐 이렇게요.



    그럼 이만 다른곳을 비추러 갑니다.

    >

  • Profile
    서철기 2001.02.13 02:05
    FormatFloat('#,#0',i); =>이 녀석의 기능이죠!..



    콤마를 구분자로 넣었으니까요



    FormatFloat('##0',i); 하면 안 나오겠죠.. .!



    zerodog wrote:

    > 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 이런식으로

    > 나오는데 왜이러는지 좀 알려주세여.... 아주 죽겠습니다....

    >



  • Profile
    zerodog 2001.02.13 02:11
    그렇게 했는데도여 결과가 같은데여,,,,

    자세히 좀 알려주세여...제발



    서철기 wrote:

    > FormatFloat('#,#0',i); =>이 녀석의 기능이죠!..

    >

    > 콤마를 구분자로 넣었으니까요

    >

    > FormatFloat('##0',i); 하면 안 나오겠죠.. .!