Q&A
- [급함]연산자입니다.
계산 프로그램을 만들려고 하는데여...
예를 들어
procedure TForm1.button1Click(Sender: TObject);
var
i, j, total : integer;
begin
i := StrToInt(Edit1Text);
j := StrToInt(Edit2.Text);
total := i + j;
label1.Caption := IntToStr(total);
end;
procedure TForm1.Button2Click(Sender: TObject);
var
o, p, total : integer;
begin
o := StrToInt(Edit3.Text);
p := 위의 'label1'의 총합; // 애를 어떻게 표현해야 하나여?
total := o - p;
label2.caption := IntToStr(total);
예를 들어
procedure TForm1.button1Click(Sender: TObject);
var
i, j, total : integer;
begin
i := StrToInt(Edit1Text);
j := StrToInt(Edit2.Text);
total := i + j;
label1.Caption := IntToStr(total);
end;
procedure TForm1.Button2Click(Sender: TObject);
var
o, p, total : integer;
begin
o := StrToInt(Edit3.Text);
p := 위의 'label1'의 총합; // 애를 어떻게 표현해야 하나여?
total := o - p;
label2.caption := IntToStr(total);
3
COMMENTS
-
-
이윤선 wrote:
> 계산 프로그램을 만들려고 하는데여...
>
> 예를 들어
>
> procedure TForm1.button1Click(Sender: TObject);
> var
> i, j, total : integer;
>
> begin
> i := StrToInt(Edit1Text);
> j := StrToInt(Edit2.Text);
>
> total := i + j;
>
> label1.Caption := IntToStr(total);
>
> end;
>
>
> procedure TForm1.Button2Click(Sender: TObject);
> var
> o, p, total : integer;
> begin
>
> o := StrToInt(Edit3.Text);
p := inttostr(label1.Caption); // 애를 어떻게 표현해야 하나여?
>
> total := o - p;
>
> label2.caption := IntToStr(total);
>
>
>
이렇게 하면 되지 않나요?
만약 에러가 난다면... Try Except를 하나 거시던지 아니면 Try Finally..
즉,
Try p := inttostr(Label1.Caption);
Except p := 0;
end;
-
p := StrToInt(label1.Caption); <== 반대로 이렇게 쓰심이... ^^;
JDHwang wrote:
> 이윤선 wrote:
> > 계산 프로그램을 만들려고 하는데여...
> >
> > 예를 들어
> >
> > procedure TForm1.button1Click(Sender: TObject);
> > var
> > i, j, total : integer;
> >
> > begin
> > i := StrToInt(Edit1Text);
> > j := StrToInt(Edit2.Text);
> >
> > total := i + j;
> >
> > label1.Caption := IntToStr(total);
> >
> > end;
> >
> >
> > procedure TForm1.Button2Click(Sender: TObject);
> > var
> > o, p, total : integer;
> > begin
> >
> > o := StrToInt(Edit3.Text);
> p := inttostr(label1.Caption); // 애를 어떻게 표현해야 하나여?
> >
> > total := o - p;
> >
> > label2.caption := IntToStr(total);
> >
> >
> >
>
> 이렇게 하면 되지 않나요?
> 만약 에러가 난다면... Try Except를 하나 거시던지 아니면 Try Finally..
> 즉,
>
> Try p := inttostr(Label1.Caption);
> Except p := 0;
> end;
>
(NOTICE) You must be logged in to comment on this post.
-
- 마시마로
- 2001.04.05 02:48
- 0 COMMENTS
- /
- 0 LIKES
-
- [초보맨]
- 2001.04.05 02:10
- 0 COMMENTS
- /
- 0 LIKES
-
- 넓은바다
- •
- 2001.04.05 02:06
- 1 COMMENTS
- /
- 0 LIKES
-
솔뫼마당•2001.04.05 02:15일반적으로 Primary Key가 지정된 컬럼(필드)는 인덱스를 별도 추구하지 않습니다. 아래의 2.는 인덱스 추...
-
- 강호수
- 2001.04.05 02:02
- 0 COMMENTS
- /
- 0 LIKES
-
- 한수부탁
- 2001.04.05 01:55
- 0 COMMENTS
- /
- 0 LIKES
-
- 영러브
- 2001.04.05 01:20
- 0 COMMENTS
- /
- 0 LIKES
-
- 김미연
- •
- 2001.04.05 01:17
- 1 COMMENTS
- /
- 0 LIKES
-
류종택•2001.04.05 01:40질문이 이해하기가 좀 어렵네요.. 여하튼 인댁스필드명은 컬럼명과 별개 입니다. 인댁스를 생성할 때 ...
-
- 강동희
- •
- 2001.04.05 01:10
- 2 COMMENTS
- /
- 0 LIKES
-
송종석•2001.04.06 19:30마스터 1, 디테일 1인 경우입니다. 응용하세요 마스터: Shop.db 디테일: Trans.db 연결필드: ShopNo ...
-
솔뫼마당•2001.04.05 02:23당연히 가능합니다. 첫째 방법은 마스터와 디테일에 등록된 레코드를 조건절에 주어 삭제하면 됩니다. ...
-
- 김미연
- •
- 2001.04.05 00:55
- 5 COMMENTS
- /
- 0 LIKES
-
감초•2001.04.05 01:10
-
김미연•2001.04.05 01:23
-
류종택•2001.04.05 01:44
-
김미연•2001.04.05 07:55
-
성더기•2001.04.07 16:19
-
- 대추
- 2001.04.05 00:44
- 0 COMMENTS
- /
- 0 LIKES
-
- 델연기
- 2001.04.05 00:23
- 0 COMMENTS
- /
- 0 LIKES
-
- 초보
- •
- 2001.04.05 00:18
- 1 COMMENTS
- /
- 0 LIKES
-
솔뫼마당•2001.04.05 02:30델파이의 가장 큰문제중 하나인듯 합니다. 델파이를 초기 버젼부터 제기되었던 문제입니다. 똑같은 OS 환...
-
- 정용광
- •
- 2001.04.05 00:01
- 3 COMMENTS
- /
- 0 LIKES
-
솔뫼마당•2001.04.05 02:33질문내용을 정확히 파악할 수는 없으나 만약 char로 인식이 된다면 계산할때 숫자로 바꾸어서 하면 어떨까...
-
정용광•2001.04.06 21:50답변 감사합니다. 하지만 제가 원하는 부분은 아닙니다. 저희 업무는 엑셀로 저장을 하여 엑셀에서 편집...
-
^^•2001.06.08 18:53DB Data를 F1에뿌려줄때 textrc가 아닌 numberrc로 뿌려주면 해결될꺼 같은데요... 정용광 wrote: ...
-
- 궁금이
- •
- 2001.04.05 00:00
- 1 COMMENTS
- /
- 0 LIKES
-
회색도시•2001.04.05 05:09MySQL의 안정성이 떨어진다는 말은 아마 객관적인 근거가 없거나... 제대로 된 옵티마이징이 안되어 있거...
-
- 초보
- •
- 2001.04.04 23:40
- 1 COMMENTS
- /
- 0 LIKES
-
류종택•2001.04.05 01:50설명만으로 설명할 수 있는 에러는 아닐 것 같습니다. 해당 에러는 대부분 Pointer 처리에 문제가 있는 에...
-
- 해돌이
- 2001.04.04 23:34
- 0 COMMENTS
- /
- 0 LIKES
-
- 궁금이
- 2001.04.04 23:23
- 0 COMMENTS
- /
- 0 LIKES
-
- 왕초보
- 2001.04.04 23:20
- 0 COMMENTS
- /
- 0 LIKES
-
- 이윤선
- •
- 2001.04.04 23:22
- 3 COMMENTS
- /
- 0 LIKES
계산 프로그램을 만들려고 하는데여... 예를 들어 procedure TForm1.button1Click(Sender: TObject); var i, j, total : integer; begin i := StrToInt(Edit1Text); j := StrToInt(Edit2.Text); total := i + j; label1.Caption := IntToS...-
솔뫼마당•2001.04.05 02:48아래와 같이 수정하십시오. > 계산 프로그램을 만들려고 하는데여... > > 예를 들어 > > procedur...
-
JDHwang•2001.04.04 23:46이윤선 wrote: > 계산 프로그램을 만들려고 하는데여... > > 예를 들어 > > procedure TForm1.butto...
-
하기•2001.04.05 00:28p := StrToInt(label1.Caption); 이윤선 wrote: > > 계산 프로그램을 만들려고 하는데여... > > > > ...
-
- 심지현
- •
- 2001.04.04 22:49
- 1 COMMENTS
- /
- 0 LIKES
-
솔뫼마당•2001.04.05 02:53질문하신 내용이 너무 불분명하군요. 프로젝트가 어떻게 구성이 되었고 어떤 절차에 의해서 테이블을 열었...
> 계산 프로그램을 만들려고 하는데여...
>
> 예를 들어
>
> procedure TForm1.button1Click(Sender: TObject);
> var
> i, j, total : integer;
>
> begin
> i := StrToIntDef(Edit1.Text, 0);
> j := StrToIntDef(Edit2.Text, 0);
>
> total := i + j;
>
> label1.Caption := IntToStr(total);
// 이런 경우 변수없이 한 줄로 처리할 수 있습니다.
// Label1.Caption := IntToStr(StrToIntDef(Edit1.Text, 0) + StrToIntDef(Edit2.Text, 0));
>
> end;
>
>
> procedure TForm1.Button2Click(Sender: TObject);
> var
> o, p, total : integer;
> begin
>
> o := StrToIntDef(Edit3.Text, 0);
> p := StrToIntDef(Label1.Caption, 0);
>
> total := o - p;
>
> label2.caption := IntToStr(total);
>
> // 이 경우에도 한 줄로 변수없이 표현이 가능합니다.
> // Label2.Caption := IntToStr(StrToIntDef(Edit3.Text, 0) - StrToIntDef(Label1.Caption, 0));
> end;