|
楼主 |
发表于 2010-1-9 10:56:35
|
显示全部楼层
找个object pascal语言的教程都有点困难了,读写文本的操作在网上居然搜了半天
lazaurs 对中文支持较差,默认保存utf8码,保存过的GB码文件还是可以正常读出,最大的困扰是编辑器内不能打入中文却能复制进中文。。。MGC系统默认GB码,所以很可能终端输出乱码。
Var
textf:TextFile; //定义文件变量textf
F : Textfile;
str:String;
S:String;
i:Integer;
begin
AssignFile(textf,'./File.txt'); //将文件变量textf与当前目录中的“file.txt"文件关联
Rewrite(textf); //创建文件或打开已存在的文件进行覆盖
for i:=1 to 5 do
begin
S:='This is Line#';
writeln(textf,s,i);
end;
AssignFile(F,'./read.txt');
Reset(F);
Readln(F,str);
writeln('用窗口模式',str);
Closefile(F);
CloseFile(textf); //关闭已打开的文件textf
end.
[ 本帖最后由 haulm 于 2010-1-9 11:17 编辑 ] |
|