새로운 글
새로운 덧글

자유롭게 질의 및 응답을 할 수 있는 게시판이며 어느 누구도 답변을 달아야만 하는 의무는 없습니다. 
  • 제품설치/등록/제품 오류 문의: 설치/등록 Q&A 이용 (제품 구매 고객 한정)

제가 델파이를 시작한지 한달도 안된 사람입니다

델파이로 게산 기를 만드는 도중에 모르는것이 있어서 물어 볼려고요

계산기에 숫자를 입력하고 =이거를 붙이면 앞에있는 숫자가 다 계산 해서 텍스트에 입력이 되야 하는대 계산 하는 방법을 몰라서 물어 봄니다

제가 짠 소스는 이렀게 짰습니다 소스중에 틀린게 있으면 지적도 해주세요

 

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.

번호 제목 글쓴이 날짜 조회 수
공지 [연말 이벤트] 개발자 Q&A 게시판을 가장 잘 활용해주신 분 상품 증정 관리자 2018.11.12 22
공지 [프로그래밍 강의] 2018.10~2018.12 관리자 2015.01.22 6125
공지 유용한 관련 사이트 관리자2 2014.03.20 43378
공지 본 게시판은 개발자 여러분들의 질문과 답변을 공유하는 공간입니다. 관리자 2012.01.10 84947
2312 안녕하세요 현재 고2 논문작성하는데 개발자 소스코드+조언 부탁드려도될까요 ㅠㅠ [2] 브루스너구링 2018.07.22 128
2311 object lock not owned. 오류가 나는 원인이 뭔가요?? sihwan 2018.08.03 40
2310 오라클 클라이언트를 설치하지 않고 오라클 서버에 접속 할 수 있는 방법이 없나요? [2] 맛재현 2018.07.30 90
2309 Delphi와 C++Builder를 하나의 컴퓨터에 동시에 설치할 수 있나요? [3] file 얼짱나 2018.07.30 78
2308 API 레벨 26 (안드로이드 80) 이상이 적용패치 언제 될까요 [1] silkroad99 2018.07.30 110
2307 시간 또는 분을 추가하고 싶어요. 험프리 2018.07.31 47
2306 "Build All Projects"로 컴파일시 정상동작하지만 "F9"로 컴파일시 에러가 발생합니다. file lamp 2016.09.26 109
2305 PointMobileBI07모델 샘플자료 에러입니다. [1] 김종찬 2018.07.30 23
2304 오픈소스 scannerMapp 에서 아래와 같은 에러가 나옵니다. 김종찬 2018.07.30 38
2303 모바일 앱개발 기술지원요청 [2] 파란김치 2018.07.25 72
2302 pc 에서 android 로 파일전송 질문 [2] 루피 2018.07.26 54
2301 c++ builder vcl form에서 패널 마우스업 다운 질문있습니다.(좌클릭, 우클릭) 빌더에러좀... 2018.07.27 29
2300 상위버전에서 지원하는 REST.JSON 또는 System.JSON 을 사용할 수 있을까요? [2] 도의 2018.07.27 50
2299 파이어닥 관련하여 궁금점이 있습니다. [1] 이즈로즈 2018.07.24 56
2298 RawByteString 클래스 사용이 안됩니다 [1] 손보라 2018.07.19 49
2297 델파이 도쿄버전 디자인 폼 버튼 스타일을 델파이 7으로 변경 [2] file 신우 2018.07.18 117
2296 알람앱 만들기 질문드립니다. [2] 루피 2018.07.17 79
» 델파이로 만들고있는 계산기 중 모르는게 있써서 물어봄니다 [2] 초짜 2018.06.17 122
2294 안드로이드 앱 컴파일 시 오류 준호승호 2018.07.16 433
2293 Generator를 변수로 변경할 수있을까요? [1] 아폴로 2018.07.13 40



광고 모듈이 설치되어 있지 않아 실행을 중단합니다..