给一个自用的函数,删除换行和每行的空格。如果最后一行需要换行:
S:=DeleteTextSpace(S)#13#10;
函数代码:
function DeleteTextSpace(S:string):string; // 删除字符串空格换行
var S1:string;
i:integer;
MyList:TStringList;
begin
Result := '';
S1:='';
MyList:=TStringList.Create;
MyList.Text:=S;
for i:=MyList.Count-1 downto 0 do
S1:=S1+Trim(MyList.Strings[i]);
Result := Trim(S1);
MyList.Free;
end;
S:=DeleteTextSpace(S)#13#10;
函数代码:
function DeleteTextSpace(S:string):string; // 删除字符串空格换行
var S1:string;
i:integer;
MyList:TStringList;
begin
Result := '';
S1:='';
MyList:=TStringList.Create;
MyList.Text:=S;
for i:=MyList.Count-1 downto 0 do
S1:=S1+Trim(MyList.Strings[i]);
Result := Trim(S1);
MyList.Free;
end;
把WORD里的内容当成一个string来统计里面换行符的个数吗?