AnsiString sz="12,0A,13,44";
       TStringList *sl=new TStringList;
       sl->CommaText=sz;
       Edit1->Text=sl->Strings[0];
       Edit2->Text=sl->Strings[1];
       Edit3->Text=sl->Strings[2];
       Edit4->Text=sl->Strings[3];           sz=sl->Strings[1];
       delete sl; 

derekyppp：    FILE *file1;
file1=fopen(OpenDialog1->FileName.c_str(),"r");
TStrings* Str = new TStringList();  // 建立一個TStrings
char msg[254];    fseek(file1, 0, SEEK_SET); // 文字檔頭
while (!feof(file1))       // 讀取文字檔
{
  StrPCopy(msg,'\0');
  fgets(msg, 254, file1);  // 以行讀入
  Str->CommaText=msg;      // 置入TStrings 它會自動將以空白及逗點斷字串
  for (int i=0;i < Str->Count;i  )
    // Str->Strings[i];     // 這是你要的
    // 例Edi1->Text=Str->Strings[0];
  
}
delete Str;   // 請記得delete
請參考

derekyppp：    FILE *file1;
file1=fopen(OpenDialog1->FileName.c_str(),"r");
TStrings* Str = new TStringList();  // 建立一個TStrings
char msg[254];    fseek(file1, 0, SEEK_SET); // 文字檔頭
while (!feof(file1))       // 讀取文字檔
{
  StrPCopy(msg,'\0');
  fgets(msg, 254, file1);  // 以行讀入
  Str->CommaText=msg;      // 置入TStrings 它會自動將以空白及逗點斷字串
  for (int i=0;i < Str->Count;i  )
    // Str->Strings[i];     // 這是你要的
    // 例Edi1->Text=Str->Strings[0];
  
}
delete Str;   // 請記得delete
如以Memo(ListBox)的話：
Memo1->Lines->LoadFromFile(OpenDialog1->FileName);
//ListBox1->Items->LoadFromFile(OpenDialog1->FileName);
for (int i=0; i< Memo1->Lines->Count; i  ) {
    Str->CommaText=Memo1->Lines->Strings[i];
    // Str->Strings[i];     // 這是你要的
    // 例Edi1->Text=Str->Strings[0];
}    請參考

引言: 請問一下 我把那段程式碼編譯的時候出現了問題了耶 FILE *file1; ｂｃｂ好像看不懂什麼是ｆｉｌｅ 也不知道什麼是fopen（）、ｆｓｅｅｋ（） 這幾個函式我只曾經在ｔｕｒｂｏ ｃ用過 不知道，在ｂｃｂ中是不是要額外include什麼檔呢？

#include 

 
void __fastcall TForm1::BitBtn1Click(TObject *Sender)
{            TStrings* Str = new TStringList();            if (OpenDialog1->Execute())
        Memo1->Lines->LoadFromFile(OpenDialog1->FileName);                for (int i=0; i< Memo1->Lines->Count; i  ) {
             Str->CommaText=Memo1->Lines->Strings[i];
        }
        Edit1->Text=Str->Strings[0];
        Edit2->Text=Str->Strings[1];
        Edit3->Text=Str->Strings[2];    }

       TStringList *sl=new TStringList;
       sl->LoadFormFile("c:\\test.txt");
       Edit1->Text=sl->Strings[0];
       Edit2->Text=sl->Strings[1];
       Edit3->Text=sl->Strings[2];
       Edit4->Text=sl->Strings[3];
       delete sl; 

       TStringList *sl=new TStringList;
       sl->LoadFormFile("c:\\test.txt");
       sl->CommaText=sl->Strings[0];
       Edit1->Text=sl->Strings[0];
       Edit2->Text=sl->Strings[1];
       Edit3->Text=sl->Strings[2];
       Edit4->Text=sl->Strings[3];
       delete sl;  

 
//---------------------------------------------------------------------------
#include     void __fastcall TForm1::Button1Click(TObject *Sender)
{    const int EditCount = 4;
TEdit* EditList[EditCount] = {Edit1,Edit2,Edit3,Edit4};
std::auto_ptr ClipData(new TStringList);
std::auto_ptr SplitData(new TStringList);
ClipData->LoadFromFile("yourfile.txt");    for(int Index = 0;Index < ClipData->Count;  Index)
        {
        SplitData->Text = StringReplace(
            ClipData->Strings[Index],
            " ","\n",TReplaceFlags() <<  rfReplaceAll);
        //  用Replace把" "空白，轉成換行。
        //  不用Delimiter的原因是因為TStringList在處理連續兩個
        //  Delimiter時，只會當成一個來看。造成資料的shift
        for(int Token = 0;Token < SplitData->Count &&
                          Token < EditCount
                          ;  Token)
            EditList[Token]->Text = SplitData->Strings[Token];
        }
}
//---------------------------------------------------------------------------    

