Проблема с InI

[саша40]

Привет. Пишу к программе открытие и сохранение настроек из ini. Пишу на Delphi 7. Вот код сохранения:

procedure TForm1.SaveSet(D, E: integer; Dir: String);
var
s, t, i: Integer;
begin
if FileExists(ExtractFilePath(Application.ExeName) + Dir + 'Volume.ini') then
begin
DeleteFile(ExtractFilePath(Application.ExeName) + Dir + 'Volume.ini');
AssignFile(f1, ExtractFilePath(Application.ExeName) + Dir + 'Volume.ini');
Rewrite(f1);
Write(f1, D);
CloseFile(f1);
end
else
begin
AssignFile(f1, ExtractFilePath(Application.ExeName) + Dir + 'Volume.ini');
Rewrite(f1);
Write(f1, D);
CloseFile(f1);
end;
if FileExists(ExtractFilePath(Application.ExeName) + Dir + 'Atribute.ini') then
begin
DeleteFile(ExtractFilePath(Application.ExeName) + Dir + 'Atribute.ini');
AssignFile(f1, ExtractFilePath(Application.ExeName) + Dir + 'Atribute.ini');
Rewrite(f1);
Write(f1, E);
CloseFile(f1);
end
else
begin
AssignFile(f1, ExtractFilePath(Application.ExeName) + Dir + 'Atribute.ini');
Rewrite(f1);
Write(f1, E);
CloseFile(f1);
end;
if FileExists(ExtractFilePath(Application.ExeName) + Dir + 'FormLeft.ini') then
begin
s:=Form1.Left;
DeleteFile(ExtractFilePath(Application.ExeName) + Dir + 'FormLeft.ini');
AssignFile(f1, ExtractFilePath(Application.ExeName) + Dir + 'FormLeft.ini');
Rewrite(f1);
Write(f1, s);
CloseFile(f1);
end
else
begin
AssignFile(f1, ExtractFilePath(Application.ExeName) + Dir + 'FormLeft.ini');
Rewrite(f1);
Write(f1, s);
CloseFile(f1);
end;
if FileExists(ExtractFilePath(Application.ExeName) + Dir + 'FormTop.ini') then
begin
t:=Form1.Top;
DeleteFile(ExtractFilePath(Application.ExeName) + Dir + 'FormTop.ini');
AssignFile(f1, ExtractFilePath(Application.ExeName) + Dir + 'FormTop.ini');
Rewrite(f1);
Write(f1, t);
CloseFile(f1);
end
else
begin
AssignFile(f1, ExtractFilePath(Application.ExeName) + Dir + 'FormTop.ini');
Rewrite(f1);
Write(f1, t);
CloseFile(f1);
end;
Eqws[1]:=trackbar3.Position;
Eqws[2]:=trackbar4.Position;
Eqws[3]:=trackbar5.Position;
Eqws[4]:=trackbar6.Position;
Eqws[5]:=trackbar7.Position;
Eqws[6]:=trackbar8.Position;
Eqws[7]:=trackbar9.Position;
Eqws[8]:=trackbar10.Position;
Eqws[9]:=trackbar11.Position;
Eqws[10]:=trackbar12.Position;
for i:=1 To 10 Do
begin
if FileExists(ExtractFilePath(Application.ExeName) + Dir + 'Eqwelizer' + inttostr(i)+ '.ini') then
begin
w:=Eqws[i];
DeleteFile(ExtractFilePath(Application.ExeName) + Dir + 'Eqwelizer' + inttostr(i)+ '.ini');
AssignFile(f1, ExtractFilePath(Application.ExeName) + Dir + 'Eqwelizer' + inttostr(i)+ '.ini');
Rewrite(f1);
Write(f1, w);
CloseFile(f1);
end
else
begin
w:=Eqws[i];
AssignFile(f1, ExtractFilePath(Application.ExeName) + Dir + 'Eqwelizer' + inttostr(i)+ '.ini');
Rewrite(f1);
Write(f1, w);
CloseFile(f1);
end;
end;
end;

Массив глобальный вот он:

Eqws: array [1..10] of  Integer;
w: integer;

И открытие:

