답답해... wrote:

> edit에 입력되는 값을....

>

>

> 숫자만 입력을 받아야 하거든요...

>

> 그걸 어케 검사하면 가장 좋을까요...?



여러가지 방법이 있는데..

무식하지만 간단한 방법을 알려 드릴께요...



간단하게 Edit 의 OnKeyDown 이벤트에 다음을 추가 하시면 됩니다..



if ((Key > 48) and (Key < 57)) then // 숫자에 대한 키값(0~9)

Edit4.ReadOnly := False // 참이면 입력되구요

else if (Key = 8) then //백스패이스키는 인식해야할것 같아서

Edit4.ReadOnly := False

else

Edit4.ReadOnly := True; // 거짓이면 읽기전용상태로 만들지요

답답해... wrote:

> edit에 입력되는 값을....

>

>

> 숫자만 입력을 받아야 하거든요...

>

> 그걸 어케 검사하면 가장 좋을까요...?



입력한후에 검사를 할려면 이렇게 하면 됩니다.

그럼 즐프하세요...



procedure TForm1.Button1Click(Sender: TObject);

begin

if CheckInt(Edit1.Text) then

showmessage('숫자')

else

showmessage('문자');

end;

function CheckInt(str: string): Boolean;

type TNumericDigits = set of char;

var i, err: integer;

sNumericDigits: TNumericDigits;

Chr: Array[0..1] Of Char;

begin

err := 0;



sNumericDigits := ['0'..'9'];



for i:=1 to Length(str) do

begin

StrPCopy(Chr, Copy(str, i, 1));



if (Chr[0] in sNumericDigits) then

err := 0

else begin

err := 1;

Break;

end;

end;



if (err = 0) then

Result := True

else Result := False;

end;

maskedit를 사용하시는게 어떨런지여.....



아니면.. edit 이벤트중



key down 이벤트에서 키가 룰린것이 숫자인지 아닌지 비교하여..



숫자이면 입력값을 넘기구 아니면.. 키 룰린 값을 nil 해주면