C++ Builder XE4, 10.2 Tokyo > TMemo > TStringList 형의 리스트를 TMemo에 할당하는 구현 > TMemo.Assign() 등 | link:퍼포먼스

C++ Builder XE4
RAD Studio 10.2 Tokyo Update 2 (追記: 2018/01/05)

대상 파일

code

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include <IOUtils.hpp>
#include <memory>
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------

/*
v0.1 Oct. 17, 2017
  - 対象フォルダにあるファイルリストを取得
*/


String kTargetFolder = L"D:\\WORK\\filedelete_171017";
//String kDueDateTime = L"2017/02/28 12:00";

__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::dbgB_getListClick(TObject *Sender)
{
    String searchPattern = L"*.csv";
    TSearchOption option = TSearchOption::soAllDirectories;

    TStringDynArray fileList = TDirectory::GetFiles(kTargetFolder, searchPattern, option);
    int allcnt = fileList.Length;

    std::unique_ptr<TStringList> lst(new TStringList);

    TDateTime filedt;
    for(int idx = 0; idx < fileList.Length; idx++) {
//      filedt = TFile::GetLastWriteTime(fileList[idx]);
//      if ( filedt < VarToDateTime(kDueDateTime) ) {
//          continue;
//      }
        lst->Add(fileList[idx]);
    }

    String msg = IntToStr(lst->Count) + L"/" + IntToStr(allcnt);
    OutputDebugString(msg.c_str());

    Memo1->Lines->Assign(lst.get()); //********************
}
//---------------------------------------------------------------------------

공연