Q&A
- 계산기 프로그램인데 소스덴여.......(해석좀 해주세여......ㅜ.ㅜ)
procedure TForm1.Button4Click(Sender: TObject);
var
r1, r2 : real;
i1, i2 : integer;
begin
if RadioGroup1.ItemIndex = 0 then //일반용일때...
begin
i1 := StrToInt(Edit1.Text);
i2 := StrToInt(Edit2.Text);
Label1.Caption := Edit1.Text + ' / ' + Edit2.Text + ' = ';
Label1.Caption := Label1.Caption + IntToStr(i1 div i2);
end
else begin //일반형이 아닐때....
r1 := StrToFloat(Edit1.Text);
r2 := StrToFloat(Edit2.Text);
Label1.Caption := Edit1.Text + ' / ' + Edit2.Text + ' = ';
Label1.Caption := Label1.Caption + FloatToStr(r1 / r2);
end;
end;
end.
컴퓨터를 공부하는 학생입니다...
레포트땜에 무작정 친구들 소스를 따라하긴 했는데.......
한줄 한줄이 무엇을 의미하는지 알수가 없네여.......
누가....저거....설명좀 해주세여......
글고 젤 궁금한거....... 다른것들은....Label1.Caption := Label1.Caption + IntToStr(i1 div i2); 에 +,-,* 저걸 넣어도 다 되던데......왜 나누기만 안돼남유...
꼭 도와 주세엽.......^^
var
r1, r2 : real;
i1, i2 : integer;
begin
if RadioGroup1.ItemIndex = 0 then //일반용일때...
begin
i1 := StrToInt(Edit1.Text);
i2 := StrToInt(Edit2.Text);
Label1.Caption := Edit1.Text + ' / ' + Edit2.Text + ' = ';
Label1.Caption := Label1.Caption + IntToStr(i1 div i2);
end
else begin //일반형이 아닐때....
r1 := StrToFloat(Edit1.Text);
r2 := StrToFloat(Edit2.Text);
Label1.Caption := Edit1.Text + ' / ' + Edit2.Text + ' = ';
Label1.Caption := Label1.Caption + FloatToStr(r1 / r2);
end;
end;
end.
컴퓨터를 공부하는 학생입니다...
레포트땜에 무작정 친구들 소스를 따라하긴 했는데.......
한줄 한줄이 무엇을 의미하는지 알수가 없네여.......
누가....저거....설명좀 해주세여......
글고 젤 궁금한거....... 다른것들은....Label1.Caption := Label1.Caption + IntToStr(i1 div i2); 에 +,-,* 저걸 넣어도 다 되던데......왜 나누기만 안돼남유...
꼭 도와 주세엽.......^^
1
COMMENTS
(NOTICE) You must be logged in to comment on this post.
-
- aa
- 2000.10.24 19:00
- 0 COMMENTS
- /
- 0 LIKES
-
- 이발사
- 2000.10.24 18:50
- 0 COMMENTS
- /
- 0 LIKES
-
- 한병화
- •
- 2000.10.24 12:57
- 2 COMMENTS
- /
- 0 LIKES
-
사발우성•2000.10.24 19:55--;; 헐 울트라 초보맨 사발임당... with query do begin close; sql.add('select a,b,c fro...
-
김영대•2000.10.24 15:55안녕하세여.. 컴맹입니다. 이걸 질문 하시는 거죠? Table1.FieldByName('FiledName').AsString :=...
-
- 한병화
- 2000.10.24 12:50
- 0 COMMENTS
- /
- 0 LIKES
-
- 이연희
- 2000.10.24 09:39
- 0 COMMENTS
- /
- 0 LIKES
-
- 강경중
- 2000.10.24 09:12
- 0 COMMENTS
- /
- 0 LIKES
-
- 강경중
- 2000.10.24 08:56
- 0 COMMENTS
- /
- 0 LIKES
-
- Jonny
- •
- 2000.10.24 07:31
- 1 COMMENTS
- /
- 0 LIKES
-
김영대•2000.10.24 16:07리스트 박스의 내용을 지우는거는여.. 요건 선택된게 하나일경우에... ListBox1.Items.Delete(ListBo...
-
- 송영순
- •
- 2000.10.24 07:01
- 2 COMMENTS
- /
- 0 LIKES
-
사발우성•2000.10.24 19:04with query1 do begin close; sql.add('select id from db'); sql.add('where id='''+edi...
-
김영대•2000.10.24 16:12안녕하세여..? DB을 무얼 쓰는지...? 일단 쿼리를 이용해서 체크를 하게 되묜... Query1.Close; Qu...
-
- 이정한
- •
- 2000.10.24 07:00
- 2 COMMENTS
- /
- 0 LIKES
-
방경주•2000.10.24 18:35이정한 wrote: > 다음의 필드가 있습니다 > Num Field Name Field > --------- ----------- > 2000 ...
-
바보감자•2000.10.24 09:14이정한 wrote: > 다음의 필드가 있습니다 > Num Field Name Field > --------- ----------- > 2000 ...
-
- 최종민
- •
- 2000.10.24 06:20
- 1 COMMENTS
- /
- 0 LIKES
-
김상욱•2000.10.24 19:26최종민 wrote: > 많이 찾아보고 읽어 보았지만... > 잘 이해가 안 되어서리... > 자료실에 trayicon 컴...
-
- 바보
- •
- •
- 2000.10.24 05:50
- 1 COMMENTS
- /
- 1 LIKES
procedure TForm1.Button4Click(Sender: TObject); var r1, r2 : real; i1, i2 : integer; begin if RadioGroup1.ItemIndex = 0 then //일반용일때... begin i1 := StrToInt(Edit1.Text); i2 := StrToInt(Edit2.Text); Label1.Caption := ...-
조규춘•2000.10.24 09:12바보 wrote: > procedure TForm1.Button4Click(Sender: TObject); // 버튼4를 클릭할때.. > var ...
-
-
타락천사•2000.10.24 22:39안녕하세여. 타락임다..^^ 패키지를 쓰면, ..님이 바라는 대루 될겁니다.. 아님. 공통적인 함수를 DL...
-
-
- won
- 2000.10.24 04:56
- 0 COMMENTS
- /
- 0 LIKES
-
- won
- 2000.10.24 04:53
- 0 COMMENTS
- /
- 0 LIKES
-
- 가나다라마
- 2000.10.24 04:32
- 0 COMMENTS
- /
- 0 LIKES
-
- 가나다라마
- 2000.10.24 04:32
- 0 COMMENTS
- /
- 0 LIKES
-
- 찐따 개발자
- •
- 2000.10.24 04:04
- 2 COMMENTS
- /
- 0 LIKES
-
김유승•2000.11.19 01:33죄송하지만 DBGridEh에서 CheckBox사용법에 대해서 여쭈어볼까해서요... 저도 이기능을 쓸라고 하는데 ch...
-
김규억•2000.10.27 19:18찐따 개발자 wrote: > DBGridEh에서 Column을 CheckBoxes = True로 설정했는데 > 실행시킬 경우 CheckBox...
-
-
- 날라리야
- 2000.10.24 03:57
- 0 COMMENTS
- /
- 0 LIKES
> procedure TForm1.Button4Click(Sender: TObject); // 버튼4를 클릭할때..
> var // 변수를 선언할라꾸...^^
> r1, r2 : real; // r1, r2는 실수
> i1, i2 : integer; // 정수..
> begin // 시작혀~~~~~
> if RadioGroup1.ItemIndex = 0 then //일반용일때... 라디오그룹컴포에서 선택한것이
> begin // ~~ 위에 if문 시작혀~~
> i1 := StrToInt(Edit1.Text); // i1 값에는 Edit1.Text 문자를 정수루 바꾸구.
> i2 := StrToInt(Edit2.Text); // i2 값에는 Edit2.Text 문자를 정수루 바꾸구.
>
> Label1.Caption := Edit1.Text + ' / ' + Edit2.Text + ' = '; // 계산값을 보여주구
> Label1.Caption := Label1.Caption + IntToStr(i1 div i2); // 이것두..
> end // 끝내 번지구..
> else begin //라디오그룹컴포에서 선택한것이 일반형이 아닐때....(else는 토다는 거)
> r1 := StrToFloat(Edit1.Text); // r1 값에는 Edit1.Text 문자를 실수루 바꾸구.
> r2 := StrToFloat(Edit2.Text); // r2 값에는 Edit2.Text 문자를 실수루 바꾸구.
>
> Label1.Caption := Edit1.Text + ' / ' + Edit2.Text + ' = ';
> Label1.Caption := Label1.Caption + FloatToStr(r1 / r2);
> end;
> end;
> end.
>
>
> 컴퓨터를 공부하는 학생입니다...
>
> 레포트땜에 무작정 친구들 소스를 따라하긴 했는데.......
>
> 한줄 한줄이 무엇을 의미하는지 알수가 없네여.......
>
> 누가....저거....설명좀 해주세여......
>
> 글고 젤 궁금한거....... 다른것들은....Label1.Caption := Label1.Caption + IntToStr(i1 div i2); 에 +,-,* 저걸 넣어도 다 되던데......왜 나누기만 안돼남유...
안녕하셔용~
델세상(http://www.freechal.com/delphiworld)의 조규춘입니다.
이 부분에서용~ IntToStr(i1 div i2); 이것이.. 에러의 원인입니다.
IntToStr 이것이 정수를 문자형태루 바꾸어준다구 생각하시면 되는데...
+,-,* 이것들은 정수에.정수를 계산해두.. 정수지만...
나누기 만큼은 정수에 정수를 나누면 실수가 될수 있기 때문이지용~
글구 위에서 처럼 주석처리 하면 되지요???
행복하셔용~