Разбиение текста на блоки.

[Sazary]

Вот вам пример:

void __fastcall TForm1::Button1Click(TObject *Sender)
{
int cnt,i,j;
AnsiString tmp;

cnt = ValueListEditor1->RowCount-1;
for(i=1; i<=cnt-1; i++)
 for(j=i+1; j<=cnt; j++)
  if(StrToInt(ValueListEditor1->Cells[1][j])<StrToInt(ValueListEditor1->Cells[1][i]))
  {
   tmp = ValueListEditor1->Cells[0][j];
   ValueListEditor1->Cells[0][j] = ValueListEditor1->Cells[0][i];
   ValueListEditor1->Cells[0][i] = tmp;
   tmp = ValueListEditor1->Cells[1][j];
   ValueListEditor1->Cells[1][j] = ValueListEditor1->Cells[1][i];
   ValueListEditor1->Cells[1][i] = tmp;
  }
 }

[gosu]

Sazary, спасибо за ответы, очень выручил=)
Всё замечательно работает=)
Завтра защита курсача=)