求个openfile 与 readfile函数在delphi下 简单使用实例

Question

用openfile打开某个文件，用readfile读取这个文件

Answer 1

各位大哥帮下啊 ，delphi里面的英文文档看不懂···

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var
  fh:hfile;
  ofs:TOFStruct;
  x:  cardinal;
  ch: array[0..100] of char ;
begin
  fh:=openfile('d:\tt.txt',ofs,OF_READ);
  readfile(fh,ch,ofs.cBytes,x,nil);
  ch[x]:=#0;
  closehandle(fh);
  showmessage(ch);
end;

Answer 3

fh:=openfile('d:\tt.txt',ofs,OF_READ);如果通过opendialog1选定打开一个swf格式的文件该怎么写

Answer 4

if opendialog1.Execute then begin
fh:=openfile(opendialog1.filename,ofs,OF_READ);
...
end; 记不太清楚，没测试不管是什么格式的文件，在openfile里第一个参数反正是文件名

Answer 5

fh:=openfile(opendialog1.filename,ofs,OF_READ);  这里面些opendialog1.filename编译通不过~~哪里出错了

Answer 6

fh:=openfile(PCHAR(opendialog1.filename),ofs,OF_READ);