Q&A

  • UpDown 사용시 소수점은 안되나요?
제목 그대로 입니다.

UpDown버튼과 Edit Box를 사용해서 0.1씩 증감시키려 하는데....

안되네요...

원래 안되는건가요?

어찌해야 0.1씩 증감할 수 있는지요...



1  COMMENTS
  • Profile
    바보감자 2001.03.22 22:20
    과객 wrote:

    > 제목 그대로 입니다.

    > UpDown버튼과 Edit Box를 사용해서 0.1씩 증감시키려 하는데....

    > 안되네요...

    > 원래 안되는건가요?

    > 어찌해야 0.1씩 증감할 수 있는지요...

    >



    안녕하세여 바보감자입니다 ^^

    이거 함 보세여..

    전역변수로



    a : double;

    선언 하시거 ^^



    procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;

    Shift: TShiftState);

    begin

    a := a + 0.1;

    edit1.text := floattostr(a);

    end;



    이러케 하시구 나서 스페이스 바만 계속 눌르시면 0.1 씩 올라갑니다 함 보세여 ^^

    그럼 즐코 하세여~~~~~~~~~~~~~~~~~