не загружается ini файл в Delphi

[TaYgA]

Здравствуйте, пишу программу со сменой настроек страницы. Насиройки сохраняются в ini файл. По началу всё работало, но после файл с настройками перестал загружаться, хотя сохранение работает как надо... Уже всё перепробывал, не пойму в чём дело...
Код загрузки:

uses IniFiles
................
public
    { Public declarations }
end;

const
     Section: String='Main';
var
   IniFile: TIniFile;
   Form1: TForm1;
   stily,FullFileName,ShortFileName,ava,image: String;
.....................................
procedure TForm1.OnShow(Sender: TObject);
begin
//загрузка 
  if IniFile<>nil then begin
    ShortFileName:='Options.ini';   FullFileName:=ExtractFilePath(Application.ExeName)+PathDelim+ShortFileName;
    IniFile:=TIniFile.Create(FullFileName);
    stily:=IniFile.ReadString(Section,'stily',stily);
    ava:=IniFile.ReadString(Section,'Image',image);
    IniFile.Free;
//применение настроек
    SkinData.LoadFromCompressedFile(stily);
    Image.Picture.LoadFromFile(ava);
  end;
end;

Если надо сохранение, то вот:

uses IniFiles
................
public
    { Public declarations }
end;

const
     Section: String='Main';
var
   IniFile: TIniFile;
   Form2: TForm2;
   stily,FullFileName,ShortFileName: String;
..............................
procedure TOptions.btOKClick(Sender: TObject);
begin
// сохранение
  ShortFileName:='Options_'+Organizer.lbNameStructure.Caption+'.ini'; FullFileName:=ExtractFilePath(Application.ExeName)+PathDelim+ShortFileName;
  IniFile:=TIniFile.Create(FullFileName);
  IniFile.WriteString(Section,'stily',stily);
  IniFile.WriteString(Section,'Image',image);
  IniFile.Free;

Ошибки ни какой не выдаёт, всё работает, но ничего не загружается...
Пробывал добавить в Form1 Edit (для проверки на загрузку) и присвоить ему значение stily (Edit1.text:=stily; ) Edit пустой.... Что именно не правельно?!?!

[k1r1ch]

Эээ...
Ну при сохранении:

ShortFileName:='Options_'+Organizer .lbNameStructure.Caption+'.ini';

А при загрузке:

ShortFileName:='Options.ini';

Даже если Organizer.lbNameStructure.Caption = '', то все равно '_' лишняя!

[TaYgA]

Извеняюсь, в загрузке я чуть упростил и назвал всё своими именами... А так всё аналогично (Organizer .lbNameStructure-Form1.Label). Т.е. и имя сохраняемого и загружаемого одно и тоже....

[Alex Cones]

Пройдитесь F7, смотрите значения переменных, где что не так - узнаете сразу.

[TaYgA]

Спасибо, разобрался...

if IniFile<>nil then begin \\ с этой стройкой не работает загрузка
    ShortFileName:='Options_.ini';    FullFileName:=ExtractFilePath(Application.ExeName)+PathDelim+ShortFileName;
    IniFile:=TIniFile.Create(FullFileName);
    stily:=IniFile.ReadString(Section,'stily',stily);
    IniFile.Free;
    bsSkinData1.LoadFromCompressedFile(ExtractFilePath(ParamStr(0))+stily);
  end ;

Скажите, а как правельно написать код, для проверки существует ли файл!??!?!

[raxp]

Скажите, а как правельно написать код, для проверки существует ли файл!??!?!

if not fileexists(filename) then //нема файла

...еще, как помню вы ini файл несколько раз пользуете в программе. Не проще-ли один раз создать в create, а уничтожить в onclose?
...всю эту конструкцию можно упростить

ini:= TIniFile.Create(ChangeFileExt(Application.ExeName,'.ini'));

и не надо никаких проверок, нет файла - создается, есть- загружается

[TaYgA]

Спасибо Это другая форма, мне на каждой форме нужно загрузить настройки страницы... Один раз не получится т. к. компонент bsSkinData добавляется на каждой форме.....

[raxp]

Спасибо Это другая форма, мне на каждой форме нужно загрузить настройки страницы. Или когда прописываешь в FormCreate оно автоматически во всех загружается

- нет, достаточно будет поставить загрузку параметров всех форм при создании последней формы

[TaYgA]

Спасибо, буду пробывать....

[Serge_Bliznykov]

ещё добавлю.
если Вы уж делаете

if IniFile<>nil then begin

тогда будьте добры обнулять указатель!
для этого вместо IniFile.Free;
вызывайте фукнцию:

 FreeAndNil(IniFile)