怎样将如下纪录型变量写到文件里头去？还有有没有比较简单的方法求出纪录的长度？(20分)

我

我是坏蛋

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-27

• #1

type
PForumInforStruct = ^TForumInforStruct;
TForumInforStruct = record
Column : string;
Date : string;
title : string;
Author : string;
IDNum : string;
Content : string;
end;

var

ForumInforStruct: TForumInforStruct;

{...赋值...}

AssignFile(ToF, FileName);
Rewrite(ToF, 1);
BlockWrite(ToF, ForumInforStruct, len);
CloseFile(ToF);

{..？？？..}

{ 还有有没有比较简单的方法求出这个纪录的长度？ }

 

W

wolf_cyj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-27

• #2

记录型长度：sizeof(TForumInforStruct);
写可以这样：Stream.WriteBuffer(PForumInforStruct，sizeof(TForumInforStruct))；、
Stream.SaveToFile(文件)

 

我

我是坏蛋

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-27

• #3

记录型长度：sizeof(TForumInforStruct);？
可是TForumInforStruct个元素再赋值之前事不定长的啊！

 

O

only you

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-27

• #4

改用下列声明
TForumInforStruct = record
Column : string[255];
Date : string[255];
title : string[255];
Author : string[255];
IDNum : string[255];
Content : string[255];
end;

 

H

HORNEY

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-07

• #5

你要写文件的话，不能直接用STRING像这样：
Str:String
File.Write(PChar(Str)^,Size);

 

H

HORNEY

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-07

• #6

因为它实际上是一个指向结构体的指针。

 

T

tseug

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-07

• #7

只要把String换成ShortString就可以用SizeOf来获取长度了, 也可以直接写文件了

 

H

HORNEY

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-08

• #8

但是万一STRING长度超过255那就。。。。

 

B

bigroute

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-08

• #9

wolf_cyj, 是正确办法。
求记录数可以用流的长度余以记录类型的长度。

 

我

我是坏蛋

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-31

• #10

多人接受答案了。