如何创建一个结构化存储的文件？

Question

想在windows平台的一个目录里面建一个新文件, 假设文件名为vfs, 然后往这个vfs里面写若干个字符ff或者00。谢谢大家指教。

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
  handle: THandle;
  str: String;
  buffer: array [0..255] of Char;
  i: Integer;
begin
  ZeroMemory(@buffer, SizeOf(buffer));
  str := 'My file!';
  for i := 0 to Length(str) -1 do
  buffer[i] := str[i + 1];
  handle := FileCreate('c:\a.txt', fmCreate);
  FileWrite(handle, buffer, Length(str));
  FileRead(handle,buffer,255);
  ShowMessage(buffer);
  FileClose(handle);
end;

Answer 2

function info_out(txt_excel:integer):string;
F:textfile;
begin
AssignFile(F, FileName);// 将文件名和文件指针联系起来。
ReWrite(F);
writeln(F,'ff');
writeln(F,'00');
closefile(F);
end;