[roamer]

Сообщение от Orfentor

текст кнопки

Код, который Вы привели - крайне не стабилен.

Глюки у Вас могут быть практичеки в каждой строке.

Например :

Что будет, если ComboBox1.ItemIndex<0 в ЭТОЙ строке ???

Код:

  if not DirectoryExists(Dir+ComboBox1.Items[ComboBox1.ItemIndex]) then
                  createdir(Dir+ComboBox1.Items[ComboBox1.ItemIndex]);

Участок кода, начиная с этой строки, надо защищать конструкцией TRY ... FINALLY ... END :

Код:

  Result:=TiniFile.Create(Dir+ComboBox1.Items[ComboBox1.ItemIndex]+'\'+LabeledEdit1.Text+LabeledEdit2.Text[1]+'.ini');

И при чем здесь Result ???


Здесь Вы использовали зарезервированное слово <file>

Код:

  file:=TIniFile.Create(Dir+Form1.ListBox1.Items[Form1.ListBox1.ItemIndex]);

А где освобождение ресурсов <Free> (после TiniFile.Create) ???

Вам нужно переосмыслить Ваш код и переписать его.
Тогда будет ясно - в чем глюки ...