(300分)求救高手:记录类型文件读取错误(300分)

lodgue · 2001-12-16

首先贴出元代码: unit Unit1; interface uses   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,   StdCtrls, Buttons,ShareTools; type   TTestStruct=record     aInt:integer;//4     bDouble:double;//8     cInt:integer;//4   end;   TForm1 = class(TForm)     SaveToFile: TButton;     ReadByRecord: TButton;     ReadByByte: TSpeedButton;     procedure SaveToFileClick(Sender: TObject);     procedure ReadByByteClick(Sender: TObject);     procedure ReadByRecordClick(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end; var   Form1: TForm1; implementation {$R *.DFM} const   FileName:string='/test.dat';   TrueFalse:array [0..1] of string=('False','True'); procedure SetTestStruct(var ts:TTestStruct); begin   ts.aInt:=100;   ts.bDouble:=3.14;   ts.cInt:=5; end; procedure SaveStructToFile(const ts:TTestStruct); var   hFile:THandle;   ExeDir,FullFileName:string; begin   ExeDir:=ExtractFileDir(ParamStr(0));   FullFileName:=ExeDir+FileName;   if not FileExists(FullFileName) then     hFile:=FileCreate(FullFileName)   else     hFile:=FileOpen(FullFileName,fmOpenReadWrite);   if hFile<=0 then Raise Exception.Create('打开文件出错');   try     FileSeek(hFile,0,2);     FileWrite(hFile,ts,SizeOf(ts));   finally     FileClose(hFile);   end; end; procedure TForm1.SaveToFileClick(Sender: TObject); var   ts:TTestStruct; begin   SetTestStruct(ts);   SaveStructToFile(ts); end; procedure TForm1.ReadByByteClick(Sender: TObject); var   hFile:THandle;   ExeDir,FullFileName:string;   aInt:integer;   bDouble:double;   cInt:integer; begin   ExeDir:=ExtractFileDir(ParamStr(0));   FullFileName:=ExeDir+FileName;   if FileExists(FullFileName) then begin     hFile:=FileOpen(FullFileName,fmOpenRead);     if hFile>0 then begin       try         FileRead(hFile,aInt,4);         FileSeek(hFile,4,1);         FileRead(hFile,bDouble,8);         FileSeek(hFile,8,1);         FileRead(hFile,cInt,4);       finally         FileClose(hFile);       end;     end;   end; end; procedure TForm1.ReadByRecordClick(Sender: TObject); var   hFile:THandle;   ExeDir,FullFileName:string;   ts:TTestStruct; begin   ExeDir:=ExtractFileDir(ParamStr(0));   FullFileName:=ExeDir+FileName;   if FileExists(FullFileName) then begin     hFile:=FileOpen(FullFileName,fmOpenRead);     if hFile>0 then begin       FileRead(hFile,ts,SizeOf(ts));     end;   end; end; end.

lodgue · 2001-12-16

问题:   我用安记录方式读取文件没问题(ReadByRecordClick): 1:  如果使用安字节方式读取出错(ReadByByteClick):   最后一个整形数(cInt)读出来为518(实际上为5)   why????????? 下面时生成的Test.Dat文件中的HEX Code: 00000000h  64 00 00 00 76 00 00 00 1F 85 EB 51 B8 1E 09 40; 00000010h  05 00 00 00 07 00 00 00 2 SizeOf(Double)=8,为什么在Test.Dat中占12个字节              (76 00 00 00 1F 85 EB 51 B8 1E 09 40). 3.为什么在最后要添加07 00 00 00 4. 如果将cInt去掉或加上dInt记录成员(假如=1)则结果分别为: cInt去掉 :   00000000h  64 00 00 00 76 00 00 00 1F 85 EB 51 B8 1E 09 40;   dInt加上

=1)   00000000h  64 00 00 00 76 00 00 00 1F 85 EB 51 B8 1E 09 40;   00000010h  05 00 00 00 01 00 00 00   why??

lodgue · 2001-12-16

人呢?

lodgue · 2001-12-18

我大概明白了: 这和Delphi的编译器指令有关{$A+}{$A-} {$A+} - 对齐没有使用Packed关键字的字段中的域(填充一些随机值) {$A-} - 不使用对齐保存数据.和使用Packed关键字描述的结果一样. 同样, 在Delphi的设置中可以进行设置.project/options/complier中Code Generation中的 aligned record fields

wlmmlw · 2001-12-18

一般都用上packed。

zyy04 · 2001-12-18

明白了就自己结束吧，结构的对齐方式有多种，不同的编译器是不同的。 目前的操作系统一般都要求对齐的。

lodgue · 2001-12-18

300分,丢了,丢了,可惜,可惜! 强烈建议,可以捡回分数的功能

liu-yb · 2001-12-18

Integer:为整型的定义，在不同的DELPHI版本中是不一样的，16位版本（如

ELPHI 1.0）的整型为即Smallint； 在32位版本(如

ELPHI3，DELPHI4，DELPHI5)的整型为Longint;DELPHI 2.0为16位和32位的过渡版本。 因我未用DELPHI6，不知其是多少位的定义。 关于对齐，可用以下方式定义避免： TTestStruct= packed record     aInt:Longint;//4     bDouble:double;//8     cInt:Longint;//4   end;

蒋劲刚 · 2001-12-18

你以前是学C的吧！ 在Delphi中，用f : file of byte; 用BLOCKREAD，BLOCKWRITE读写文件很方便，相关函数ASSIGNFILE，RESET，REWRITE 你看一下帮助，象你的这个程序，几句话就完了

iamcaca · 2001-12-27

太可怜了,写这么个简单东西居然用了这么多代码,而且还不好读

Tense · 2001-12-29

>>lodgue 其实你在使用C的思想来解决delphi的问题；

lodgue · 2002-01-06

哎,白送分了!

陈礼泉 · 2002-01-09

我也在做读写记录的程序,看了有所启发, lodgue你的分没有白送 不过我的分也不多,我也要分

(300分)求救高手:记录类型文件读取错误(300分)

lodgue

Unregistered / Unconfirmed

lodgue

Unregistered / Unconfirmed

lodgue

Unregistered / Unconfirmed

lodgue

Unregistered / Unconfirmed

wlmmlw

Unregistered / Unconfirmed

zyy04

Unregistered / Unconfirmed

lodgue

Unregistered / Unconfirmed

liu-yb

Unregistered / Unconfirmed

蒋劲刚

Unregistered / Unconfirmed

iamcaca

Unregistered / Unconfirmed

Tense

Unregistered / Unconfirmed

lodgue

Unregistered / Unconfirmed

陈礼泉

Unregistered / Unconfirmed

Similar threads