Даже делая по примеру не могу понять в чем загвоздка

Код

//Загрузка файла инициализации function ReadIni(ASection, AString : String): String; var //sPath: string; sIni: TIniFile;   <---- Ошибка тут  begin //    GetDir(0,sPath); //    sIniFile := TIniFile.Create(sPath + '\LogAn.ini'); //  end; end;

И выдает ошибку:
[Error] Parser.pas(68): Undeclared identifier: 'TIniFile'

Подключи модуль INIFiles в секции Uses.

Это сообщение отредактировал(а) SPrograMMer - 6.3.2005, 19:20

Спасибо!
Все пошло
Но на счет модулей нигде не нашел инфу: как с ними работать, как определять, что к чему относитья... вобщем пишу, а что непонямаю

1)

Код

..... public Ini:TIniFiles; ...... //процедура(oncreate или какая тебе там нужна) Ini:=Tinifile.create(название);

2)не забудь описать в uses
3)вводятся данные так:

Код

Ini.writeinteger('раздел в ини файле(то что в квадратных скобках)','параметр(не ставь знак =)',значение) ini.writestring('раздел в ини файле(то что в квадратных скобках)','параметр(не ставь знак =)',текст) ini.writebool('раздел в ини файле(то что в квадратных скобках)','параметр(не ставь знак =)',True или false)

выводится так:

Код

ini.readinteger('название раздела','параметр',значение по умолчанию(то есть если оно не указано в ини файле то берется это значение)); ini.readstring('название раздела','параметр',значение по умолчанию(то есть если оно не указано в ини файле то берется это значение)); ini.readbool('название раздела','параметр',значение по умолчанию(то есть если оно не указано в ини файле то берется это значение));

вроде все

Это сообщение отредактировал(а) Dr.No_xXx - 6.3.2005, 20:51

Если компилятор говорит, что неизвестный идентификатор находится в коде программы, то
1) Проверь правильность написания, если все правильно переходи ко второму пунтку, иначе исправь ошибку и еще раз компилируй.
2) Зайди в Help и посмотри тип переменной (если ошибка именно в нем)... обычно в справке написано то, к какому модулю относится данный тип (класс)... иначе переходим к третьему пунтку
3) зайди на форум и спроси

Сверху окна имеется ссылка на:
DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи
скачай и найди внём пункт "Работа с INI файлами". И все проблемы по INI файлам отпадут.

Ну, может и не все... Может иногда и придется немного подумать... и обратиться на форум за помощью в реализации...

Это точно
Пока перелопатишь хелпы и доки, найдешь там все, что нужно... а все равно что-то не получается (было 3 примера реализации чтения/записи INI)

Вот кстати, не слишком ли накладно каждый раз работать через

Код

Ini.writeinteger('раздел в ини файле(то что в квадратных скобках)','параметр(не ставь знак =)',значение) ini.writestring('раздел в ини файле(то что в квадратных скобках)','параметр(не ставь знак =)',текст) ini.writebool('раздел в ини файле(то что в квадратных скобках)','параметр(не ставь знак =)',True или false)

Или я недопонял

Попробовал вот так:

Код

//Функция загрузки настроек (INTEGER) function ReadIniI(ASector, AIdent : String): integer; {Функция чтения INI ([Сектор, Параметр]} const ADef = 200; //Значение, которое будет стоять по умолчанию var sIni: TIniFile; begin  sIni := TIniFile.Create(ChangeFileExt(Application.ExeName, '.ini'));  Result := sIni.ReadInteger(ASector, AIdent, ADef); //Результат выполнения  sIni.Free; end; //Процедура записи настроек (INTEGER) procedure WriteIniI(ASector, AIdent: string; AItem: Integer); var sIni: TIniFile; begin  sIni := TIniFile.Create(ChangeFileExt(Application.ExeName, '.ini'));  sIni.WriteInteger(ASector, AIdent, AItem);  sIni.Free; end;

И так для String'ов и Boolean'ов

Тогда для чтения/записи нужно всего лишь вызвать функцию и процедуру:

Код

//Загрузка параметров при запуске программы procedure TForm1.FormActivate(Sender: TObject); begin   Form1.Height := ReadIniI('Size', 'Height');   Form1.Width := ReadIniI('Size', 'Width'); end; //Сохранение настроек при закрытии программы procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin  WriteIniI('Size', 'Height', Height);  WriteIniI('Size', 'Width', Width); end;

Правда не понятно можно ли сделать "наследование" типа переменной с помощью некоторых переменных, что за тип используется (Integer, String, Boolean). Т. е. пишем всего лишь функцию Read и процедуру Write а они там уже разбираются с какими переменными они имеют дело.
Еще не очень хорошо получается что по умолчанию стоит одно и то же значение (в данном случае 200).

зы
У меня в проге (моя первая прога ) много параметров и вот хочу спросить мнения у вас, как более опытных.

Это сообщение отредактировал(а) KlanB - 7.3.2005, 01:33

Если уже очень хочется разбить всю работу, то лучше сделать так:

Код

type TMyIni = class  private   FIni: TIniFile;  public   constuctor Create(filename: string);   function ReadIntA( section: string; param: string): integer;   ...   destructor Free;  end; ... constructor TMyIni.Create(filename: string); begin FIni:=TIniFile.Create(FileName); end; function TMyIni.ReadIntA(section: string; param: string): integer; begin Result:=FIniFile.ReadInteger(section, param, -MaxInt); end; ... destructor TMtIni.Free; begin FIni.Free; end; ... {Работа:} var MyIni: TMyIni; integer; begin MyIni:=TMyIni.Create('MyIniFile.ini'); with MyIni do   begin    i:=ReadIntA('sec', 'par');    if i = -MaxInt     then      ShowMEssage('Error')     else      ShowMEssage(IntToStr(i));    Free;   end; end;

Но это можно даже сказать тоже лишнее, т. к. идет полный дубль стандартных процедур и функций... Если подробнее опишете свою задачу, то может что-нить и придумаю..

До такого мне по идее еще рановато
Хитрого ничего нет, просто нужно сохранять параметры наиболее оптимальным путем. Иногда не все сразу а, например по кнопке "применить". Поэтому и решил попробовать разные варианты.

Я пользуюсь чем-то типа:

Код

Procedure WriteValue(Section, Key, Value:string); begin   with TiniFile.create(ChangeFileExt(Paramstr(0),'.ini')) do     try       WriteString(Section, Key, Value);     finally       Free;     end; end; Function ReadValue(Section, Key, default:string):string; begin   with TiniFile.create(ChangeFileExt(Paramstr(0),'.ini')) do     try       Result:=ReadString(Section, Key, default);     finally       Free;     end; end;