Turbo Pascal v.7 Records.

Hi Hypo!
Further to the records question I put to you earlier in January. I have in my record declarations data type 'real.' Using the writeln I enter the headings across the page adding the positions.

When writing to file the real values are in indexed form but positions are pushed out. When I add field widths to the real values I cannot compile the two together, can you advise me please.

Best Wishes..........Chrisbee.
chrisbeeAsked:
Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

HypoCommented:
Ok, In the example you gave me before... You used :6:2 at one place where you use Real variables, but only :6 at another place in the code. Try changing that to :6:2 at all places.

Other than that I need to see a pice of your code before I can help you more.
0

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
chrisbeeAuthor Commented:
Hi Hypo!
thanks for the help, Do I understand correct by thinking that the first number is the field width and the second number- the amount of decimal places- I shall apply that thought.

thanks again.

Best wishes..........chrisbee.
0
HypoCommented:
yes, you're almost right about that...
But the first number is the MINIMUM field width, and the second number is the number of decimals.
0
chrisbeeAuthor Commented:
Hi Hypo!

Thanks for the help on this question it works well, however another question awaits you in 'EE' from chrisbee.

Best wishes............chrisbee.
0
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Pascal

From novice to tech pro — start learning today.