[6일차(1/6)] 덧셈 계산기 재도전

어제 만든 입력값을 하나 받아서 2배로 출력하도록 만들었지만, 오늘은 업그레이드 하여 2가지의 입력 값을 받아 덧셈 계산기를 만들고자 한다.

입력값을 위한 TEdit 2개와, 버튼, 결과창을 구성한다.

어제 한것과 같은 방법으로 인트 결과 값을 받을 Result 변수, 텍스트 입력 값을 받을 String 변수 2개를 선언한다.

그리고 어제 한것과 같이 입력받은 스트링 값을 변수에 넣어주고 계산을 위해 StrToInt로 변환 하여 더하고, 결과로 추출한다.

procedure TForm1.Button1Click(Sender: TObject);

var

  Result : Integer;

  StrData1, StrData2 : String;

begin

    StrData1 := edit1.Text;

    StrData2 := edit2.Text;

    Result := strtoInt(StrData1)+strtoInt(StrData2);

    memo1.Text := inttostr(Result);

end;

으아.. 에러다... 에러다 .. 에러다!!!!!

checking project dependencies 

[fatal error] operation aborted

좌........절................. 왜이렇게 숫자 다루기가 힘든거지 ㅠㅠㅠㅠ