如何把一个 结构（记录）的内容存成文件(50分)

白

白河愁

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-25

• #1

是内容，不是地址。
比如
type aaa=record
a,bchar;
c:dword;
end;

var bbb:aaa;
ff:tfilestream;
begin
ff.write(bbb,sizeof(bbb);
end;

这样只能吧 pchar 的内存地址写进去。但 dword的内容就写进去了

 

A

apw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-25

• #2

按字符串存吧。
var bbb:aaa;
ssTStringList;
begin
ss := TStringList.Create;
try
ss.Values['a'] := aaa.a;
ss.Values['b'] := aaa.b;
ss.Values['c'] := IntToStr(aaa.c);
ss.SaveToFile('aaaaaa');
finally
ss.Free;
end;
end;

 

白

白河愁

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-25

• #3

我只想存结构

 

N

NeutronDelphi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-25

• #4

原因：
A,BChar都是指针，即使你把PChar替换成为string也是一样的。
有一个很简单的解决办法，就是A:array[0..256] of Char;或者A:string[256]
就可以了。

 

J

jlutt-sadan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-25

• #5

FileWrite(AFileHandle,bbb,sizeof(aaa));

 

H

Highpeak

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-25

• #6

type
Trecd =record
code:integer;
Namechar;
end;
var
f:file of Trecd;
v:Trecd;
begin
v.code :=1234;
v.Name :='asdfasd';
assignFile(f,'C:/tmp.tmp');
reset(f);
v.Name :='';
closefile(f);
end;

 

山

山花灿烂时

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-31

• #7

我觉得NeutronDelphi的方法可行

 

白

白河愁

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-02

• #8

算了，散分