<!--CodeS-->
procedure TForm1.Button1Click(Sender: TObject);
var
I, Code: Integer;
begin
{ Get text from TEdit control }
Val(Edit1.Text, I, Code);
{ Error during conversion to integer? }
if Code <> 0 then
MessageDlg('Error at position: ' + IntToStr(Code), mtWarning, [mbOk], 0)
else
Canvas.TextOut(10, 10, 'Value = ' + IntToStr(I));
end;
<!--CodeE-->
뭐 try except 같은 걸 이용할 수 있겠지만 전 이게 편하더군요..
예제는 델파이 헬프에 있는 겁니다.. ^^
Val( 입력 스트링 , 얻어오는 값, 코드)
얻어 오는 값은 Integer, Real 다 되니 알아서 쓰시면 됩니다.. ^^
<!--CodeS-->
procedure TForm1.Button1Click(Sender: TObject);
var
I, Code: Integer;
begin
{ Get text from TEdit control }
Val(Edit1.Text, I, Code);
{ Error during conversion to integer? }
if Code <> 0 then
MessageDlg('Error at position: ' + IntToStr(Code), mtWarning, [mbOk], 0)
else
Canvas.TextOut(10, 10, 'Value = ' + IntToStr(I));
end;
<!--CodeE-->
그럼 이만 ^^