发信人: redfox (Z掉了几乎所有的版...), 信区: BorlandDev
标  题: Delphi编程 -- 3.12 使用readln()
发信站: 哈工大紫丁香 (2000年09月01日13:58:51 星期五), 站内信件

使用readln()从文件中读出超过255字符的字串 

Type

{use longest line you may encounter here}

TLine = Array [0..1024] of Char;

PLine = ^TLine;

Var

pBuf: PLine;

...

New( pBuf );

...

ReadLn( F, pBuf^ );

向文本文件后追加一行

var

filevar: textfile;

buf:string;

begin

assignfile(filevar,'txt.log');

append(filevar);

writeln(filevar,buf);

closefile(filevar);

end;


 

--
※ 来源:·哈工大紫丁香 bbs.hit.edu.cn·[FROM: 202.118.227.107]