We value your feedback.
Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
Course Of The Month
Become a Premium Member and unlock a new, free course in leading technologies each month.
Solved
Record alignment, Delphi 4 vs Delphi 5
Posted on 2000-02-14
I wrote to a file in Delphi 4 using the following record structure:
TRouteFileHeader = record // 40 in Delphi 5, 32 in Delphi 4
HRouteId: string[8]; // 9
HRouteVersion: string[5]; // 6
HOperationCount: Integer; // 4
HLoadDate: TDateTime; // 8
HFileVersion: string[2]; // 3
end;
I recompiled in Delphi 5 and tried to read the same file. The first three fields were okay, but the last two were not. When I did a sizeof on the record, it was 40 bytes. In Delphi 4 it was only 32 bytes (which seems about right).
I think this may have something to do with aligning records on 32 bit boundries. I tried to change that setting, and it did make a difference. I couldn't get the Delphi 5 program to correctly read the file though.
My question is, is there a setting in Delphi 5 that will allow it to correctly read this file as written in Delphi 4?
TRouteFileHeader = record // 40 in Delphi 5, 32 in Delphi 4
HRouteId: string[8]; // 9
HRouteVersion: string[5]; // 6
HOperationCount: Integer; // 4
HLoadDate: TDateTime; // 8
HFileVersion: string[2]; // 3
end;
I recompiled in Delphi 5 and tried to read the same file. The first three fields were okay, but the last two were not. When I did a sizeof on the record, it was 40 bytes. In Delphi 4 it was only 32 bytes (which seems about right).
I think this may have something to do with aligning records on 32 bit boundries. I tried to change that setting, and it did make a difference. I couldn't get the Delphi 5 program to correctly read the file though.
My question is, is there a setting in Delphi 5 that will allow it to correctly read this file as written in Delphi 4?
[X]
Welcome to Experts Exchange
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
- Help others & share knowledge
- Earn cash & points
- Learn & ask questions
3-
3
6 Comments
The answer is no, there is not setting (sorry). You need to declare your record like this if the D4 record size was 32:
TRouteFileHeader = packed record
HRouteId: string[8];
Dummy1 : Byte;
HRouteVersion: string[5];
Dummy2 : Byte;
HOperationCount: Integer;
HLoadDate: TDateTime;
HFileVersion: string[2];
end;
In general, any record that you write to a file should be declared as 'packed'
Cheers,
Raymond.
TRouteFileHeader = packed record
HRouteId: string[8];
Dummy1 : Byte;
HRouteVersion: string[5];
Dummy2 : Byte;
HOperationCount: Integer;
HLoadDate: TDateTime;
HFileVersion: string[2];
end;
In general, any record that you write to a file should be declared as 'packed'
Cheers,
Raymond.
Your welcome.
As a general rule experts here do not mind if you verify an answer works for you before grading.
Let me know how it goes.
Cheers,
Raymond.
As a general rule experts here do not mind if you verify an answer works for you before grading.
Let me know how it goes.
Cheers,
Raymond.
Raymond,
I tried it today and didn't work. I think using a packed record made things worse. I didn't get a chance to document exactly what I got, but it didn't look too good. I still wonder what they changed in Delphi 5 to cause this problem.
Regards,
Bill
I tried it today and didn't work. I think using a packed record made things worse. I didn't get a chance to document exactly what I got, but it didn't look too good. I still wonder what they changed in Delphi 5 to cause this problem.
Regards,
Bill
I found the definitive guide in section 18-7 of the D3 Object Pascal Guide. According to that, the record should look like this (sorry for the incorrect initial answer):
TRouteFileHeader = packed record
HRouteId: string[8];
HRouteVersion: string[5];
Dummy1 : Byte;
HOperationCount: Integer;
HLoadDate: TDateTime;
HFileVersion: string[2];
Dummy2 : Byte;
end;
I don't think there were changes between D3 and D4, though there have been for D4 to D5.
Cheers,
Raymond.
TRouteFileHeader = packed record
HRouteId: string[8];
HRouteVersion: string[5];
Dummy1 : Byte;
HOperationCount: Integer;
HLoadDate: TDateTime;
HFileVersion: string[2];
Dummy2 : Byte;
end;
I don't think there were changes between D3 and D4, though there have been for D4 to D5.
Cheers,
Raymond.
Featured Post
![[Live Webinar] The Cloud Skills Gap](https://filedb.experts-exchange.com/files/public/2017/5/29/3249c5dc-214e-4f8f-afab-ef354630e19f.png)
As Cloud technologies come of age, business leaders grapple with the impact it has on their team's skills and the gap associated with the use of a cloud platform.
Join experts from 451 Research and Concerto Cloud Services on July 27th where we will examine fact and fiction.
Question has a verified solution.
If you are experiencing a similar issue, please ask a related question
This article explains how to create forms/units independent of other forms/units object names in a delphi project.
Have you ever created a form for user input in a Delphi project and then had the need to have that same form in a other Delphi proj…
Introduction
I have seen many questions in this Delphi topic area where queries in threads are needed or suggested. I know bumped into a similar need.
This article will address some of the concepts when dealing with a multithreaded delphi database…
In this brief tutorial Pawel from AdRem Software explains how you can quickly find out which services are running on your network, or what are the IP addresses of servers responsible for each service. Software used is freeware NetCrunch Tools (https…
Do you want to know how to make a graph with Microsoft Access? First, create a query with the data for the chart. Then make a blank form and add a chart control. This video also shows how to change what data is displayed on the graph as well as form…
Suggested Courses
Earn Certification
HTML5 Specialist - Certification
Free withPremium
Course of the Month5 days, 7 hours left to enroll
Earn Certification
CompTIA IT Fundamentals
$49.00$44.10
627 members asked questions and received personalized solutions in the past 7 days.
Join the community of 500,000 technology professionals and ask your questions.