Q&A

  • formatfloat 에 관하여 질문이용.. 소수점은 어떻게?
우선 메리크리스 마스~
인사 드릴께용 ^^
저는 이번 연휴에
게임으로 날샐껍니다 ㅡ.ㅡ;;;
리니지2.  3차 전직해야되서리 ㅋㅋㅋ

그래도 업무는 해야 겠기에 ㅠㅠ
이렇게 질문 드립니당...

에디트 박스에서도 임의로 수를 입력 할수 있도록 하고싶습니다.
숫자는 무조건 1에서 3까지 소숫점 셋째자리까지만 허용이되구요
그 미만이나 초과는 막아놨습니다.
그런데 막아놓은 수를 쓰고 엔터를 치면
초기화하고 메시지 보여주는건 했는데
그 에디트 박스에서 애초에 입력할때...
소숫점 셋째자리까지만 입력하게 막아놓는 방법은 없을까요?

순서가 이렇습니다.
에디트 박스 클릭하고
숫자 입력하고... 소숫점은 사용자가 임의로 찍어야 찍히고요
엔터를 치면 1.000부터 3.000 사이의 숫자가 아니면
경고메시지 뜨고요...
소숫점은 셋째자리까지만 입력이 가능하고요
소숫점 찍은후에 넷째자리도 입력할라면
아예 안써지도록 하고싶은데요...
어떻게 하면 좋죠? ㅠㅠ
이 게시물을
2  COMMENTS
  • Profile
    김성일 • 2006.12.27 03:13
    procedure TForm1.Edit1Change(Sender: TObject);
    var
      str : string;
    begin
      str := edit1.Text;
      if Length(Copy(str, pos('.', str)+1, Length(str)-pos('.', str))) > 3 then
      begin
        Edit1.Text := Copy(Edit1.Text, 1, pos('.', edit1.Text)+3);
        showmessage('자리수를 초과했습니다!');
        Edit1.SelectAll;
      end;
    end;

    허접입니다만 참고하십시요


  • Profile
    파워퍼프걸 • 2006.12.27 22:17
    아... 정말 되네요
    소숫점 셋째자리를 넘으면 메시지가 뜨네요..
    근데 소숫점을 안찍으면 백단위까지 써지네요 -0-
    이건 제가 수정해보도록 하겠습니다..
    정말 감사합니다... ^^
    도움 마니마니 되었어요 ㅎ ㅔㅎ ㅔ~
    복바드셔용~ ^^*
←First Page
183 184 185 186 187 188 189 190 191 192
Last Page→
한델 로그인 하기