Delphi字符串操作有关问题
Delphi字符串操作问题
读取txt文件时
while not eof(F) do begin
Readln(F, str);
Result := Result + str + #13#10;//这里到最后会多加一个换行符
end;
如上，多加的那个换行符怎么去掉？
------解决思路----------------------
读取txt文件时
while not eof(F) do begin
Readln(F, str);
Result := Result + str + #13#10;//这里到最后会多加一个换行符
end;
如上，多加的那个换行符怎么去掉？
------解决思路----------------------
var
requireAppend: Boolean;
requireAppend := False;
while not eof(F) do begin
if requireAppend then
Result := Result + #13#10
else
requireAppend := True;
Readln(F, str);
Result := Result + str;
end;