Memo1->Lines->LoadFromFile(ListBox1->Items->Strings[ListBox1->ItemIndex]);

로즈마일런 님이 쓰신 글 :
: TForm1 *Form1;
: AnsiString sFileName;
: AnsiString FileName = "C:\\lgw\\*.txt";
: TSearchRec sr;
: AnsiString strlst[1000];
: int i;
: //---------------------------------------------------------------------------
: __fastcall TForm1::TForm1(TComponent* Owner)
:     : TForm(Owner)
: {
:     Message->Clear(); // 메모장 Clear
:     if(FindFirst(FileName, faArchive, sr) == 0) //리스트박스 목록 불러오기
:     {
:         do{
:         ListBox1->Items->Add(sr.Name);
:         strlst[i] = sr.Name;
:         i++;
:         } while(FindNext(sr) == 0);
:     }
:     FindClose(sr);
: }
: //---------------------------------------------------------------------------
:
: void __fastcall TForm1::btnSaveClick(TObject *Sender)
: {
:     sFileName = FormatDateTime("YYYY-MM-DD AM/PM HH-NN_SS", Now()); //날짜+시간 파일명
:     sFileName += "분.txt";
:     Message->Lines->SaveToFile("c:\\lgw\\" + sFileName); //지정된 디렉토리에 저장
:     Message->Clear();
:     ListBox1->Clear();
:     if(FindFirst(FileName, faArchive, sr) == 0) //리스트박스 새로고침
:     {
:         do{
:         ListBox1->Items->Add(sr.Name);
:         strlst[i] = sr.Name; //혹시 몰라서 행열만들어서 담아두었어요;;
:         i++;
:         } while(FindNext(sr) == 0);
:     }
:     FindClose(sr);
: }
: //---------------------------------------------------------------------------
: void __fastcall TForm1::btnLoadClick(TObject *Sender)
: {
:     // 이부분에 리스트박스에서 선택한 파일명의 txt파일을 메모장으로 불러오고 싶은데
:        Selected나 기타 인터넷에서 본 소스들을 응용해봤는데 안되네요 ㅠㅠ
:        선택되어졌다는 조건을 어떻게 걸어야할지도 모르겠어요 ㅠㅠ 도와주세요 ㅠㅠ
: }
: //---------------------------------------------------------------------------
: 너무 초보라 검색이나 책을 많이 활용하는데 소스를 응용하는데 한계가 있네요 ㅠㅠ
: 고수분들 정확한 것 아니어두 힌트라도좀 남겨주시면 정말 감사할꺼에여^^;