文件内容处理问题(比较难呀,我只有25分了!)!

Question

var f1,f2:text;
s:string;
...assignfile(f1,'in');
reset(f1);
assignfile(f2,'out');
rewrite(f2);
repeat 
  read(f1,s);
  if (s <> '') then writeln(f2,s);
until (eof(f));

Answer 1

比如：readln(f,s)读入一行
1.如有空行则删除 即 Trim(s)='';
  -->不做处理
2.如有空格,并且空格在行的开头,删除空格,行内容向左移动!
  --> s = TrimLeft(s);
3.如空格在行的中间,让空格后的内容换行,并且处于行的开始部分! 即Pos(' ',s)>0
  --> 该位置插入#13#10回车换行符,位于开始部分仍然可采用2的办法 ,去除前导空格  --> 

Answer 2

我的想法有点类似leemingsong的。
我们可以利用memo将文件内容载入。
取其中某行。
再按你的算法进行操作。
可以将该行中的以空格进行分解。