Считывание из файла

 //считываем данные об услугах из файла
    in.open("ресурсы.txt");
 
        while(!in.eof())
        {
            //считываем код спец.рабочего
            in.getline(buf,sizeof(buf));
            Products[ProductsCount].Code=StrToInt(buf);//код на 1 больше индекса
            //считываем специализацию рабочего
            in.getline(buf,sizeof(buf));
            strcpy(Products[ProductsCount].Name,buf);
            //считываем единицу измерения
            in.getline(buf,sizeof(buf));
            strcpy(Products[ProductsCount].Unit,buf);
            //считываем оплату за 1 день
            in.getline(buf,sizeof(buf));
            Products[ProductsCount].price=StrToFloat(buf);
            // считали страну поставщик
            in.getline(buf,sizeof(buf));
            strcpy(Products[ProductsCount].country,buf);
            ProductsCount++;

TStringList *lst = new TStringList();
lst->LoadFromFile("ресурсы.txt");
//...
Products[ProductsCount].Code = lst->Strings[0].ToInt( );
strcpy( Products[ProductsCount].Name, lst->Strings[0].c_str() );