引言: 我還是有問題耶…就是阿～（把我程式整理了一下） 發現如果讀的文字檔是內容是 12 43 45 56 就都會正常顯示 可是如果是 12 43 45 56 12 43 45 56 變成兩行時候就會出現錯誤 ｌｉｓｔ ｉｎｄｅｘ ｏｕｔ ｏｆ ｂｏｕｎｄ（１） 是為什麼？還有這個錯誤訊息怎麼翻譯呢？我用字典查出來的解釋怪怪的

 
void __fastcall TForm1::BitBtn1Click(TObject *Sender)
{
        TStrings* Str = new TStringList();
        if (OpenDialog1->Execute())
        Memo1->Lines->LoadFromFile(OpenDialog1->FileName);
        for (int i=0; i< Memo1->Lines->Count; i  ) {
             Str->CommaText=Memo1->Lines->Strings[i];
        }
        Edit1->Text=Str->Strings[0];
        Edit2->Text=Str->Strings[1];
        Edit3->Text=Str->Strings[2];
}

引言: 阿＞＜”不行～不行～ 用了bass15大大的兩種方法都一樣會出現錯誤訊息 ｌｉｓｔ ｉｎｄｅｘ ｏｕｔ ｏｆ ｂｏｕｎｄ 那我重說一下 我的問題 我就是想寫一個ｇａｍｅ阿 想建一個文字檔，裡面放玩家的資料 像是這樣 danny 18 29 39 493 may 33 45 99 32 (不一定要用空格 逗號也可以) 主要就是把資料分類存 但也希望可以一筆筆拿出來 請大大幫我一下^^

typedef struct
{
  AnsiString Name;
  int        str;
  int        dex;
  int        def;
  int        mig;
}MyStruct;

  int i;
  int count;
  TStrings *Str = new TStringList;      Str->LoadFromFile(FileName);
  Str->Delimiter = ' ';                //分格符號為空白，亦可自定
  Str->DelimitedText = Str->Text;      /*如此可以將檔案內的字，以分格符號分為若干個字串(AnsiString)
    共有 Str->Count 這麻多個，得到這些字串後，我用下面的方法處理，使其存到struct中 */        MyStruct *UsersInfo = new MyStruct [Str->Count/4];       for(i=0,count=0;iCount;i  )
  {
    switch(i%4)
    {
      case 0:
        UsersInfo [c].str= Str->Strings[i];
        break;
      case 1:
        UsersInfo [c].dex= Str->Strings[i];
        break;
      case 2:
        UsersInfo [c].def= Str->Strings[i];
        break;
     case 3:
        UsersInfo [c].mig= Str->Strings[i];
        count  ;
        break;
    }
  }

  typedef struct
  {
    AnsiString Name;
    int        str;
    int        dex;
    int        def;
    int        mig;
  }MyStruct;

  int i;
  int count;
  TStrings *Str = new TStringList;      Str->LoadFromFile(FileName);
  Str->Delimiter = ' ';                //分格符號為空白，亦可自定
  Str->DelimitedText = Str->Text;      /*如此可以將檔案內的字，以分格符號分為若干個字串(AnsiString)
    共有 Str->Count 這麻多個，得到這些字串後，我用下面的方法處理，使其存到struct中 */        MyStruct *UsersInfo = new MyStruct[Str->Count/5];  //五個string為一筆資料      for(i=0,count=0;iCount;i  )
  {
    switch(i%5)
    {
      case 0:  
        UsersInfo [c].Name = Str->Strings[i];
        break;
      case 1:
        UsersInfo [c].str = StrToInt( Str->Strings[i] );
        break;
      case 2:
        UsersInfo [c].dex = StrToInt( Str->Strings[i] );
        break;
      case 3:
        UsersInfo [c].def = StrToInt( Str->Strings[i] );
        break;
      case 4:
        UsersInfo [c].mig = StrToInt( Str->Strings[i] );
        count  ;
        break;
    }
  }

引言: ^^ 我發現這段程式是我想要的耶 而且我也難得看懂了 不過把他拿到bcb編譯後 發現了靈『譯』現象啦 明明只拉了一個form和按鈕 編譯過了 但執行時出現了edit1 is not valid integer value 這段程式中 有動態產生了edit元件嗎@@" 我好像沒找到耶 還有想順便問一下 Str->Delimiter = ' '; Str->DelimitedText = Str->Text; Tstringlist 的這兩個方法(Delimiter )、(DelimitedText ) 有點不懂耶 我查了help的說明 還是不太了解@@"

  Str->LoadFromFile("text.txt");
  Str->Delimiter = ' ';                //分格符號為空白，亦可自定
  Str->DelimitedText = Str->Text;