rconクライアントの作成

#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <System.Classes.hpp>
#include <Vcl.Controls.hpp>
#include <Vcl.StdCtrls.hpp>
#include <Vcl.Forms.hpp>
#include <Vcl.ComCtrls.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:	// IDE で管理されるコンポーネント
	TListView *ListView1;
	TButton *LoadData;
	TLabel *Label1;
	void __fastcall LoadDataClick(TObject *Sender);
	void __fastcall ListView1AdvancedCustomDrawItem(TCustomListView *Sender, TListItem *Item,
          TCustomDrawState State, TCustomDrawStage Stage, bool &DefaultDraw);
	void __fastcall ListView1DblClick(TObject *Sender);

private:	// ユーザー宣言
public:		// ユーザー宣言
	__fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif

#include <vcl.h>
#pragma hdrstop
#include <Vcl.ComCtrls.hpp> // For TListView
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
TStringList* mesg;

//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
	: TForm(Owner)
{
	mesg = new TStringList();

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

/*
Id:  0 -  jake_burst is remote ip: 192.168.0.10:56934 ->
		 CD-key hash: 31ce9f26b51e646dc88fe7832d820314
Id:255 - S. Holman is remote  is an AI bot.

Id:xxx -  name is remote bot or not
*/
void __fastcall TForm1::LoadDataClick(TObject *Sender)
{
	mesg->LoadFromFile("test.dat");

	// scan data and pick up player item infos

	ListView1->Items->Clear();

	for( int i = 0 ; i < mesg->Count; i ++ ){
		AnsiString aline;
		aline = mesg->Strings[i];
		bool bot = false;

		if( aline.Pos("Id") > 0 ){   // therr should be a player name
			AnsiString num = aline.SubString(4,3);
			int idn = atoi(num.c_str());
			int tailend = aline.Pos("is remote");

			AnsiString name = aline.SubString(10,tailend-10);
			if( aline.Pos("bot") )
				bot = true;
			else
				bot = false;
			TListItem *item = ListView1->Items->Add();
			//item->Caption = "Id";
			item->Caption = IntToStr(idn);
			item->SubItems->Add(name);
			item->SubItems->Add(bot?"bot":"");

		}

	}

}


void __fastcall TForm1::ListView1AdvancedCustomDrawItem(TCustomListView *Sender, TListItem *Item,
          TCustomDrawState State, TCustomDrawStage Stage, bool &DefaultDraw)

{
   	if (Item->Index % 2 == 0) {
		Sender->Canvas->Brush->Color = clWhite; // 偶数行
	} else {
		Sender->Canvas->Brush->Color = clGray; //0xE0E0E0; // 奇数行（薄いグレー）
	}

	DefaultDraw = true;

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

void __fastcall TForm1::ListView1DblClick(TObject *Sender)
{
	/* from index to id */
	TListItem *item = ListView1->Items->Item[ListView1->ItemIndex];    // dbl clicked or selected
	Label1->Caption = item->Caption;



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