civilian 님이 쓰신 글 :
:

: procedure TForm1.Button1Click(Sender: TObject);
: var
:   Sum: Integer;
:   i: Integer;
: begin
:   Sum := 0;
:   for i := 1 to StrToInt(Edit1.Text) do
:   begin
:     if (i mod 2) <> 0 then  // 홀수인가 ?
:       Sum := Sum + i;
:   end;
:   Edit2.Text := IntToStr(Sum);
: end;

----------------------------------------------------------------------------------------------

답변 정말 감사드려요 ~
그런데 저렇게 하면 입력란에 1000 이상까지 써지지 안나요??
1000 까지만 쓰이고 1001 이 되면 입력이 안되게 하려면
어떤 명령어를 써야하나요?...