pascal 怎样以循环的形式 读取txt文件中的数据放到字符串中呢？请给出具体程序。

TXT中的数据??是数么?
要是数的话,是这样的:
var
k:integer;
s1,s:string;
begin
assign(input,'aa.txt');
reset(input);
s:='';
repeat
readln(k);
str(k,s1);
s:=s+s1;
until eof;
writeln(s);
close(input);
end.
如果读入的也是字符或者字符串,那么程序是这样的:
var
s1,s:string;
begin
assign(input,'aa.txt');
reset(input);
s:='';
repeat
readln(s1);
s:=s+s1;
until eof;
writeln(s);
close(input);
end.
其实原理都一样,只是在操作上有点区别,这两个程序读的都是跟PAS在同一目录下的名为'aa.txt'的文件中的数据,如果需要读入的TXT文件名为其他,则直接将程序中的'aa.txt'改为需要的名字就OK了~~~~~~~~~~

while not eof(t) do
begin
inc(i);
read(a[i]);
end;
eof()是判断文件是否结束
如果只有一行的话，可以换成eoln(),两者返回的值都是布尔型
a是char型数组，也可换成字符串类型
t是文件类型