大侠们：请看我的这段程序有什么不对地方吗？(关于读文件的)

Question

没什么问题，不过这种方式比较落后了，建议用TFileStream或TMemoryStream，他们都支持二进制文件，如果要对文本文件操作，可以用TStringList类，很方便的！

Answer 1

大概用的着的地方：
  fnewlog := TFileStream.Create(outfileName, fmCreate);
  flog := TFileStream.Create(infileName.Text, fmOpenRead);
//下一行：
  buf[0] := #13; buf[1] := #10;
  flog.Position 
  flog.size
    fnewlog.Write(yourstr, length(yourstr));
记得要：yourstr:=yourstr+#
  Application.ProcessMessages;
还记得要：
  flog.free;

Answer 2

//打开一个word文件：
procedure Tfrmdyqk1.BitBtn2Click(Sender: TObject);
begin
  if Opendialog1.execute then
     begin
        OleContainer1.CreateObjectFromFile(OpenDialog1.FileName,false);
        Olecontainer1.Doverb(ovShow);
       // OleContainer1.Run;
     end;
end;//保存一个word文件：
procedure Tfrmdyqk1.BitBtn3Click(Sender: TObject);
var  ms:TMemoryStream;
begin
  ms:= TMemoryStream.create;
  OleContainer1.SaveToStream (ms);
  ms.Position := 0;  Query1.close;
  Query1.sql.clear;
  Query1.sql.text:='select *  from oadbo.bw_qwb';
  Query1.open;
  Query1.append;
  Query1.fieldbyname('wjid').value:=77777777 ;
  Query1.fieldbyname('wjdid').value:=7;
  Query1.fieldbyname('kzm').value:='txt';
  TBlobField(Query1.fieldbyname('qw')).loadfromstream(ms);
  ms.free;
  Query1.post;
  //Query1.applyupdates;
  Query1.close;
end;

Answer 3

呵呵，老兄，读二进制文件要这样
var
  BinaryFile:File;
  Buffer:array[1..64] of byte;
begin
  Assign(BinaryFile,'somefile.dat');
  Reset(BinaryFile);
  BlockRead(BinaryFile,Buffer,1);

Answer 4

for j:=0 to 0 do      //只做一次，又要用begin……  end，还有什么简单办法？有什么用啊？
呵呵
  

Answer 5

标准 PASCAL 读法var buf:array[1..8192]of char;
nr,nw:integer;
f1,f2:file;
begin
assignfile(f1,'aaa.aaa');
assignfile(f1,'bbb.bbb');
reset(f1,1);
rewrite(f2,1);repeat
blockreaf(f1,buf,sizeof(buf),nr);
blockwrite(f2,buf,nr,nw);
until (nr<>nw) or (mr=0);closefile(f1);
closefile(f2);
end;

Answer 6

谢谢kryso(白河愁)及各位大侠，我只能在网吧上网，回去试过之后给分！！！