您所在位置：主题：pascal 的新手问题
miaaa
[专家分：0] 发布于 2007-09-14 19:46:00
我是pascal 的新手阿
以下有多道问题都解决不了
希望各位大大能够帮忙一下
Var textfile : Text;
name, bb : String;
Begin
Writeln('Enter the file name '+
+'(with its full path) of the text file:');
readln(name);
Assign(textfile, bb + '.txt');
Reset(textfile);
Repeat
Readln(textfile,bb);
Writeln(bb);
Until Eof(textfile);
Close(textfile);
Readln;
End.
我用这种方法去阅读txt档 正确吗??
而且我应该怎样把txt档阅读了的string换成char?
谢谢各位了
以下有多道问题都解决不了
希望各位大大能够帮忙一下
Var textfile : Text;
name, bb : String;
Begin
Writeln('Enter the file name '+
+'(with its full path) of the text file:');
readln(name);
Assign(textfile, bb + '.txt');
Reset(textfile);
Repeat
Readln(textfile,bb);
Writeln(bb);
Until Eof(textfile);
Close(textfile);
Readln;
End.
我用这种方法去阅读txt档 正确吗??
而且我应该怎样把txt档阅读了的string换成char?
谢谢各位了
