자유롭게 질의 및 응답을 할 수 있는 게시판입니다. 개발자 여러분의 답변이 큰 도움이 됩니다.
- 제품설치/등록 오류 문의: 설치/등록 Q&A 이용 (제품 구매 고객 한정)
Delphi 델파이로 만들고있는 계산기 중 모르는게 있써서 물어봄니다
2018.06.17 13:32
제가 델파이를 시작한지 한달도 안된 사람입니다
델파이로 게산 기를 만드는 도중에 모르는것이 있어서 물어 볼려고요
계산기에 숫자를 입력하고 =이거를 붙이면 앞에있는 숫자가 다 계산 해서 텍스트에 입력이 되야 하는대 계산 하는 방법을 몰라서 물어 봄니다
제가 짠 소스는 이렀게 짰습니다 소스중에 틀린게 있으면 지적도 해주세요
var
Form1: TForm1;
but1,but2,but3,but4,but5,but6,but7,but8,but9,but10,q1,w2 : integer;
implementation
{$R *.fmx}
procedure TForm1.Button10Click(Sender: TObject);
begin
//Text1.Text := inttostr(but10);
Text1.Text := Text1.Text + '0';
end;
procedure TForm1.Button11Click(Sender: TObject);
begin
//Text1.Text := Text1.Text - ' ';
end;
procedure TForm1.Button12Click(Sender: TObject);
begin
Text1.Text := Text1.Text + '%';
end;
procedure TForm1.Button13Click(Sender: TObject);
begin
Text1.Text := Text1.Text + '*';
end;
procedure TForm1.Button14Click(Sender: TObject);
begin
Text1.Text := Text1.Text + '-';
end;
procedure TForm1.Button15Click(Sender: TObject);
begin
Text1.Text := Text1.Text + '+';
end;
procedure TForm1.Button16Click(Sender: TObject);
begin
Text3.Text := Text1.Text ;
q1 := Text3.Text;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Text1.Text := text1.Text + '7';
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Text1.Text := Text1.Text + '8';
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
Text1.Text := Text1.Text + '9';
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
Text1.Text := Text1.Text + '4';
end;
procedure TForm1.Button5Click(Sender: TObject);
begin
Text1.Text := Text1.Text + '5';
end;
procedure TForm1.Button6Click(Sender: TObject);
begin
Text1.Text := Text1.Text + '6';
end;
procedure TForm1.Button7Click(Sender: TObject);
begin
Text1.Text := Text1.Text + '1';
end;
procedure TForm1.Button8Click(Sender: TObject);
begin
Text1.Text := Text1.Text + '2';
end;
procedure TForm1.Button9Click(Sender: TObject);
begin
Text1.Text := Text1.Text + '3';
end;
end.
댓글 2
-
김원경
2018.06.25 11:21
-
쿠키
2018.07.20 15:10
소스를 기준으로 보면
Button16Click 클릭하면
q1 := Text3.Text; 를 실행하여 ql에 계산된 결과를 보여주려는 것 같은데요
Text3.Text 문자열을 계산하여 q1 에 넣어야 합니다.
예를 들면
Text3.Txt 값이 '3245-40' 이라고 한다면 , 그결과를 3205 라고 찍어 주고 싶지만 그렇게 되지 않으니
문자열을 '-' 기준으로 잘라서 숫자로 변환하고 , 앞부분 빼기(-) 뒷부분 한 값을 다시 문자열로 만들어서
q1 에 할당(표시) 하면 되겠는데요 ,,,
문제점
1) 일단 q1 변수가 선언되어 있지 않습니다.
2)
Text3.Text := Text1.Text ;
q1 := Text3.Text;
위 부분에서 Text3.Text := Text1.Text ; 할당하는 부분 불필요
q1 := Text1.Text; 바로할당 하면 동일함
3) 델파이 기초 샘플을 많이 보시면 좋겠습니다.
4) 델파이 기초 문법 문서를 (PDF 자료실)에 있는것을 전체 문법이 익숙해 질때까지 10번만 보세요
그것을 보는 중에 델파이의 전반적인 함수와, 사용이 익숙해져서
코드상으로 더 높은 수준의 계산기를 만들수 있을겁니다.
Delphi 델파이로 만들고있는 계산기 중 모르는게 있써서 물어봄니다
2018.06.17 13:32
제가 델파이를 시작한지 한달도 안된 사람입니다
델파이로 게산 기를 만드는 도중에 모르는것이 있어서 물어 볼려고요
계산기에 숫자를 입력하고 =이거를 붙이면 앞에있는 숫자가 다 계산 해서 텍스트에 입력이 되야 하는대 계산 하는 방법을 몰라서 물어 봄니다
제가 짠 소스는 이렀게 짰습니다 소스중에 틀린게 있으면 지적도 해주세요
var
Form1: TForm1;
but1,but2,but3,but4,but5,but6,but7,but8,but9,but10,q1,w2 : integer;
implementation
{$R *.fmx}
procedure TForm1.Button10Click(Sender: TObject);
begin
//Text1.Text := inttostr(but10);
Text1.Text := Text1.Text + '0';
end;
procedure TForm1.Button11Click(Sender: TObject);
begin
//Text1.Text := Text1.Text - ' ';
end;
procedure TForm1.Button12Click(Sender: TObject);
begin
Text1.Text := Text1.Text + '%';
end;
procedure TForm1.Button13Click(Sender: TObject);
begin
Text1.Text := Text1.Text + '*';
end;
procedure TForm1.Button14Click(Sender: TObject);
begin
Text1.Text := Text1.Text + '-';
end;
procedure TForm1.Button15Click(Sender: TObject);
begin
Text1.Text := Text1.Text + '+';
end;
procedure TForm1.Button16Click(Sender: TObject);
begin
Text3.Text := Text1.Text ;
q1 := Text3.Text;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Text1.Text := text1.Text + '7';
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Text1.Text := Text1.Text + '8';
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
Text1.Text := Text1.Text + '9';
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
Text1.Text := Text1.Text + '4';
end;
procedure TForm1.Button5Click(Sender: TObject);
begin
Text1.Text := Text1.Text + '5';
end;
procedure TForm1.Button6Click(Sender: TObject);
begin
Text1.Text := Text1.Text + '6';
end;
procedure TForm1.Button7Click(Sender: TObject);
begin
Text1.Text := Text1.Text + '1';
end;
procedure TForm1.Button8Click(Sender: TObject);
begin
Text1.Text := Text1.Text + '2';
end;
procedure TForm1.Button9Click(Sender: TObject);
begin
Text1.Text := Text1.Text + '3';
end;
end.
댓글 2
-
김원경
2018.06.25 11:21
-
쿠키
2018.07.20 15:10
소스를 기준으로 보면
Button16Click 클릭하면
q1 := Text3.Text; 를 실행하여 ql에 계산된 결과를 보여주려는 것 같은데요
Text3.Text 문자열을 계산하여 q1 에 넣어야 합니다.
예를 들면
Text3.Txt 값이 '3245-40' 이라고 한다면 , 그결과를 3205 라고 찍어 주고 싶지만 그렇게 되지 않으니
문자열을 '-' 기준으로 잘라서 숫자로 변환하고 , 앞부분 빼기(-) 뒷부분 한 값을 다시 문자열로 만들어서
q1 에 할당(표시) 하면 되겠는데요 ,,,
문제점
1) 일단 q1 변수가 선언되어 있지 않습니다.
2)
Text3.Text := Text1.Text ;
q1 := Text3.Text;위 부분에서 Text3.Text := Text1.Text ; 할당하는 부분 불필요
q1 := Text1.Text; 바로할당 하면 동일함
3) 델파이 기초 샘플을 많이 보시면 좋겠습니다.
4) 델파이 기초 문법 문서를 (PDF 자료실)에 있는것을 전체 문법이 익숙해 질때까지 10번만 보세요
그것을 보는 중에 델파이의 전반적인 함수와, 사용이 익숙해져서
코드상으로 더 높은 수준의 계산기를 만들수 있을겁니다.
제가 신입들이 짠 계산기 소스를 몇개 보내드릴테니 소스를 보시고 (용량이 작아서 프로젝트 파일은 보내지 않습니다. )작성해 보십시오. 그리고 기본적인 교육이 필요하시면 교육 과정을 이수하시면 도우이 되실 것입니다 만일 교육 과정 들으시느겟이 어려유시면 http://tech.devgear.co.kr/index.php?mid=delphi_news&category=5808 동영상 자료를 참조하십시오.