var myfile:Textfile; s:string; i,j:integer; strlist:Tstringlist; if OpenDialog2.Execute() then begin Assignfile(myfile,OpenDialog2.filename); Reset(myfile); Assignfile(myfile,OpenDialog2.filename); Reset(myfile); while not eof(myfile) do begin readln(myfile,s); strlist:=SplitString(s,','); s:=StringReplace(s,#10#13,'',[rfReplaceAll]); end;end;麻烦大家帮我看看读取到有换行符的地方就自动换成两行读取了,看看有没有办法能把换行符去掉,谢谢各位!还有我在我的笔记里上传了附件了为何在我看不到附件呢?