Добро пожаловать на наш портал

procedure TForm1.FormCreate(Sender:TObject);
begin
Ini:=TIniFile.Create('Form1.ini');
end;[/colde]
Если написать имя файла без полного пути, то получится, что он создастся в папке Windows, а нам навряд ли это нам надо. Для этого надо сделать так:
Ini:=TIniFile.Create(ExtractFilePath(Application.ExeName)+'Form1.ini');
Это создаст ини файл рядом с нашей программой.
Процедура записи строки:
WriteString(const Section, Ident, Value: string);
Процедура записи цифры:
WriteInteger(const Section, Ident: string; Value: Longint);
Процедура записи булевого выражения:
WriteBool(const Section, Ident: string; Value: Boolean);
Запись даты:
WriteDate(const Section, Name: string; Value: TDateTime);
Запись время:
WriteTime(const Section, Name: string; Value: TDateTime);
Запись даты и время вместе:
WriteDateTime(const Section, Name: string; Value: TDateTime);
Запись не целого численного значения:
WriteFloat(const Section, Name: string; Value: Double);
Запись потока:
WriteBinaryStream(const Section, Name: string;Value: TStream);
Это основные процедуры записи, так же есть и чтения:
ReadString(const Section, Ident, Default: string): string;
ReadInteger(const Section, Ident: string; Default: Longint): Longint;
ReadBool(const Section, Ident: string; Default: Boolean): Boolean;
ReadBinaryStream(const Section, Name: string; Value: TStream): Integer;
ReadDate(const Section, Name: string; Default: TDateTime): TDateTime;
ReadDateTime(const Section, Name: string; Default: TDateTime): TDateTime;
ReadFloat(const Section, Name: string; Default: Double): Double;
ReadTime(const Section, Name: string; Default: TDateTime): TDateTime;
Другие процедуры и функции для работы с ини-файлами:
Проверка, существует ли секция:
function SectionExists(const Section: string): Boolean;
Прочтение всей секции:
procedure ReadSection(const Section: string; Strings: TStrings);
Прочтение всего файла (все секции записываются в Strings):
procedure ReadSections(Strings: TStrings);
Прочтение всех значений в заданной секции:
procedure ReadSectionValues(const Section: string; Strings: TStrings);
Удалить заданную секцию со всеми её значениями:
procedure EraseSection(const Section: string);
Удаление определённого ключа (и его значения) в секции:
procedure DeleteKey(const Section, Ident: String);
Проверка, существует ли заданный ключ в указанной секции:
function ValueExists(const Section, Ident: string): Boolean;
Теперь вы знакомы с основными процедурами чтения и записи, теперь перейдём к простеньким примерам.
Для начала создадим событие onDestroy на нашей форме и применим следующий код(переменную Ini мы объявляли, как глобальную:
[code]procedure TForm1.FormDestroy(Sender: TObject);
begin
Ini.WriteInteger('Size','Width',form1.width); // секция size, ключ width, значение form1.width
Ini.WriteInteger('Size','Height',form1.height); // секция size, ключ height, значение form1.height
Ini.WriteInteger('Position','X',form1.left); // секция position, ключ x, значение form1.left
Ini.WriteInteger('Position','Y',form1.top); // секция position, ключ y, значение form1.top
Ini.Free;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Form1.Width:=Ini.ReadInteger('Size','Width',100);
Form1.Height:=Ini.ReadInteger('Size','Height',100);
Form1.Left:=Ini.ReadInteger('Position','X',10);
Form1.Top:=Ini.WriteInteger('Position','Y',10);
end;