C++ Builder XE4, 10.2 Tokyo > Form1: 항목 추가 + Form2: 추가 항목 검색 > TStringList 구현

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

처리

양식 구성

code

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

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
#include "Unit2.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
    Timer1->Enabled = false;
    Timer1->Interval = 200; // msec
    Timer1->Enabled = true;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
    static int idx = 0;

    Form2->AddItem(IntToStr(idx));
    idx++;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormShow(TObject *Sender)
{
    Form2->Show();
}
//---------------------------------------------------------------------------

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

#include <vcl.h>
#pragma hdrstop

#include "Unit2.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm2 *Form2;
//---------------------------------------------------------------------------
__fastcall TForm2::TForm2(TComponent* Owner)
    : TForm(Owner)
{
    m_itemList = new TStringList();

    Timer1->Enabled = false;
    Timer1->Interval = 1000; // msec
    Timer1->Enabled = true;
}
__fastcall TForm2::~TForm2()
{
    delete m_itemList;
    m_itemList = NULL;
}

void __fastcall TForm2::AddItem(String item)
{
    m_itemList->Add(item);
}
//---------------------------------------------------------------------------

static const int kNumExtract = 5; // 取出す項目数

void __fastcall TForm2::Timer1Timer(TObject *Sender)
{
    if (m_itemList->Count < kNumExtract) {
        return;
    }

    // TODO:資源のロック開始

    String item = L"";
    for(int idx=0; idx < kNumExtract; idx++) {
        item = item + L"," + m_itemList->Strings[idx];
    }
    for(int loop=0; loop < kNumExtract; loop++) {
        m_itemList->Delete(0);
    }

    // TODO:資源のロック解除

    String msg = item + L" @ " + Now().FormatString(L"yyyy/mm/dd hh:nn:ss.zzz");

    Memo1->Lines->Add(msg);

}
//---------------------------------------------------------------------------

결과

자원 잠금

비고