For i := 1 to Length(B_News_Text) do if (Ord(B_News_Text[i]) <> $0D) or (Ord(B_News_Text[i]) <> $0A) then tmpStr:= tmpStr B_News_Text[i]; 這樣寫行不通~~麻煩各位先進指教~~感恩~~

试试这个： For i := 1 to Length(B_News_Text) do if (Ord(B_News_Text[i]) <> $0D) or (Ord(B_News_Text[i]) <> $0A) then tmpStr:= tmpStr B_News_Text[i]; if (length(B_News_Text)>=2) and (copy(B_News_Text,length(B_News_Text)-1,2)=#13#10) then //当检测到B_News_Text长度大于２，且右边以#13#10结束,则取B_News_Text的前面字串。 tmpStr:=copy(B_News_Text,1,length(B_News_Text)-2) else //反之，全部待入。 tmpStr:=B_News_Text;

tmpStr := StringReplace(B_News_Text, #13#10, '', [rfReplaceAll]) ; 

Hi aresu,    James 大大的方法最快最省事，你的方法也可以，但有一些的錯誤，幫你更正如下： 必需將 OR 更改為 And

  For i := 1 to Length(B_News_Text) do
  if (Ord(B_News_Text[i]) <> $0D) and (Ord(B_News_Text[i]) <> $0A) then
  tmpStr:= tmpStr   B_News_Text[i];

發表人 -

------
Fishman

我也認為James 大大的方法最快最省事,以下純粹做語法練習

 
  tmpStr := '';
  For i := 1 to Length(B_News_Text) do
    if not(B_News_Text[I]) in [#$0A, #$0D]) then
      tmpStr:= tmpStr   B_News_Text[I];

更正     if not(B_News_Text[I] in [#$0A, #$0D]) then

感謝各位的解答~~原來有這麼好的方法~~讓我又學到一招~~感恩~~ and原來我之前寫的or要換成and啊~~我真是豬頭~~^^" 同樣感謝點出我錯誤的大大~~我知道錯在哪了~~^^