请高手指教！有关文件存储问题？？？

Question

自己定义一个结构，用这个结构来存储文件比如：
type
  FMyBmp = packed record //图片格式
    ...
  end;  FMySelf = packed record //存储格式
    Str : string;
    m_bmp : FMyBmp;
  end;

Answer 1

type
  PData = ^TData;
  TData = record
    P: PChar;
    S: PChar;
  end;procedure Save(const Value: PData);
begin
  with TFileStream.Create('c:\test.dat', fmCreate) do
  try
    Write(P^, StrLen(Value^.P) + StrLen(Value^.S));
  finally
    Free;
  end;
end;procedure TForm1.Button1OnClick(Sender: TObject);
var
  Value: PData;
  Image: TFileStream;
begin
  Image := TFileStream.create('c:\test.gif', fmRead);//fmread按是不是
  GetMem(Value^.P, image.Size);
  Image.Read(Value^.P^, Image.Size);
  Value^.S := 'aaaaaaaaaaaaaaaaaaaaa';
  Save(Value);
  Dispose(Value);
  Image.Free;
end;随手写的，你试试吧。

Answer 2

procedure Save(const Value: PData);
begin
  with TFileStream.Create('c:\test.dat', fmCreate) do
  try
    Write(Value^, StrLen(Value^.P) + StrLen(Value^.S));
  finally
    Free;
  end;
end;

Answer 3

看看com中的结构化存储吧。
相关书籍潘爱民的《COM原理与应用》

Answer 4

或者直接使用数据库也可，推荐使用tinydb控件