Так. Идея такая. Программа использует файл конфигурации, задающий размер формы, ее цвет и цвет надписей (вместе 4 параметра). Надо при создании формы файл конфигурации (он называется у меня system.ini) считать, и в соответствии с полученными данными "сотворить" форму. Структура файла конфигурации такая:

Цитата

*** Вы можете изменить эту конфигурацию, но изменения повлияют на программу. *** [config] MainFormHeight=595 MainFormWidth=681 MainFormColor=clNavy MainFormTextColor=clWhite

Все, кроме последних четырех строк, может меняться!
Теперь код, который я написал. В нем недостает только поиска данных в файле. Плиз помогите с этим. Вот мой "каркас":

Код

if(!open_file("system.ini","r"))  {   MessageBox(NULL,"Вами или кем-то другим был удален конфигурационный файл программы SYSTEMS.INI. Просьба больше так не делать, это может привести к серьезным сбоям в работе программы. Программа попытается восстановить файл.","Ошибка",MB_ICONSTOP);   create_again:   FILE *system_file=fopen("system.ini","a+");   fprintf(system_file,"%s","[АВАРИЙНОЕ ВОССТАНОВЛЕНИЕ. ПРОИЗВЕДЕНО "+Now()+"]\n\n");   fprintf(system_file,"%s","*** Вы можете изменить эту конфигурацию, но изменения повлияют на программу. ***");   fprintf(system_file,"%s","\n\n[config]\nMainFormHeight=595\nMainFormWidth=681\nMainFormColor=clNavy\nMainFormTextColor=clWhite");   fclose(system_file);   if(!open_file("system.ini","r"))   {    if(MessageBox(NULL,"Не удалось восстановить конфигурационный файл. Попробовать снова?","Ошибка",MB_ICONINFORMATION|MB_YESNO)==IDYES) goto create_again;    else    {     MessageBox(NULL,"Конфигурационный файл отсутствует.","Критическая ошибка",MB_ICONSTOP);     Form1->Close();    }   }   MessageBox(NULL,"Конфигурационный файл SYSTEM.INI был успешно восстановлен. Программа сможет продолжить работу.","Информация",MB_ICONINFORMATION);  }  else  {   ListBox3->Items->LoadFromFile("system.ini");   AnsiString config;   int z=ListBox3->Items->Count;   while(z--)   {    config=ListBox3->Items->Strings[z];    if(config.Pos("MainFormHeight=")) {}    if(config.Pos("MainFormWidth=")) {}    if(config.Pos("MainFormColor=")) {}    if(config.Pos("MainFormTextColor=")) {}   }  }

эээ... а TIniFile чем не нравится?

Да хотелось бы самому сделать.
Только плиз с объяснениями.

Это сообщение отредактировал(а) sim7 - 3.10.2005, 19:03

2Sim7: ты знаешь,мне кажется у тебя одна большая проблема , и ты должен назвать ее "Хочу научиться парсить строки и тексты "... Видать ты рано в билдер залез, раз до сих пор хочешь всё до последнего кирпичика сделать своими ручками...Хотя дело твое.Твои стремления мне понятны.

Всем спасибо за советы, но я разобрался. Сообразил. Теперь мой INI-файл вполне работает.

Если кому-то интересно, как это сделано, то вот вам код:

Код

