关于文件的读取(50)

B

bearyan

Unregistered / Unconfirmed
GUEST, unregistred user!
请帮忙分析一下,我有一个35K的数据文件,现在需要发送到端口进行打印,有以下三段程序,出现了三个不同的效果:1、Winexec('Command.com /C copy C:/5530SC prn',SW_Hide);------>>>>此处运行后,发送到端口的数据文件大小仅为13.2K2、var TF : TextFile;
STR : String;……………… AssignFile(TF,'5530SC');
Reset(TF);
while Not Eof(TF)do
begin
Readln(TF,STR);
end;
CloseFile(TF);………………(这里是发送端口的程序段,略……)------>>>>此处运行后,发送端口的数据文件大小为8.3K(由于读取的STR字符串为8.3K)3、建立一个5530.bat文件(copy C:/5530SC prn),然后在delphi中 Winexec('5530.bat',SW_Show);------>>>>此处运行后,发送端口的数据文件大小就是35K(是正常的)请问为什么会出现这种现象(望能详细解释一下)???如何解决???
 
F

foam

Unregistered / Unconfirmed
GUEST, unregistred user!
2: while Not Eof(TF)do
begin
Readln(TF,STR);
// 只保留最后一行内容在STR中。 end;
 

草原骏马

Unregistered / Unconfirmed
GUEST, unregistred user!
2、var TF : TextFile;
STR : String;
s: string;……………… AssignFile(TF,'5530SC');
Reset(TF);
while Not Eof(TF)do
begin
Readln(TF,STR);
s := s + STR;
end;
CloseFile(TF);print s;
 
顶部