Q&A
- 소스를 만들다가..
안녕하세요..
다름이 리포트가 나와서 계산기를 만들거든요..
구성은 사칙연산만 되면 되는데 에디터 창에 숫자가 지워져서는 안되요..
예를 들면 에디터 창에 1+2+3....가 나오고 =를 누르는 순간 답이 나와야 하거든요..
에디터 창에 나오는것까지는 했는데 =를 누르면 답이 안 나와여...좀 갈켜 주세요..졔가 만든 소스는 다음과 같아여..(좀 길다./)
var
Form1: TForm1;
flag:integer;
number:Double;
operater:string;
sub:integer;
a:double;
implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
begin
edit1.text:=edit1.text+'1';
if flag=2 then
a:=strtofloat(edit1.text);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
edit1.text:=edit1.text+'2';
a:=strtofloat(edit1.text);
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
edit1.text:=edit1.text+'3';
a:=strtofloat(edit1.text);
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
edit1.text:=edit1.text+'4';
a:=strtofloat(edit1.text);
end;
procedure TForm1.Button5Click(Sender: TObject);
begin
edit1.text:=edit1.text+'5';
a:=strtofloat(edit1.text);
end;
procedure TForm1.Button6Click(Sender: TObject);
begin
edit1.text:=edit1.text+'6';
a:=strtofloat(edit1.text);
end;
procedure TForm1.Button7Click(Sender: TObject);
begin
edit1.text:=edit1.text+'7';
a:=strtofloat(edit1.text);
end;
procedure TForm1.Button8Click(Sender: TObject);
begin
edit1.text:=edit1.text+'8';
a:=strtofloat(edit1.text);
end;
procedure TForm1.Button9Click(Sender: TObject);
begin
edit1.text:=edit1.text+'9';
a:=strtofloat(edit1.text);
end;
procedure TForm1.Button10Click(Sender: TObject);
begin
edit1.text:=edit1.text+'0';
a:=strtofloat(edit1.text);
end;
procedure TForm1.Button12Click(Sender: TObject);
begin
sub:=1;
Operater:='+';
flag:=2;
edit1.text:=edit1.text+operater;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
flag:=1;
number:=0;
operater:='';
end;
procedure TForm1.Button13Click(Sender: TObject);
begin
sub:=2;
Operater:='-';
flag:=2;
edit1.text:=edit1.text+operater;
end;
procedure TForm1.Button14Click(Sender: TObject);
begin
sub:=3;
Operater:='*';
flag:=2;
edit1.text:=edit1.text+operater;
end;
procedure TForm1.Button15Click(Sender: TObject);
begin
sub:=4;
Operater:='/';
flag:=2;
edit1.text:=edit1.text+operater;
end;
procedure TForm1.Button11Click(Sender: TObject);
begin
if sub=1 then
edit1.text:=edit1.text+edit1.text;
end;
end.
이거든요...버튼 11번이 =입니다..고수님들 보시면 아시겠죠?
좀 자세히 좀 갈켜 주세요...
다름이 리포트가 나와서 계산기를 만들거든요..
구성은 사칙연산만 되면 되는데 에디터 창에 숫자가 지워져서는 안되요..
예를 들면 에디터 창에 1+2+3....가 나오고 =를 누르는 순간 답이 나와야 하거든요..
에디터 창에 나오는것까지는 했는데 =를 누르면 답이 안 나와여...좀 갈켜 주세요..졔가 만든 소스는 다음과 같아여..(좀 길다./)
var
Form1: TForm1;
flag:integer;
number:Double;
operater:string;
sub:integer;
a:double;
implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
begin
edit1.text:=edit1.text+'1';
if flag=2 then
a:=strtofloat(edit1.text);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
edit1.text:=edit1.text+'2';
a:=strtofloat(edit1.text);
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
edit1.text:=edit1.text+'3';
a:=strtofloat(edit1.text);
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
edit1.text:=edit1.text+'4';
a:=strtofloat(edit1.text);
end;
procedure TForm1.Button5Click(Sender: TObject);
begin
edit1.text:=edit1.text+'5';
a:=strtofloat(edit1.text);
end;
procedure TForm1.Button6Click(Sender: TObject);
begin
edit1.text:=edit1.text+'6';
a:=strtofloat(edit1.text);
end;
procedure TForm1.Button7Click(Sender: TObject);
begin
edit1.text:=edit1.text+'7';
a:=strtofloat(edit1.text);
end;
procedure TForm1.Button8Click(Sender: TObject);
begin
edit1.text:=edit1.text+'8';
a:=strtofloat(edit1.text);
end;
procedure TForm1.Button9Click(Sender: TObject);
begin
edit1.text:=edit1.text+'9';
a:=strtofloat(edit1.text);
end;
procedure TForm1.Button10Click(Sender: TObject);
begin
edit1.text:=edit1.text+'0';
a:=strtofloat(edit1.text);
end;
procedure TForm1.Button12Click(Sender: TObject);
begin
sub:=1;
Operater:='+';
flag:=2;
edit1.text:=edit1.text+operater;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
flag:=1;
number:=0;
operater:='';
end;
procedure TForm1.Button13Click(Sender: TObject);
begin
sub:=2;
Operater:='-';
flag:=2;
edit1.text:=edit1.text+operater;
end;
procedure TForm1.Button14Click(Sender: TObject);
begin
sub:=3;
Operater:='*';
flag:=2;
edit1.text:=edit1.text+operater;
end;
procedure TForm1.Button15Click(Sender: TObject);
begin
sub:=4;
Operater:='/';
flag:=2;
edit1.text:=edit1.text+operater;
end;
procedure TForm1.Button11Click(Sender: TObject);
begin
if sub=1 then
edit1.text:=edit1.text+edit1.text;
end;
end.
이거든요...버튼 11번이 =입니다..고수님들 보시면 아시겠죠?
좀 자세히 좀 갈켜 주세요...
1
COMMENTS
(NOTICE) You must be logged in to comment on this post.
-
- 질문멘
- •
- 2000.11.30 23:19
- 1 COMMENTS
- /
- 0 LIKES
-
델맨•2000.11.30 23:20질문멘 wrote: > webbrowser에서요 링크가 걸려 있는 부분에 마우스를 같다대면 > 상태바에 링크를 표시...
-
-
델맨•2000.11.30 20:38금강산 wrote: > > F1 ~ F12 까지 키값을 갈켜 주세여 > > 예) 엔터키 = #13 은 알아여 딱 하나 ^^ ...
-
까마귀•2000.11.30 19:38금강산 wrote: > > F1 ~ F12 까지 키값을 갈켜 주세여 > > 예) 엔터키 = #13 은 알아여 딱 하나 ^^ ...
-
금강산•2000.11.30 19:59> 안녕하세요. 까마귀입니다. > > 가상 키코드를 사용하세요. > 알아보기 쉬우니 이게 더 좋겠네요. >...
-
...•2000.11.30 20:39금강산 wrote: > > 안녕하세요. 까마귀입니다. > > > > 가상 키코드를 사용하세요. > > 알아보기 쉬우...
-
-
- 짱초보
- •
- 2000.11.30 18:35
- 1 COMMENTS
- /
- 0 LIKES
-
돌머리•2000.11.30 22:50안녕하세요.. 돌머리입니다. 쿼리를 사용해서 검색할 경우에는 쿼리에서 임시 데이터파일을 만듭니다. ...
-
- 왕초보
- 2000.11.30 18:34
- 0 COMMENTS
- /
- 0 LIKES
-
- 이승엽
- •
- 2000.11.30 23:22
- 1 COMMENTS
- /
- 0 LIKES
-
아라•2000.12.07 05:20이승엽 wrote: > 프로그램을 작성하고 있습니다. > 어떤 프로그램이냐 하면... > 2대 혹은 3대의 PC에서...
-
- 한영수
- 2000.11.30 17:41
- 0 COMMENTS
- /
- 0 LIKES
-
- 최은석
- •
- 2000.11.30 17:29
- 1 COMMENTS
- /
- 0 LIKES
-
이영근•2000.11.30 18:34최은석 wrote: > 질문하신 내용의 ㅏㄷㅂ이 될지 모르겠지만... > StrToIntDef('비교할내용',기본값) > ...
-
- 델초
- •
- 2000.11.30 16:37
- 2 COMMENTS
- /
- 0 LIKES
-
최은석•2000.11.30 17:24흠... 그렇다면... 왜그런지 모르겠네요 가능성이 있다면.... 컴포넌트를 제작할때 한글 1글자만 입력가...
-
델초•2000.11.30 18:24최은석 wrote: > 흠... 그렇다면... 왜그런지 모르겠네요 > 가능성이 있다면.... > 컴포넌트를 제작할때...
-
- 신용태
- •
- 2000.11.30 13:55
- 1 COMMENTS
- /
- 0 LIKES
-
정재헌•2000.11.30 18:29정재헌 wrote: 제생각에는 now()함수 때문인것으로 판단됩니다. datamodule_main.ado_his_In.Parameter...
-
- 김병훈
- •
- 2000.11.30 13:21
- 2 COMMENTS
- /
- 0 LIKES
-
타락천사•2000.11.30 22:15안녕하세여.. 타락임다...^^ 오늘은 답변을 많이 하네여..^^;; 메인 메뉴의 Component/Install Packa...
-
정재헌•2000.11.30 18:37정재헌 wrote: C 빌더도 델파이처럼 메뉴에 Environment Option에 Library 밑에 Library Path가 있답니...
-
- 초보자
- •
- 2000.11.30 11:47
- 3 COMMENTS
- /
- 0 LIKES
-
김종언•2000.12.01 19:10알고리즘 책같은거 보면 잘 나왔는데... 1+2= 여기까지가 입력이라면... 두개의 스택(숫자와 연산자)를 ...
-
어린왕자•2000.12.01 03:27안녕하세요..영원한 델초보 어린왕자입니다. 계산기..말씀이시져? 1+1이라구 쳤구.. 다음에 '='치면.. ...
-
이영근•2000.12.01 03:24초보자 wrote: > 안녕하세요 > 저의 문제는 이것입니다. > > 구성은 사칙연산만 되면 되는데 에디터 ...
-
- 왕처버..
- •
- 2000.11.30 09:18
- 1 COMMENTS
- /
- 0 LIKES
안녕하세요.. 다름이 리포트가 나와서 계산기를 만들거든요.. 구성은 사칙연산만 되면 되는데 에디터 창에 숫자가 지워져서는 안되요.. 예를 들면 에디터 창에 1+2+3....가 나오고 =를 누르는 순간 답이 나와야 하거든요.. 에디터 창에 나...-
어린왕자•2000.12.01 03:35생각해보구..로직만 메일루 보내드릴께요.. 코딩은 열심히 짜시면 될꺼 같아요..^^; 죄송.. 전 워낙 왕초...
-
- 델파이초보
- 2000.11.30 08:22
- 0 COMMENTS
- /
- 0 LIKES
-
- 심종현
- •
- 2000.11.30 06:43
- 4 COMMENTS
- /
- 0 LIKES
-
권영길•2000.11.30 07:47예제를 보시는 것이 가장 빠를것 같군요. 클라이언트에서는 커넥션이 유지되는한 계속해서 루프를 돌며 새...
-
심종현•2000.11.30 20:07답변을 보니깐 클라이언트에서 커넥션이 유지되는한 계속해서 루프를 돌며 새로운 메시지가 있나 살핀다고 ...
-
권영길•2000.11.30 22:32원하시는 기능이 뭔지 정확히 알수 없으나 제 경우에 쓰레드를 쓰는 이유는 어플리케이션의 병목현상(?) 때...
-
이경문•2000.12.12 06:30ReadLn에서 만약 상대방에서 WriteLn해 주지 않으면 프로그램이 다운되어 있는 것처럼 보이게 됩니다. 이...
-
- 오지석
- •
- 2000.11.30 06:31
- 1 COMMENTS
- /
- 0 LIKES
-
허춘•2000.12.01 15:22오지석 wrote: > 안녕하세요.. > 델파이 초보자 입니다.. > QuickReport에서 라벨이나 텍스트를 일반적...
-
- 궁금이
- 2000.11.30 05:47
- 0 COMMENTS
- /
- 0 LIKES
-
- 도움이 필요한 사람.
- 2000.11.30 05:47
- 0 COMMENTS
- /
- 0 LIKES
-
- bingyou
- •
- 2000.11.30 03:57
- 1 COMMENTS
- /
- 0 LIKES
-
김종언•2000.12.01 19:14제가 아는 책중에선 "Delphi 5 Contact"가 젤 좋은것 같더군요 근데... 비싸여... 4만원 인터넷으로 구입...
-
- 이현우
- •
- 2000.11.30 03:46
- 3 COMMENTS
- /
- 0 LIKES
-
parkisu•2000.11.30 09:16이현우 wrote: > 안녕하세요. 답변 정말 감사드립니다. > > 저 같은 초보에겐 정말 고수님 답변 하나...
-
뻐록이•2000.11.30 06:44이현우 wrote: > 안녕하세요. 답변 정말 감사드립니다. > > 저 같은 초보에겐 정말 고수님 답변 하나...
-
최은석•2000.11.30 04:04if 문 두개의 조건이 같은데... 뭔가 다른조건이 잇어야 할거같네요 아래조건으로는 한문장으로합쳐지지가...
-
- 장민우
- •
- 2000.11.30 03:31
- 1 COMMENTS
- /
- 0 LIKES
-
장민우•2000.11.30 22:38제가 올린글에 답장을 쓰려니 이상하네요~~~~ 쩝~~ 계속 뒤적뒤적하다가 evaluation version 하나를 퍼왔...
코딩은 열심히 짜시면 될꺼 같아요..^^; 죄송..
전 워낙 왕초보라서..
왕처버.. wrote:
> 안녕하세요..
> 다름이 리포트가 나와서 계산기를 만들거든요..
> 구성은 사칙연산만 되면 되는데 에디터 창에 숫자가 지워져서는 안되요..
> 예를 들면 에디터 창에 1+2+3....가 나오고 =를 누르는 순간 답이 나와야 하거든요..
> 에디터 창에 나오는것까지는 했는데 =를 누르면 답이 안 나와여...좀 갈켜 주세요..졔가 만든 소스는 다음과 같아여..(좀 길다./)
> var
> Form1: TForm1;
> flag:integer;
> number:Double;
> operater:string;
> sub:integer;
> a:double;
>
> implementation
>
> {$R *.DFM}
>
> procedure TForm1.Button1Click(Sender: TObject);
> begin
> edit1.text:=edit1.text+'1';
> if flag=2 then
> a:=strtofloat(edit1.text);
> end;
>
> procedure TForm1.Button2Click(Sender: TObject);
> begin
> edit1.text:=edit1.text+'2';
> a:=strtofloat(edit1.text);
> end;
>
> procedure TForm1.Button3Click(Sender: TObject);
> begin
> edit1.text:=edit1.text+'3';
> a:=strtofloat(edit1.text);
> end;
>
> procedure TForm1.Button4Click(Sender: TObject);
> begin
> edit1.text:=edit1.text+'4';
> a:=strtofloat(edit1.text);
> end;
>
> procedure TForm1.Button5Click(Sender: TObject);
> begin
> edit1.text:=edit1.text+'5';
> a:=strtofloat(edit1.text);
> end;
>
> procedure TForm1.Button6Click(Sender: TObject);
> begin
> edit1.text:=edit1.text+'6';
> a:=strtofloat(edit1.text);
> end;
>
> procedure TForm1.Button7Click(Sender: TObject);
> begin
> edit1.text:=edit1.text+'7';
> a:=strtofloat(edit1.text);
> end;
>
> procedure TForm1.Button8Click(Sender: TObject);
> begin
> edit1.text:=edit1.text+'8';
> a:=strtofloat(edit1.text);
> end;
>
> procedure TForm1.Button9Click(Sender: TObject);
> begin
> edit1.text:=edit1.text+'9';
> a:=strtofloat(edit1.text);
> end;
>
> procedure TForm1.Button10Click(Sender: TObject);
> begin
> edit1.text:=edit1.text+'0';
> a:=strtofloat(edit1.text);
> end;
>
> procedure TForm1.Button12Click(Sender: TObject);
> begin
> sub:=1;
> Operater:='+';
> flag:=2;
> edit1.text:=edit1.text+operater;
> end;
>
> procedure TForm1.FormCreate(Sender: TObject);
> begin
> flag:=1;
> number:=0;
> operater:='';
> end;
>
> procedure TForm1.Button13Click(Sender: TObject);
> begin
> sub:=2;
> Operater:='-';
> flag:=2;
> edit1.text:=edit1.text+operater;
> end;
>
> procedure TForm1.Button14Click(Sender: TObject);
> begin
> sub:=3;
> Operater:='*';
> flag:=2;
> edit1.text:=edit1.text+operater;
> end;
>
> procedure TForm1.Button15Click(Sender: TObject);
> begin
> sub:=4;
> Operater:='/';
> flag:=2;
> edit1.text:=edit1.text+operater;
> end;
>
> procedure TForm1.Button11Click(Sender: TObject);
> begin
> if sub=1 then
> edit1.text:=edit1.text+edit1.text;
> end;
>
>
>
> end.
>
> 이거든요...버튼 11번이 =입니다..고수님들 보시면 아시겠죠?
> 좀 자세히 좀 갈켜 주세요...