会者不难，很容易的200分（急）(200分)

给定一个文本文件，其中含有硬回车，去掉段落中的硬回车，
但是保留段落和段落间的硬回车

文本文件： http://www.newhero.com.cn/abc.txt
给个思路也可以。
我一碰到这种问题就头痛，也懒的去想。
回车的转义符为 ‘/r’.......

段落间有什么标识吗？
你没说清楚！给的网址上不去！

判断下一行第一个字符，是空格就保留这一行的回车，不然不保留。

懒虫！！

嘿嘿，懒是懒了点，这方面的问题我比较敏感，基础太差！

var ends:string;//结果
i,j:integer;
s:string;
begin
i:=0;
memo1.Lines.LoadFromFile(.....)
j:=memo1.lines.count-1;
while i<=j do
begin
s:=memo1.lines;
m:=length(s);
if s[m)='/r' then
if (memo1.lines[i+1]<>'')and(i<>j)then
s=copy(s,1,length(s)-a);
ends:=ends+s;
inc(i);
end;
end;

var
Fi, fo: textfile;
S1, S2,sign: string;
begin
AssignFile(fi, 'abc.txt');
AssignFile(fo, 'out.txt');

Reset(fi);
Rewrite(fo);

Readln(fi, s1);
while not (Eof(fi)) do
begin
Readln(fi, s2);
sign:=Copy(S2,1,4);

if (sign=' ') or (sign='　　') or s2='' then //前面是西文空格，后面是中文空格
Writeln(fo,s1)
else
Write(fo,s1);

S1:=S2;
end;

Write(fo,s1);

CloseFile(fi);
CloseFile(fo);
end;

判断方法是看下一行开头是否有空格，如果有则认为是两段文本否则认为一段文本。
按这个方法最后一点有些问题你可以自已复制出来。

谢谢远帆、天真二位同仁。