Подскажите по Ini файл

[Air]

Что-то Вы тут мучаетесь, рулите.

Это для автора, используйте функции и проблем не будет.

uses IniFiles;

function SaveSettingsINI(WayIni,NameIni,Section,Ident,Volume:string):boolean;
var
sl:string;
ini:TIniFile;
begin
Result:=false;
if Nameini = '' then Nameini:='IniFile.ini';
if WayIni <> '' then
 begin
  if not directoryExists(WayIni) then CreateDir(WayIni);
  if WayIni[strlen(pchar(WayIni))] <> '\' then sl:='\';
  ini:=TIniFile.Create(WayIni+sl+NameIni);
 end
else
 ini:=TIniFile.Create(ExtractFilePath(Application.ExeName)+NameIni);

ini.WriteString(Section, Ident, Volume);
if ini.ReadString(Section, Ident, '') <> '' then
 result:=true;
ini.Destroy;
end;

function ReadSettingsINI(WayIni,NameIni,Section,Ident,DefaultVol:string):String;
var
sl:string;
ini:TIniFile;
begin
if Nameini = '' then Nameini:='IniFile.ini';
if WayIni <> '' then
 begin
  if not directoryExists(WayIni) then CreateDir(WayIni);
  if WayIni[strlen(pchar(WayIni))] <> '\' then sl:='\';
  ini:=TIniFile.Create(WayIni+sl+NameIni);
 end
else
 ini:=TIniFile.Create(ExtractFilePath(Application.ExeName)+NameIni);
Result:=ini.ReadString(Section, Ident, DefaultVol);
ini.Destroy;
end;

[Sibedir]

Не думаю, что это выход. Функции работают правильно. Проблема в чем то другом.

[Михаил Юрьевич]

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

Давай весь код. Где то там ошибка.

Да ошибка точно где то есть,только код на 430 кб,разбираться долго.
Я сейчас на чистую форму SpinEdit1 кинул и так же записал в Ini файл и
прочитал.И все работает.Спасибо что потратили время,сейчас буду искать ошибку.

[Sibedir]

Да поможет вам F7

ЗЫ:

Я сейчас на чистую форму SpinEdit1 кинул и так же записал в Ini файл и
прочитал.И все работает.

Сразу бы так

[Air]

Михаил Юрьевич Вы ехе-шник удалите, остальное в зип архив и на форум заливайте.
А функции Вам в помощь, чтоб не писать каждый раз Ini:=Create... и тому подобное.