请教 fileread 函数的用法

Question

fileread 函数该怎么样用，最好能举个例子？
特别是关于该函数的参数 Buffer，该如何定义！

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
  szBuffer: array[0..10] of char;
  sPascal: string;
  i: longint;
  hInput, hOutput: THandle;
begin
  hInput := FileOpen('d:\temp\temp5\AAA.txt', 0);
  hOutput := FileCreate('d:\temp\temp5\BBB.txt');
  i := FileRead(hInput, szBuffer, 10);
  sPascal := '1234567890';
  StrPCopy(szBuffer, sPascal);
  i := FileWrite(hOutput, szBuffer, 10);
  FileClose(hInput);
  FileClose(hOutput);
end;
参考