RichEdit1->PlainText = true;
    RichEdit1->Lines->LoadFromFile(Path);
      for(int i=0;iLines->Count; i  )
         {
           for(int j=0;jLines->Strings[i].Length();j  )
            {
             RichEdit1->Lines->Strings[i].SubString(i,1);                }             }

 MACHINE LANGUAGE IS THE BASIC LANGUAGE UNDERSTOOD BY THE COMPUTING 
      MACHINE.  MOST COMPUTERS HAVE REGISTERS IN THE CPU THAT ARE SIMILAR
      TO THE REGISTER IN THE DESK CALCULATOR.  THEY ARE CAKKED ACCUMULATORS
      BECAUSE THEY ARE USED TO ACCUMULATE THE INTERMEDIATE RESULTS.  THE CPU
      CAN BE TOLD TO LOAD A NUMBER INTO ITS ACCUMULATOR FROM A SPECIFIC CELL
      IN THE MEMORY, TO ADD, SUBTRACT, MULTIPLY, OR DIVIDE THE NUMBER IN THE
      ACCUMULATOR BY A NUMBER FROM MEMORY, OR TO STORE A NUMBER FROM THE 
      ACCUMULATOR INTO MEMORY.

void __fastcall TForm1::Button1Click(TObject *Sender)
{
 Memo1->Lines->LoadFromFile("test.txt");
 TStringList *sl=new TStringList;
 for (int i=0;iLines->Count ;i  )
 {
  AnsiString sz=Memo1->Lines->Strings[i];
  sl->CommaText=sz;
  for(int j=0; jCount; j  )
    Memo2->Lines->Add(sl->Strings[j]);
 }
 delete sl;
}

引言: sorry,那是我不小心按到，那我要解釋一下我的問題 打個比方好了，假如我的文章有這些字以下這些字

 MACHINE LANGUAGE IS THE BASIC LANGUAGE UNDERSTOOD BY THE COMPUTING 
      MACHINE.  MOST COMPUTERS HAVE REGISTERS IN THE CPU THAT ARE SIMILAR
      TO THE REGISTER IN THE DESK CALCULATOR.  THEY ARE CAKKED ACCUMULATORS
      BECAUSE THEY ARE USED TO ACCUMULATE THE INTERMEDIATE RESULTS.  THE CPU
      CAN BE TOLD TO LOAD A NUMBER INTO ITS ACCUMULATOR FROM A SPECIFIC CELL
      IN THE MEMORY, TO ADD, SUBTRACT, MULTIPLY, OR DIVIDE THE NUMBER IN THE
      ACCUMULATOR BY A NUMBER FROM MEMORY, OR TO STORE A NUMBER FROM THE 
      ACCUMULATOR INTO MEMORY.

我想算出這裡面的英文字重覆，然後以次數的出現次數排序 注意一下，這不是學校的作業，所以別在說我拿作業來貼了 只是希望以學習的角度有個方向。所以拿了一些題目來作。 < face="Verdana, Arial, Helvetica">

__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
        Memo1->Lines->LoadFromFile("E:\\Temp\\abc.txt");
        TStringList *sl = new TStringList;            for(int i = 0; i < Memo1->Lines->Count; i  )
        {
                AnsiString sz = Memo1->Lines->Strings[i];
                sl->CommaText = sz;                    for(int j = 0; j < sl->Count; j  )
                {
                        sl->Strings[j] = strtok(sl->Strings[j].c_str(), ",.");
                        int index = Memo2->Lines->IndexOf(sl->Strings[j]);
                        if(index == -1)
                        {
                                Memo2->Lines->Add(sl->Strings[j]);
                                Memo3->Lines->Add("1");
                        }
                        else
                        {
                                int tmp = StrToInt(Memo3->Lines->Strings[index]);
                                Memo3->Lines->Strings[index] = IntToStr(tmp   1);
                        }
                }
        }            delete sl;
}