Memo1->Lines->Clear();
Memo1->Lines->LoadFromFile("c:\\test.txt");
AnsiString sText = Memo1->Text;
if(sText.AnsiPos("\n"))
  ShowMessage("有換行!");
if(sText.AnsiPos("\t"))
  ShowMessage("有Tab!");

引言: 謝謝您的答覆 可是我的程式還是不能判斷 if(temp[i] == '\n') 還是說要使用你寫的語法 if(sText.AnsiPos("\n")) 才可以？

wena：bass15大大講的完全沒問題不知道你的問題是？temp[i] 是？
依bass15大大延伸一下範例：
Memo1->Lines->Clear();
Memo1->Lines->LoadFromFile("c:\\test.txt");
AnsiString sText = Memo1->Text;
int j=0,k=0;
for (int i=1;i <= sText.Length(); i  ) { // AnsiString從1開始
  if (sText[i]=='\n')
    j  ;
  if (sText[i]=='\t')
    k  ;
}
ShowMessage("有" IntToStr(j) "個換行!");
ShowMessage("有" IntToStr(k) "個Tab!");
請參考！

for(i=RichEdit1->Text.Length() ; i>1 ; i--)
     {
       if(temp[i] == '\n')
       {
         temp.Delete(i,1) ;
       }
     }

 
AnsiString temp = RichEdit1->Text;
for(i=temp.Length() ; i>=1 ; i--)
{
  if(temp[i] == '\n' || temp[i] == '\r')
  {
    temp.Delete(i,1) ;
  }
}
RichEdit1->Text = temp;    

引言:

插花一下bass15大大勿見怪！
在Ritchedit裡面換行會寫作 \r\n
AnsiString temp = RichEdit1->Text;
for(i=temp.Length() ; i>=1 ; i--)  {
  if(temp[i] == '\r')  { //於RichEdit1上同時處理\r\n
    RichEdit1->SelStart = i-1;
    RichEdit1->SelLength = 2; //\r\n視兩字元
    RichEdit1->SelText="";
  }
}
// RichEdit1->Text = temp;    

temp = StringReplace(temp, "\r\n", " ", TReplaceFlags()<