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;

꼬겡 님이 쓰신 글 :
: 폼에 에디터 박스 2개와 버튼 한개를 넣구요
: 숫자 1 ~ 1000 까지 아무숫자나 에디터 박스 1 에 입력하고
: 버튼을 누르면
: 1 부터 에디터박스1 에 넣은 숫자까지 홀수의 합만 구해서
: 에디터박스 2 에 출력 되는 걸 만들고 싶은데 어떻게 하는지 모르겟어요 ,,,
:
: 가능하다면
: 완성된 소스좀 부탁해요 ... 보면서 왜 그렇게 되는가 공부좀하려구요...
:
: 부탁드려요 ㅠㅠ