form2에서 form1에 있는 edit1.text를 form2의 edit1.text에 넣을려고 합니다.
여기서. form2에서 edit1.text:=form1.edit1.text;
하면 안되는 건가요???
또, edit에 문자는 입력 받지 못하게 하고 숫자만 입력 받아서, 1000단위로 ','를 치려고 합니다.
일단,formatfloat('0,',??)함수를 쓸 생각인데요
두번째 매개변수를 뭐라 줘야할지 모르겠어요.
edit1.text:=formatfloat('0,',strtofloat(edit1.text));
이렇게 했는데, 에러가 나요.
머가 어떻게 잘못됐는지 가르쳐 주세요...ㅠ_ㅠ
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-->