请教 fileread 函数的用法

[abai]

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

[abai]

up

[jjpan]

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;
参考