Delphi Programming Forum
C++Builder  |  Delphi  |  FireMonkey  |  C/C++  |  Free Pascal  |  Firebird
볼랜드포럼 BorlandForum
 경고! 게시물 작성자의 사전 허락없는 메일주소 추출행위 절대 금지
델파이 포럼
Q & A
FAQ
팁&트릭
강좌/문서
자료실
컴포넌트/라이브러리
FreePascal/Lazarus
볼랜드포럼 홈
헤드라인 뉴스
IT 뉴스
공지사항
자유게시판
해피 브레이크
공동 프로젝트
구인/구직
회원 장터
건의사항
운영진 게시판
회원 메뉴
북마크
델마당
볼랜드포럼 광고 모집

델파이 Q&A
Delphi Programming Q&A
[4670] >질문< $타입의 값을 연산하려면 어케하나요?(HelpMe)
hk4801 [ ] 898 읽음    1998-09-26 13:14
$타입으로 입력되어있는 값들을 연산하려면 어떻게
해야하나요?
-----------------------------------------------------------------------
[질문]
델파이에서 파라독스로 만든 DB 중에 필드 타입이 ..
$ 타입으로 입력한 값들을 연산하려고 합니다. 어떻게 해야하요??
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
예를 들어서
TEST.DB 라는 화일의 필드에 입력된 값이

------------------------------------------
:         파라독스테이블                 :
------------------------------------------
:필드명 : EX      :  EX1       : EX2     :
:값     :\3,000   : \10,000    : \20,000 :
------------------------------------------
입니다. 이것을 모두 합산하려면 어떻게 해야하나요?

EX  필드는 DBEdit1으로 입력받고,
EX1 필드는 DBEdit2  "
EX2 필드는 DBEdit3으로 입력받습니다.



[본인생각:실제소스]
문제의 요지는
$타입을 정수형으로 변환하여 연산하는 방법인듯한데..
정수형으로 값을 바꾸려면 어케해야하나요??

Var
EX,EX1,EX2 : Integer;
UsedDay,Used,AddPer : Integer; // 단가,사용일수,사용량, 가산율
Amount : LongInt;  // 사용금액
Begin

  Table1.Edit;
  Table1.FieldValues['EX'].AsInteger := EX;
  Table1.FieldValues['EX1'].AsInteger := EX1;
  Table1.FieldValues['EX2'].AsInteger := EX;
  Table1.Post;

UsedDay := StrToInt(dbeUsed_day.Text);   <<<-------에러납니다..
AddPer := StrToInt(dbeAdd_per.Text) div 100;
Used := StrToInt(dbeUsed.Text);
//사용금액 = (단가 * 사용량 * 사용일수) + (단가 * 사용량 * 사용일수 * 가산율)
Amount := ( EX * Used * UsedDay) + ( EX * Used * UsedDay * AddPer);
dbeAmount.Text := IntToStr(Amount);
end;



[p.s]
가정에 늘 행복이 가득하시길 기원합니다.


+ -

관련 글 리스트
4670 >질문< $타입의 값을 연산하려면 어케하나요?(HelpMe) hk4801 898 1998/09/26
Google
Copyright © 1999-2015, borlandforum.com. All right reserved.