if(!open_file("system.ini","r"))  {   MessageBox(NULL,"Вами или кем-то другим был удален конфигурационный файл программы SYSTEMS.INI. Просьба больше так не делать, это может привести к серьезным сбоям в работе программы. Программа попытается восстановить файл.","Ошибка",MB_ICONSTOP);   create_again:   FILE *system_file=fopen("config.ini","a+");   fprintf(system_file,"%s","[АВАРИЙНОЕ ВОССТАНОВЛЕНИЕ ПРОИЗВЕДЕНО "+Now()+"]\n\n");   fprintf(system_file,"%s","*** Вы можете изменить эту конфигурацию, но изменения повлияют на программу. ***");   fprintf(system_file,"%s","\n\n[config]\nColor=clNavy\nColorOfText=clWhite");   fclose(system_file);   if(!open_file("config.ini","r"))   {    if(MessageBox(NULL,"Не удалось восстановить конфигурационный файл. Попробовать снова?","Ошибка",MB_ICONINFORMATION|MB_YESNO)==IDYES) goto create_again;    else    {     MessageBox(NULL,"Конфигурационный файл отсутствует.","Критическая ошибка",MB_ICONSTOP);     Form1->Close();    }   }   MessageBox(NULL,"Конфигурационный файл CONFIG.INI был успешно восстановлен. Программа сможет продолжить работу.","Информация",MB_ICONINFORMATION);   goto do_config;  }  else  {   do_config:   ListBox1->Items->LoadFromFile("config.ini");   AnsiString config,x;   int z=ListBox1->Items->Count;   while(z--)   {    config=ListBox1->Items->Strings[z];    if(config.Pos("Color="))    {     x=config.Delete(1,14);     //Что-то там делаем с X    }    if(config.Pos("ColorOfText="))    {     x=config.Delete(1,18);     //Что-то там делаем с X    }   }  }

Вот и весь сказ. К слову, функция open_file - нестандартная, это моя функция. В принципе, она только немного лучший аналог функции fopen. Думаю, тот, кто будет читать код, разберется. Если нет, то попросите меня или кого-нить еще объяснить.

Это сообщение отредактировал(а) sim7 - 4.10.2005, 16:42

Все таки проще и более красиво выглядело бы использование TIniFile или TMemIniFile
А переход по goto из if в else

Код

if(!open_file("config.ini","r"))   {   //...     goto do_config;  }  else  {      do_config:   /...  }

я бы на Вашем месте лучше бы никому не показывал

Почему? Неужели использование меток уж настолько плохо? А чем бы вы предложили в моем коде их заменить?

if- else - на в переводе на руский язык означает "если выполняется условие то делаем это, иначе делаем другое. Вы же во первых использовали goto, применение которого в С++ весьма не однозначно, во-вторых при этом убили сам смысл if-else. Это говорит о том, что у вас проблемы с составлением алгоритмов даже для процедурной части. Об ОПП здесь вообще речи нет, хотя с точки зрения обучения имеем и пытаясь перевести все это на нормальное ООП мы имеем сущность : конфигурационный файл с атрибутами. Допустим, если бы для работы с конфигурационным файлом Вы написали свою оболочку-враппер, то все это уложилось бы в тройку пару строчек типа

Код

TConfigFile* configFile; try {     configFile = new TConfigFile("system.ini"); } catch( const FileNotFoundErro& ) {     configFile = new TConfigFile("config.ini");    //что -то делаем }   config->Attribute["ColorOfText"] = .... //... AnsiString value =  config->Attribute["ColorOfText"];

И кстати о птичках. Вы открываете файл с помощью оpen_file(), а потом для загрузки строк опять открываете с помощью

Код

ListBox1->Items->LoadFromFile("config.ini");

Как же с принципом "все своими руками". Вы бы уж тогда прочитали все из уже открытого файла и зпихнули бы это ListBox1. А так нечестно
Тогда уж лучше сразу открыть TFileStream и использовать его.
Ну и последнее. Раз уж используете TStrings и загружаете его с помощью LoadFromFile, то стоит обратить на его проперти Name и Value. Надеюсь по хелпу вы узнаете, что в Вашем случае будет в них лежать.





Добавлено @ 09:13
Да и вот так никто не далает

Код

int z=ListBox1->Items->Count;   while(z--)

Тогда уж вот так

Код

for(int z = ListBox1->Items->Count; z--; ) { }

Добавлено @ 09:19

Цитата(sim7 @ 4.10.2005, 18:38)

Почему? Неужели использование меток уж настолько плохо? А чем бы вы предложили в моем коде их заменить?

Вот эта

Код

if(!open_file("config.ini","r"))   {   //...     goto do_config;  }  else  {      do_config:   /...  }

Заменяется простым убиранием else