Парсер

String get_data_str(String filename, String section, String param)
{
    filename = "data/cfg/" + filename + ".dat";
    if (FileExists(filename))
    {
        TIniFile *iniFile = new TIniFile(filename);
        String RetStr = iniFile->ReadString(section, param, "");
        delete iniFile;
        return RetStr;
    }
    else
    {
        ShowMessage("ERROR! File not found: database!");
    }
}

StrToInt(get_data_str(filename, section,param));

virtual void __fastcall ReadSections(Classes::TStrings* Strings);

iniFile->ReadSections(Locations);

#include <typeinfo>
char buf[1000]; // Глобальный буфер
 
template <class T>
void* GetData( String filename, String section, T param ) // Универсальная функция получения данных
{
TIniFile *iniFile = new TIniFile(filename);
 
if( ( (String)(typeid( param ).name()) ).Pos("int") ) // Это целочисленное значение?
  {
  int Ret_i =  iniFile->ReadInteger(filename, section, 0);
  delete iniFile;
  return (void*)Ret_i;
  }
else if( ( (String)(typeid( param ).name()) ).Pos("String") ) // Это String?
  {
  String Ret_Str = iniFile->ReadString(filename, section, "" );
  delete iniFile;
  strcpy( buf, Ret_Str.c_str() );
  return (void*)buf;
  }
else // Это черти что?
  {
  //ShowMessage( typeid( param ).name() );
  return NULL;
  }
}

void __fastcall TForm1::Button1Click(TObject *Sender)
{
int i;
ShowMessage( (int)GetData( "", "", i ) ); // Что передаем, то и достаем
 
String str;
ShowMessage( (char*)GetData( "", "", str ) ); 
}

void __fastcall TMainForm::N4Click(TObject *Sender)
{
  //Çàãðóçêà èñõîäíûõ ïàðàìåòðîâ èãðîêà
  String str;int i;
  vleSvoystva->Values["Ïðîçâèùå"] = (char*)GetData("nickname", 0, str);
  vleSvoystva->Values["Óðîâåíü"] = (int)GetData("lvl", 0, i);
  vleSvoystva->Values["Ãðóïïèðîâêà"] = (char*)GetData("group", 0, str);
  AnsiString icon_name = (char*)GetData("group_icon", 0, str);
  if (FileExists(icon_name))
  {
    imgCommunity->Picture->LoadFromFile(icon_name);
  }
  else
  {
    ShowMessage("ERROR! File not found: image!");
  };
  lblMoney->Caption = random((int)GetData("money", 0, i));
}