救命啊，在线等，文本文件操作的问题

Question

在D7中，SetTextBuf怎么用？

Answer 1

uses Dialogs;
var  F, FTwo: System.TextFile;
  Ch: Char;
  Buf: array[1..4096] of Char;  { 4K buffer }
begin
  if OpenDialog1.Execute then begin
    AssignFile(F, OpenDialog1.FileName);
    { Larger buffer for faster reads }
    System.SetTextBuf(F, Buf);
    Reset(F);
    { Dump text file into another file }
    AssignFile(FTwo, 'WOOF.DOG'); 
    Rewrite(FTwo);
    while not Eof(f) do
    begin
      Read(F, Ch);      Write(FTwo, Ch);
    end;
    System.CloseFile(F);
    System.CloseFile(FTwo);
  end;
end;

Answer 2

谢了，帮助里的一段代码你复制过来了，呵呵其实我看到这段了，我问的是  CLIPBOARD的 SETTEXTBUF，不过我已经解决了