문제는 입력받은 값이 숫자인지 문자인지를 판단해야 하는거 같은데
StrToIntDef 함수를 사용하시면 될듯하네여
StrToIntDef(s,default) <- s : string, default : 숫자
이넘은 s 가 숫자이면 s를 숫자로 변환한 값을 리턴하고
문자이면 default 값을 리턴합니다...
if StrToIntDef(edit1.text,0) = 0 then // 문자이면....
begin
에러메세지 표시
end
else // 문자이면
begin
디비에 저장
end;
StrToIntDef 함수를 사용하시면 될듯하네여
StrToIntDef(s,default) <- s : string, default : 숫자
이넘은 s 가 숫자이면 s를 숫자로 변환한 값을 리턴하고
문자이면 default 값을 리턴합니다...
if StrToIntDef(edit1.text,0) = 0 then // 문자이면....
begin
에러메세지 표시
end
else // 문자이면
begin
디비에 저장
end;