[-Marshall-]

Не подскажите, как можно вывести на StringGrid строки, которые были выделены в ListBox'e?

Код:

void TModules::task1(void)
{
	Form5 = new TForm5(Form1);
	TSysCharSet chSplash;
	chSplash << ';';
	TStringList *lst = new TStringList();
	TStringList *TokenList = new TStringList();
	lst->LoadFromFile("D:\\airplane.txt");

	for(int i = 0; i < lst->Count; i++)
	{
		ExtractStrings(chSplash, chSplash, lst->Strings[i].c_str(), TokenList);
		Form5->ListBox1->Items->Add(TokenList->Strings[1]);
		TokenList->Clear();
	 }
	delete lst;
	delete TokenList;
	Form5->ShowModal();
}

А вот вывести не понимаю как.

Код:

void TModules::task1_get(void)
{
	if (Form1->StringGrid1->Visible != true)
	{
		Form1->StringGrid1->Visible = true;
		//TStringList *list = new TStringList();
		for (int i = 0; i < Form5->ListBox1->SelCount; i++)
		{
			for (int j = 0; j < Form1->StringGrid1->RowCount; j++)
			{
				Form1->StringGrid1->Cells[j][i] = Form5->ListBox1->Items->Strings[i];
			}
		}
		Form5->Close();
		row_count();
	}
	else
	{
		for (int i = 0; i < Form1->StringGrid1->RowCount; i++)
		{
			((TPublicGrid*)Form1->StringGrid1)->DeleteRow(Form1->StringGrid1->Row);
			Form1->StringGrid1->Rows[i]->Clear();
		}
		for (int i = 0; i < Form5->ListBox1->SelCount; i++)
		{
			for (int j = 0; j < Form1->StringGrid1->RowCount; j++)
			{
				Form1->StringGrid1->Cells[i][j] = Form5->ListBox1->Items->Strings[i];
			}
		}
		Form5->Close();
		row_count();
	}
}