Solved

which fieldtype to choose when storing a floating point value

Posted on 2002-03-11
20
242 Views
Last Modified: 2010-04-05
hi folks,
i have a paradox table with some numerical values. in my app there is a calculation which often has a result like 4,75. which type of field (BCD, numerical, date/time ....)do i have to choose for this field in the database. later on i will use this floating point value in a dbchart. thx
0
Comment
Question by:ugross
  • 8
  • 7
  • 4
  • +1
20 Comments
 
LVL 4

Expert Comment

by:YodaMage
ID: 6855653
Float is type Number in Paradox.
0
 
LVL 4

Expert Comment

by:jsweby
ID: 6855657
In Paradox, the Number type will be fine. If you ever use MS Access, my advice is not to use the Single type (this goes for the Single type in Delphi as well in my opinion), use the Double type.

J.
0
 

Author Comment

by:ugross
ID: 6855682
hi,
thats what i thought, i now set the database field to type numeric, i now get the error that "" is not a valid integer value, i think my problem lies in these rows of code:
query1.fieldvalues['Grade'] := strtofloat(dbedit1.text);
  where the field grade is the value which will be like 4.75
0
Use Case: Protecting a Hybrid Cloud Infrastructure

Microsoft Azure is rapidly becoming the norm in dynamic IT environments. This document describes the challenges that organizations face when protecting data in a hybrid cloud IT environment and presents a use case to demonstrate how Acronis Backup protects all data.

 
LVL 4

Expert Comment

by:YodaMage
ID: 6855705
Because FieldValues always uses Variants, it may be a somewhat slower method of accessing data, than using a field’s native format (i.e., using a field’s AsXXX property), especially in applications that process large amounts of data.

query1.fieldbyname('Grade').AsFloat := strtofloat(dbedit1.text);
0
 
LVL 4

Expert Comment

by:YodaMage
ID: 6855723
You also have abug if dbeidt1.text is blank. You need something like

if (dbedit1.text = '') then dbedit1.text:= '0.00';
0
 
LVL 4

Expert Comment

by:jsweby
ID: 6855730
Yes, what you're getting is an error in the conversion of a blank edit box to a Float.
0
 

Author Comment

by:ugross
ID: 6856206
hi,
sorry for keepin' u waiting
i tried:
query1.fieldbyname('Grade').AsFloat := strtofloat(dbedit1.text);

but now im getting operator or semikoölon missing, thx
0
 
LVL 4

Expert Comment

by:jsweby
ID: 6856213
If you have typed it in Delphi as you have typed it in here, then the line above should cause no problems.

J.
0
 

Author Comment

by:ugross
ID: 6856263
hi, sorry entered the if..then code but error msg appears again and again (tried different positions already), thx
0
 
LVL 4

Expert Comment

by:jsweby
ID: 6856296
The Query component is called Query1 and the Edit box is called DBEdit1, right? Can you give us the form code?

J.
0
 

Author Comment

by:ugross
ID: 6856363
hi, here it is

procedure TForm1.BitBtn5Click(Sender: TObject);
begin
try
       edit1.text := intToStr(StrToInt(dbcombobox3.text) + StrToInt(dbcombobox4.text));
edit1.text := floattostr(strtofloat(edit1.text) / strtofloat(edit2.text));
dbedit1.Text := floattostr(strtofloat(edit1.text));
query1.fieldbyname('Grade')AsFloat:= strtofloat(dbedit1.text);

except
       on econverterror do messagedlg('Please check the values',mtinformation, [mbok],0);
       end;
end;
end.

let the code for the if..then statement out of the code for the moment
0
 
LVL 4

Expert Comment

by:jsweby
ID: 6856401
OK. If your DBComboBoxes have their Style property set to csDropDownList, or anything other than csDropDown, then you cannot use the Text property of them. The Text property will return blank, which would explain why you are getting

'' is not a valid integer value

Either change the Style property to csDropDown or instead of reading the Text property, do the following:

Edit1.Text := IntToStr(StrToInt(DBComboBox3.Items[DBComboBox3.ItemIndex]) + StrToInt(DBComboBox4.Items[DBComboBox4.ItemIndex]));

J.
0
 

Author Comment

by:ugross
ID: 6856538
sorry,
first checked how the combos r set, they r all csdropdown, then replaced my code by yours for the edit1....statement but th eprob reminas im still getting the error operator or semikolon missing
0
 
LVL 4

Expert Comment

by:jsweby
ID: 6856544
When you get the error, it gives you a line number, what is the code for that line?
0
 

Author Comment

by:ugross
ID: 6856561
the line is


query1.fieldbyname('Grade')asfloat:= strtofloat(dbedit1.text);
0
 
LVL 4

Accepted Solution

by:
jsweby earned 50 total points
ID: 6856569
GOT IT!

I finally spotted it, there's no point between the fieldname and the AsString property:

query1.fieldbyname('Grade')AsFloat:= strtofloat(dbedit1.text);

should be

query1.fieldbyname('Grade').AsFloat:= strtofloat(dbedit1.text);

Note the extra point between ('Grade') and AsFloat

J.
0
 

Author Comment

by:ugross
ID: 6856580
aaaaaaaaaaaaaaaaaaaaaaahhhhhhhhhhhhhhhhhhhhhhhhh

thank u very much
0
 
LVL 4

Expert Comment

by:YodaMage
ID: 6856593
I gave that answer about 12 comments ago.
0
 
LVL 3

Expert Comment

by:Rem
ID: 6856842
Yodamage should have had the points for this one.

When participating, play by the rules.
0
 

Author Comment

by:ugross
ID: 6856852
ok, thx
hi yodamage i wiull put in a question fo ru with a similiar name, same points pls grab it
0

Featured Post

Is Your AD Toolbox Looking More Like a Toybox?

Managing Active Directory can get complicated.  Often, the native tools for managing AD are just not up to the task.  The largest Active Directory installations in the world have relied on one tool to manage their day-to-day administration tasks: Hyena. Start your trial today.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

A lot of questions regard threads in Delphi.   One of the more specific questions is how to show progress of the thread.   Updating a progressbar from inside a thread is a mistake. A solution to this would be to send a synchronized message to the…
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…
Email security requires an ever evolving service that stays up to date with counter-evolving threats. The Email Laundry perform Research and Development to ensure their email security service evolves faster than cyber criminals. We apply our Threat…
A short tutorial showing how to set up an email signature in Outlook on the Web (previously known as OWA). For free email signatures designs, visit https://www.mail-signatures.com/articles/signature-templates/?sts=6651 If you want to manage em…

772 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