procedure TForm1.OpenSet(Dir: String);
var
D, E, s, t, i: integer;
begin
if FileExists(ExtractFilePath(Application.ExeName) + Dir + 'Volume.ini') then
begin
AssignFile(f1, ExtractFilePath(Application.ExeName) + Dir + 'Volume.ini');
Reset(f1);
read(f1, D);
trackbar1.Position:=D;
CloseFile(f1);
end;
if FileExists(ExtractFilePath(Application.ExeName) + Dir + 'Atribute.ini') then
begin
AssignFile(f1, ExtractFilePath(Application.ExeName) + Dir + 'Atribute.ini');
Reset(f1);
read(f1, E);
trackbar2.Position:=E;
CloseFile(f1);
end;
if FileExists(ExtractFilePath(Application.ExeName) + Dir + 'FormLeft.ini') then
begin
AssignFile(f1,ExtractFilePath(Application.ExeName) + Dir + 'FormLeft.ini');
Reset(f1);
read(f1, s);
Form1.Left:=s;
CloseFile(f1);
end;

if FileExists(ExtractFilePath(Application.ExeName) + Dir + 'FormTop.ini') then
begin
AssignFile(f1,ExtractFilePath(Application.ExeName) + Dir + 'FormTop.ini');
Reset(f1);
read(f1, t);
Form1.Top:=t;
CloseFile(f1);
end;
for i:=1 To 10 Do begin
if FileExists(ExtractFilePath(Application.ExeName) + Dir + 'Eqwelizer1.ini') then
begin
AssignFile(f1, ExtractFilePath(Application.ExeName) + Dir + 'Eqwelizer1.ini');
Reset(f1);
read(f1, w);
Eqws[i]:=w;
CloseFile(f1);
end;
end;
trackbar3.Position:=Eqws[1];
trackbar4.Position:=Eqws[2];
trackbar5.Position:=Eqws[3];
trackbar6.Position:=Eqws[4];
trackbar7.Position:=Eqws[5];
trackbar8.Position:=Eqws[6];
trackbar9.Position:=Eqws[7];
trackbar10.Position:=Eqws[8];
trackbar11.Position:=Eqws[9];
trackbar12.Position:=Eqws[10];
end;

Процедуру OpenSet применил в Form.Create, а SaveSet в Form.Close. Dir-это деректория, которая создается при старте формы. Проблема в том что сохраняются и загружаются правильно только первые две настройки, а остальные ставятся так: FormTop и FormLeft на 0, а с 3 по 12 трекбары на максимум. Как это исправить? Использовать только этот способ сохранения и открытия, можно сохранение и открытие настроек с 3 по 12 трекбары зацыклить. Прошу вас... Очень надо.

[саша40]

конечно сори что это очень много кода. Кстати других методов сохранение не придлагать. Только этот:

AssigkFile(переменая обозначение, полный путь к файлу);
Rewrite(переменая обозначение);
Write(переменая обозначение, переменая обозначающая то что записывается);
СloseFile(переменая обозначение);

Метод с переменой типа iniFile мне не надо. Потому что она мне дает кучу ошибок и сбой иницилизации потока.

[Delphi_ProGer]

А я бы лучше советовал разобраться с ошибкой с TInifile, чем писать столько много кода...

[саша40]

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

А я бы лучше советовал разобраться с ошибкой с TInifile, чем писать столько много кода...

если я применю TiniFile, то у меня будут куча ошибок вылизать и не иницилизироватся паток.

[Delphi_ProGer]

Покажи фрагмент кода считивания с ини -файла с помощью TIniFile.

[Stilet]

то у меня будут куча ошибок вылизать и не иницилизироватся паток.

Тогда однозначно забудь о нем )

[саша40]

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

Тогда однозначно забудь о нем )

Может проблема из-за того что с 3 по 12 трек-бары находятся на pagecontrol.

[Stilet]

Может проблема из-за того что с 3 по 12 трек-бары находятся на pagecontrol.

А может тебе всетки стоит научиться использовать отладчик и работать с трассировкой кода?
Данные в файле небось посторочно расположены?
Если да то не read а readln нужно использовать.

[astecenko]

проблема в отсутствии тех самых "прямых рук" про ктороые Вы в подписи пишите. Для работы с ini-файлами в Delphi есть 2 класса TIniFile и TMemIniFile - вот их и используйте.
Написали бы какие ошибки у Вас возникали при использвании этих классов - проблема бы быстрее решилась.
Не хотите классы для работы с ini используйте TStringList.

[hacker_007]

Ну как можно не уметь работать с TIniFile???? КАК? там же три строки всего для чтения и записи......