文件内容存储

Question

我用流读取了一个文件的内容,想存到一个结构中的特定变量中,应该怎么用变量存储

Answer 1

procedure TForm1.Button3Click(Sender: TObject);
var
  ms1, ms2 : TStream;
begin
  ms1 := TResourceStream.Create(HInstance, 'TFORM1', RT_RCDATA);
  
  ms1.Position := 0;  ms2 := TMemoryStream.Create;
  ObjectBinaryToText(ms1, ms2);
  ms2.Position := 0;
  Memo1.Lines.LoadFromStream(ms2);  ms2.Free;
  ms1.Free;
end;希望对你有所帮助

Answer 2

比如有个结构
type
  FileData=Record
    ...
    sFileContent:array of char;//这种变量类型应该可以存储吧
end;
我想在sFileContent中存储某一个文件的内容,先用流读出文件后再赋给sFileContent,然后我想把这个结构再存在一个自定义的文件里面,就是自己的这种格式,具体应该怎么做,帮帮忙呀

Answer 3

PFileData=^FileData
var
  p:PFileData; 
  FFile: TFileStream;   
FFile := TFileStream.Create(YourFilePath, fmOpenRead);
    New(P);
    Ffile.ReadBuffer(P^, Sizeof(FileData));
    .....
    Dispose(ppInfo);