API函数LZCopy()复制文件出错

Question

 
不知道是没有读取源文件，还是没有写入目标文件，复制完的文件大小0k

Answer 1

你是以只读打开了fromfile文件，但没有读出数据；然后以只写打开了tofile也没有写入文件。所以你的文本大小当然是0啦。
一个是读打开，一个写打开而已，但没有进行读写操作。  记得没错的话应该就是这个情况。

Answer 2

那数据的读写操作应该用什么API函数？ 要求是坚决不用内存和文件流复制

Answer 3

Read
从文件读出一个或多个值到一个或多个变量。Readln
在文本文件中执行Read操作并跳至下一行行首。Write
向文件写入一个或多个值。Writeln
在文本文件中执行Write操作然后写入一个行结束（end-of-line）标记。var
bat : textfile;
s : string;
begin
assignfile(bat,'c:\123123.bat');
reset(bat);
readln(bat,s);
memo1.Lines.Add(s);
closefile(bat);
end;
========================================
var
bat : textfile;
begin
assignfile(bat, 'c:\123.txt'); 
rewrite(bat);
writeln(bat, '1111111111111111');
closefile(bat); //关闭文件
end;