Solved

how to calculate

Posted on 2007-03-22
16
589 Views
Last Modified: 2008-01-09
I would like to do some calculations on my form.
I have dbtext,currencyedit's and dbedit's.
Can you give me example how to calculate using these?
example:
I have a dbtext that gets a value from database.
Now I want that value to divide from a value in editbox
so a currency edit gives me the right sum..
just learning...
0
Comment
Question by:Vrtnar
  • 8
  • 7
16 Comments
 
LVL 21

Expert Comment

by:ziolko
Comment Utility
var a, b: Integer;
      c: Double;

if TryStrToInt(dbtext.caption, a) and tryToInt(dbedit.text, b) then
  c := b / a;

ziolko.
0
 

Author Comment

by:Vrtnar
Comment Utility
dont understand a thing...
I tried --
var a, b: Integer;
      c: Double;
begin
if StrToInt(dbedit1.text, a) and StrToInt(edit14.text, b) then
currencyedit37.value := b / a;

and it dont work...please fro a nice explanation as I just learn
0
 

Author Comment

by:Vrtnar
Comment Utility
if TryStrToInt(dbedit1.Text,a) and TryStrToInt(edit14.text,b) then
currencyedit37.value:= a / b;
does not work either...
0
 
LVL 21

Expert Comment

by:ziolko
Comment Utility
TDBEdit has property called Text
TDBEdit has property called Caption
both properties are of type string which means they can contain literlas
so if you want to do any mth calculation you need to convert them

there are 3 most commonly used functions:
1. StrToInt() this func will throw exception if it's not possible to convert
sample

procedure S1;
var s: string;
      i: Integer;
begin
  s := 'hello world';
  try
    StrToInt(s, i);
  except
    ShowMessage('cannot convert hello world to integer value');
  end;
end;

2. TryStrToInt() <- no error will be thrown

procedure S2;
var s: string;
      i: Integer;
begin
  s := 'hello world';
  if not TryStrToInt(s, i) then
    ShowMessage('cannot convert hello world to integer value');
end;

3. Val() <- no error will be thrown

procedure S3;
var s: string;
      i: Integer;
      val: Integer;
begin
  s := 'hello world';
  Val(s, i, code);
  if code <> 0 then
    ShowMessage('cannot convert hello world to integer value');
end;



ziolko.
0
 
LVL 21

Expert Comment

by:ziolko
Comment Utility
what kind of values you have in edits?

ziolko.
0
 

Author Comment

by:Vrtnar
Comment Utility
dbedit has no caption value but text.
in your 1st example to what do I assign   'c' ??
My 'c' should be a currency edit...
0
 

Author Comment

by:Vrtnar
Comment Utility
in edits I have numbers only...
0
 
LVL 21

Expert Comment

by:ziolko
Comment Utility
my mistake TBText has Caption...

this should work unless you have floating point values in edit or text
if TryStrToInt(dbedit1.Text,a) and TryStrToInt(edit14.text,b) then
currencyedit37.value:= a / b;

if you have floating point use TryStrToFloat()

ziolko.
0
Better Security Awareness With Threat Intelligence

See how one of the leading financial services organizations uses Recorded Future as part of a holistic threat intelligence program to promote security awareness and proactively and efficiently identify threats.

 

Author Comment

by:Vrtnar
Comment Utility
dbedit1 is currency value in the database.
in edit14 i type in (freehand) number values.
I tried (on exit of the edit14):
procedure TPostavke.Edit14Exit(Sender: TObject);
var a, b: Integer;
      c: Double;
begin
if TryStrToInt(dbedit1.Text,a) and TryStrToInt(edit14.text,b) then
currencyedit37.value:= a / b;
end;
It does not work..
If i substitute TryStrToInt with TryStrToFloat i get :
[Error] Unit3.pas(255): There is no overloaded version of 'TryStrToFloat' that can be called with these arguments

You see I have a value of '584,65 €' in my dbedit1.
Now I want to type (example number 2 in my editbox) and when I leave the edit my currency displays
292,325...
0
 
LVL 21

Accepted Solution

by:
ziolko earned 125 total points
Comment Utility
ok,

procedure TPostavke.Edit14Exit(Sender: TObject);
var a: Currency;
      b: Double;
begin
  if TryStrToCurr(dbedit1.Text,a) and TryStrToInt(edit14.text,b) then
    currencyedit37.value:= a / b;
end;

ziolko.
0
 

Author Comment

by:Vrtnar
Comment Utility
procedure TPostavke.Edit14Change(Sender: TObject);
var a: Currency;
     b: double;
begin
if TryStrToCurr(dbedit1.Text,a) and TryStrToInt(edit14.text,b) then
    currencyedit37.value:= a / b;
end

I get :
[Error] Unit3.pas(256): Types of actual and formal var parameters must be identical
0
 
LVL 10

Expert Comment

by:dinilud
Comment Utility
instead of TryStrToInt use TryStrToFloat
0
 
LVL 21

Expert Comment

by:ziolko
Comment Utility
what the ...??

i've already posted:
if TryStrToCurr(dbedit1.Text,a) and TryStrToFloat(edit14.text,b) then
    currencyedit37.value:= a / b;

where did it go??

ziolko.
0
 

Author Comment

by:Vrtnar
Comment Utility
Dont seem to work...both ways...
0
 

Author Comment

by:Vrtnar
Comment Utility
I think i have figured what is the mistake here..
a queery that is the info provider for dbedit1 has the field
marked as 'currency' (it is currency in the database however)
But when I remove the field type as 'currency' in the
field rooster and set it to currency false the code :
var a: Currency;
      b: integer;
begin
if TryStrToCurr(dbedit1.Text,a) and TryStrToInt(edit12.text,b) then
    currencyedit37.value:= a / b;
works !
is this ok ??
0
 
LVL 21

Expert Comment

by:ziolko
Comment Utility
if it works it's ok:)

ziolko.
0

Featured Post

What Security Threats Are You Missing?

Enhance your security with threat intelligence from the web. Get trending threat insights on hackers, exploits, and suspicious IP addresses delivered to your inbox with our free Cyber Daily.

Join & Write a Comment

The uses clause is one of those things that just tends to grow and grow. Most of the time this is in the main form, as it's from this form that all others are called. If you have a big application (including many forms), the uses clause in the in…
Objective: - This article will help user in how to convert their numeric value become words. How to use 1. You can copy this code in your Unit as function 2. than you can perform your function by type this code The Code   (CODE) The Im…
This video shows how to remove a single email address from the Outlook 2010 Auto Suggestion memory. NOTE: For Outlook 2016 and 2013 perform the exact same steps. Open a new email: Click the New email button in Outlook. Start typing the address: …
This video explains how to create simple products associated to Magento configurable product and offers fast way of their generation with Store Manager for Magento tool.

763 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

8 Experts available now in Live!

Get 1:1 Help Now