Чтение из файла в массив

     TStringGrid *gri ;
void __fastcall TForm1::Button2Click(TObject *Sender)
{        //  #include  stdio.h
     if(!gri) gri = new TStringGrid(this);
     gri->ColCount = 6;  gri->RowCount = 1;
     int cnt = -1;
     FILE *F ;
     F = fopen("файл.txt","r");
     while ( !feof(F) )  {
      char buf[99] = {0} ;
      fgets(buf,99,F);
      gri->Rows[++cnt]->CommaText = (String)buf;
      gri->RowCount = cnt+1;
     }
     fclose(F);
     Caption = gri->Cells[0][0];
}

#include <vcl.h>
#include "stdio.h"
#pragma hdrstop
#include "Unit1.h"
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
TStringGrid *gri ;
void __fastcall TForm1::Button1Click(TObject *Sender)
{
if(!gri) gri = new TStringGrid(this);
     gri->ColCount = 6;  gri->RowCount = 1;
     int cnt = -1;
     FILE *F ;
     F = fopen("1.txt","r");
     while ( !feof(F) )  {
      char buf[99] = {0} ;
      fgets(buf,99,F);
      gri->Rows[++cnt]->CommaText = (String)buf;
      gri->RowCount = cnt+1;
     }
     fclose(F);
     Caption = gri->Cells[0][0];
}

void __fastcall TForm1::btn_ReadClick(TObject *Sender)
{
  TStringList *L = new TStringList; //создали стринглист
  String fName = "c:\\tmp\\111.txt"; //Задали имя файла
  if(!FileExists(fName))         //Если файла нет - сообщаем и выходим
   {
     ShowMessage("Отсутствует файл для чтения");
     return;
   }
  L->LoadFromFile(fName); //Загрузили файл в стринглист
  TStringList *Tmp = new TStringList; //создали вспомогательный стринглист
  Tmp->CommaText = L->Strings[0]; //загрузили в него строку из основного стринглиста
  StringGrid1->RowCount = L->Count; //Задали кол-во строк таблицы
  se_R->MaxValue = StringGrid1->RowCount; //задали максимальное значение для СпинЭдита строк
  StringGrid1->ColCount = Tmp->Count; //Задали кол-во столбцов таблицы
  se_C->MaxValue = StringGrid1->ColCount;  //задали максимальное значение для СпинЭдита столбцов
  delete Tmp; //удалили вспомогательный стринглист
  for(int i = 0; i < L->Count; i++)
   StringGrid1->Rows[i]->CommaText = L->Strings[i]; //Заполнили таблицу
  //Разблокировали недоступные компоненты для выбора элемента
  for(int i = 0; i < ControlCount; i++)
   if(Controls[i]->Tag == 1) Controls[i]->Enabled = true;
  delete L; //удалили стринглист
}
//---------------------------------------------------------------------------
void __fastcall TForm1::btn_GetClick(TObject *Sender)
{
  ShowMessage(StringGrid1->Cells[se_C->Value - 1][se_R->Value - 1]);
}
//---------------------------------------------------------------------------

L->LoadFromFile(fName); //Загрузили файл в стринглист
L->Text = L->Text.Trim(); //<<==

int b = 24;
if (gri->Cells[0][0] == b)
int a = a + 1;

int b = 24;
if (StrToInt(gri->Cells[0][0]) == b)
int a = a + 1;

class TTableStringList : public Classes::TStringList
{
    UnicodeString __fastcall GetData(int ARow, int ACol)
    // Внимание: в отличие от TStringGrid-а, тут используется привычная индексация [Строка][Столбец] !!!
    // Еще можно проверить наличие строки ARow в списке, по хорошему, но мне - лень
    {
        TStringList *lst = static_cast<TStringList*>(Objects[ARow]); // просто получаем объект, соответствующей строки
        if(lst && lst->Count > ACol) return lst->Strings[ACol]; // и, если там есть столько слов, возвращаем нужное
        else return ""; // иначе возвращаем пустую строку, как признак отсутствия данных
    }
public:
    __fastcall TTableStringList(void)
    {
        OwnsObjects = true; // чтобы при удалении все объекты самоликвидировались
    }
    virtual int __fastcall Add(const UnicodeString S)
    // каждое добавление строки в список вызывает эту процедуру. Будь то при чтении файла,
    // или при ручном заполнении, или при копировании одного StringList-а в другой
    {
        int Result = Classes::TStringList::AddObject(S, new TStringList); // просто создаем для каждой строки объект
        static_cast<TStringList*>(Objects[Result])->DelimitedText = S; // в который записываем все слова строки
        return Result; // и возвращаем индекс созданного объекта
    }
    __property UnicodeString Data[int ACol][int ARow] = {read=GetData}; // теперь через свойство Data можно работать с матрицей
};
 
void __fastcall TForm1::Button4Click(TObject *Sender)
{
    std::auto_ptr<TTableStringList> L(new TTableStringList);
    L->StrictDelimiter = true;
    L->LoadFromFile("D:\\test\\myf.txt");
    ShowMessage(L->Data[1][3]); // для приведенного выше примера файла будет выведено 1232
}