Q&A
- [왕초보]누구나 대답할수 있는 질문2
저번에 1부터 100까지 홀수만 더하기 질문을 한 초보입니다..^^;(나그네님 감사합니다)
이번엔 비슷한데요...에디트박스에 제가 쓴 숫자중에서 홀수만 더하려고 하거든요..
에디트 박스1, 버튼1, 라벨1 이렇게 만들었구요...
procedure TForm1.Button1Click(Sender: TObject);
var
ixa,ixb : Integer;
hap : Integer;
begin
hap := 0;
ixa := StoToInt(edtFirst.Text); <= 요기서 에러가 나더라구요.(맞는거 같은데..-_-")
For ixa := 1 to ixa(edtFirst.Text) do <= 이건 이렇게 써도 되는지 잘몰라서..^^;
begin
ixb := ixa mod 2;
If ixb = 1 then hap := hap + ixa;
end;
sume.Caption := IntToStr(hap);
end;
end.
지금 공부중이라...제대로 된 문법인지 확인할길이 없네요...고수님들 초보니까
답답하더라도 이해해주시고 자세한 설명 부탁드립니다...
이번엔 비슷한데요...에디트박스에 제가 쓴 숫자중에서 홀수만 더하려고 하거든요..
에디트 박스1, 버튼1, 라벨1 이렇게 만들었구요...
procedure TForm1.Button1Click(Sender: TObject);
var
ixa,ixb : Integer;
hap : Integer;
begin
hap := 0;
ixa := StoToInt(edtFirst.Text); <= 요기서 에러가 나더라구요.(맞는거 같은데..-_-")
For ixa := 1 to ixa(edtFirst.Text) do <= 이건 이렇게 써도 되는지 잘몰라서..^^;
begin
ixb := ixa mod 2;
If ixb = 1 then hap := hap + ixa;
end;
sume.Caption := IntToStr(hap);
end;
end.
지금 공부중이라...제대로 된 문법인지 확인할길이 없네요...고수님들 초보니까
답답하더라도 이해해주시고 자세한 설명 부탁드립니다...
2
COMMENTS
-
-
ixa := StoToInt(edtFirst.Text); 문장은 StoToInt가 아니라 StrToInt입니다.
따라서, ixa := StrToInt(edtFirst.Text); 가 되겠군요.
그다음 For ixa := 1 to ixa(edtFirst.Text) do 에서 ixa(edtFirst.Text)역시 안됩니다.
따라서, for ixa := 1 to StrToInt(edtFirst.Text) do 라고 하셔야 합니다.
ixa는 integer형의 변수이므로 ixa(edtFirst.Text)와 같이 string 형을 integer형으로
타입캐스팅하는데 사용할 수 없습니다.
님의 코드를 다시 정리해보면,
procedure TForm1.Button1Click(Sender: TObject);
var
ixa: integer;
hap: integer;
begin
hap := 0;
for ixa := 1 to StrToInt(edtFirst.Text) do
if (ixa mod 2) = 1 then
hap := hap + ixa;
sume.caption := IntToStr(hap);
end;
정도가 될 것 같습니다.
와~ 감사합니다...오타라니..-_-" 쪽팔리군요...^^; 이렇게 간단하게도 되는군요...
정말 감사합니다...
(NOTICE) You must be logged in to comment on this post.
-
- 전기봉
- 2001.01.30 20:32
- 0 COMMENTS
- /
- 0 LIKES
-
- 이흥주
- 2001.01.30 20:31
- 0 COMMENTS
- /
- 0 LIKES
-
- 스위밍
- 2001.01.30 20:15
- 0 COMMENTS
- /
- 0 LIKES
-
- 델피언77
- •
- 2001.01.30 20:02
- 1 COMMENTS
- /
- 0 LIKES
-
빙구•2001.02.01 18:10procedure TForm1.Button1Click(Sender: TObject); var datastr: TStringStream; begin datastr ...
-
- 채신옥
- •
- 2001.01.30 19:47
- 1 COMMENTS
- /
- 0 LIKES
-
정창주•2001.01.30 20:03WinExec(실행파일명, 윈도우스타일) 이걸로 하면 될꺼에여! 채신옥 wrote: > 제가 비베를 이용해...
-
- 박재만
- •
- 2001.01.30 19:34
- 1 COMMENTS
- /
- 0 LIKES
-
갱민이•2001.02.01 03:40박재만 wrote: > 안녕하세요. > 크리스탈 레포트를 이용한 출력을 할려고 합니다. > 크리스탈 레포트에 ...
-
- hnc
- 2001.01.30 19:31
- 0 COMMENTS
- /
- 0 LIKES
-
- DB왕초보
- •
- 2001.01.30 19:12
- 1 COMMENTS
- /
- 0 LIKES
-
hobakpa•2001.01.30 20:50DB왕초보 wrote: > 새해 복 많이 받으시고요. > 현재 만들어진 paradox를 MS-Access의 DB로 옮기고 싶은...
-
- 정창주
- 2001.01.30 19:09
- 0 COMMENTS
- /
- 0 LIKES
-
- aha
- •
- 2001.01.30 19:01
- 1 COMMENTS
- /
- 0 LIKES
-
봄봄•2001.01.30 21:00> 1. 6.0(6.1)은 client와 server가 따로 있던데, 로컬로 사용하려면 어떤것을 설치해야 하나요? 로컬로...
-
- 나야
- •
- 2001.01.30 18:54
- 1 COMMENTS
- /
- 0 LIKES
-
갱민이•2001.02.01 03:44델파이의 메인 메뉴 중에 Tool --- Environment Options --- Library탭에서 Library Path에서 ...을 클릭...
-
- 김범수
- •
- 2001.01.30 18:47
- 1 COMMENTS
- /
- 0 LIKES
-
아폴론•2001.01.30 19:28김범수 wrote: > dbgrid 의 내용을 코드순으로 소트하고 싶은데 방법을 가르쳐 주십시요. > database des...
-
- 김광철
- 2001.01.30 18:32
- 0 COMMENTS
- /
- 0 LIKES
-
- jbpark
- •
- 2001.01.30 16:55
- 3 COMMENTS
- /
- 0 LIKES
-
hobakpa•2001.01.30 21:00jbpark wrote: > Delphi 5와 Access를 묶어 작업하고 있습니다 > 먼저 Main 창에서 New 창을 띄워 새로운...
-
jbpark•2001.01.31 09:50hobakpa wrote: > jbpark wrote: > > Delphi 5와 Access를 묶어 작업하고 있습니다 > > 먼저 Main 창에...
-
성더기•2001.01.31 22:05database 컴포넌트를 사용하시고 트랜잭셔처리를 해서 Commit를 사용하면 어떨지 싶습니다.
-
- 궁금이
- •
- 2001.01.30 09:26
- 1 COMMENTS
- /
- 0 LIKES
-
^-_-^•2001.01.30 12:51DateSeparatoer 로 확인,설정을 할수 있습니다. blue blood. 궁금이 wrote: > 자기 시스템에 날짜...
-
- 장용기
- 2001.01.30 09:16
- 0 COMMENTS
- /
- 0 LIKES
-
- 우진회
- •
- 2001.01.30 09:02
- 2 COMMENTS
- /
- 0 LIKES
저번에 1부터 100까지 홀수만 더하기 질문을 한 초보입니다..^^;(나그네님 감사합니다) 이번엔 비슷한데요...에디트박스에 제가 쓴 숫자중에서 홀수만 더하려고 하거든요.. 에디트 박스1, 버튼1, 라벨1 이렇게 만들었구요... procedure TF...-
cyberia•2001.01.30 10:57일단 ixa := StoToInt(edtFirst.Text); 문장은 StoToInt가 아니라 StrToInt입니다. 따라서, ixa := St...
-
우진회•2001.01.30 12:30ixa := StoToInt(edtFirst.Text); 문장은 StoToInt가 아니라 StrToInt입니다. 따라서, ixa := StrToInt(e...
-
- won
- 2001.01.30 09:30
- 0 COMMENTS
- /
- 0 LIKES
-
- 정일준
- 2001.01.30 19:06
- 0 COMMENTS
- /
- 0 LIKES
-
- 김정균
- •
- 2001.01.30 07:38
- 1 COMMENTS
- /
- 0 LIKES
-
^-_-^•2001.01.30 12:58yo` 흠!! try..except 문을 사용하면 되지 않을까 하는군요!! try //작업코드.... except o...
ixa := StoToInt(edtFirst.Text); 문장은 StoToInt가 아니라 StrToInt입니다.
따라서, ixa := StrToInt(edtFirst.Text); 가 되겠군요.
그다음 For ixa := 1 to ixa(edtFirst.Text) do 에서 ixa(edtFirst.Text)역시 안됩니다.
따라서, for ixa := 1 to StrToInt(edtFirst.Text) do 라고 하셔야 합니다.
ixa는 integer형의 변수이므로 ixa(edtFirst.Text)와 같이 string 형을 integer형으로
타입캐스팅하는데 사용할 수 없습니다.
님의 코드를 다시 정리해보면,
procedure TForm1.Button1Click(Sender: TObject);
var
ixa: integer;
hap: integer;
begin
hap := 0;
for ixa := 1 to StrToInt(edtFirst.Text) do
if (ixa mod 2) = 1 then
hap := hap + ixa;
sume.caption := IntToStr(hap);
end;
정도가 될 것 같습니다.
우진회 wrote:
> 저번에 1부터 100까지 홀수만 더하기 질문을 한 초보입니다..^^;(나그네님 감사합니다)
>
> 이번엔 비슷한데요...에디트박스에 제가 쓴 숫자중에서 홀수만 더하려고 하거든요..
>
> 에디트 박스1, 버튼1, 라벨1 이렇게 만들었구요...
>
> procedure TForm1.Button1Click(Sender: TObject);
> var
> ixa,ixb : Integer;
> hap : Integer;
> begin
> hap := 0;
> ixa := StoToInt(edtFirst.Text); <= 요기서 에러가 나더라구요.(맞는거 같은데..-_-")
> For ixa := 1 to ixa(edtFirst.Text) do <= 이건 이렇게 써도 되는지 잘몰라서..^^;
> begin
> ixb := ixa mod 2;
> If ixb = 1 then hap := hap + ixa;
> end;
> sume.Caption := IntToStr(hap);
> end;
>
> end.
> 지금 공부중이라...제대로 된 문법인지 확인할길이 없네요...고수님들 초보니까
> 답답하더라도 이해해주시고 자세한 설명 부탁드립니다...