Q&A

  • form2에서 form1에 있는 edit값을 받아오려면..
form2에서 form1에 있는 edit1.text를 form2의 edit1.text에 넣을려고 합니다.
여기서. form2에서  edit1.text:=form1.edit1.text;
하면 안되는 건가요???

또, edit에 문자는 입력 받지 못하게 하고 숫자만 입력 받아서, 1000단위로 ','를 치려고 합니다.
일단,formatfloat('0,',??)함수를 쓸 생각인데요
두번째 매개변수를 뭐라 줘야할지 모르겠어요.

edit1.text:=formatfloat('0,',strtofloat(edit1.text));
이렇게 했는데, 에러가 나요.

머가 어떻게 잘못됐는지 가르쳐 주세요...ㅠ_ㅠ

1  COMMENTS
  • Profile
    귀폭 2005.03.23 02:13

    form1 uses 절에 form2의 pas(Unit) 명 넣어주시고 form2 uses 절에 form1의 pas(Unit) 명 넣어주세요.


    edit의 이벤트에서 OnKeyPress 에
    <!--CodeS-->
    procedure Tform1.edit1KeyPress(Sender: TObject; var Key: Char);
    begin
      if (key = #8) or (key = #13) or
         (key in ['0'..'9']) then
      else key := #0;
    end;
    <!--CodeE-->
    <!--CodeS-->
      if edit1.text <> '' then
        begin
          edit1.text:=formatfloat('#,###',strtofloat(edit1.text));
        end;
    <!--CodeE-->