void __fastcall TForm1::Button2Click(TObject *Sender)
{
    TStringList *sl=new TStringList;
    if(OpenDialog1->Execute())
    {
      sl->LoadFromFile("test.txt");
    }
    delete sl;
}
 

   TStringList *sl = new TStringList();
   if (OpenDialog1->Execute())
   {
      sl->LoadFromFile(OpenDialog1->FileName);
      Memo1->Lines->LoadFromFile(OpenDialog1->FileName);
   }
   delete sl;

引言:

void __fastcall TForm1::Button2Click(TObject *Sender)
{
    TStringList *sl=new TStringList;
    if(OpenDialog1->Execute())
    {
      sl->LoadFromFile("test.txt");
    }
    delete sl;
}

TStringList *sl=new TStringList;
sl->LoadFromFile("test.txt");
delete sl;

引言:暗黑破壞神大大您的code我試過可是不行ㄟ...按下Button沒反應

 
TStringList *sl=new TStringList;
sl->LoadFromFile("test.txt");//把檔案內容抓到sl
//....(讀檔後要做的事)應用方面，可在站上查一下文章
delete sl;//既然用new，用完要歸還

s->LoadFromFile("test.txt");
// do your job here
delete s1

OpenDialog1->Execute())

 ShellExecute(0,"open","wordpad.exe","test.txt",NULL,SW_SHOW);