Julien 님이 쓰신 글 :
:

: 	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나 기타 인터넷에서 본 소스들을 응용해봤는데 안되네요 ㅠㅠ
: :        선택되어졌다는 조건을 어떻게 걸어야할지도 모르겠어요 ㅠㅠ 도와주세요 ㅠㅠ
: : }
: : //---------------------------------------------------------------------------
: : 너무 초보라 검색이나 책을 많이 활용하는데 소스를 응용하는데 한계가 있네요 ㅠㅠ
: : 고수분들 정확한 것 아니어두 힌트라도좀 남겨주시면 정말 감사할꺼에여^^;