*.INI

[Mustang]

Что за файл ini и зачем он нужен???

[ZhekON]

Он нужэн для того чтобы можно было типизировано(по отделам) сохранять данные и быстро доставать их

пример

[form1]
width=100 //сохраняем длину формы
height=50 //сохраняем высоту формы

[Mustang]

Ну вот например я хочу занести пароль для входа в программу в это т самый ini файл.как это сделать????я открыл один такой файл и понял только что сохранены разные параметры или что-то вроде этого в каждой строке отдельно...

[Noor]

Делается это так....
Добывим в Uses IniFiles;
На форме такие компоненты
Edit1, Label1, Button1
тогда

procedure TForm1.Button1Click(Sender: TObject);
begin
//Создали экземпляр объекта в каталоге с программой
IniFile := TIniFile.Create(extractfilepath(Application.ExeName) + '\Pass.INI'); 
//Записываем в ini информацию из Edit1
IniFile.WriteString('Pass' , 'Secret password', Edit1.Text);
//Закрыли файл, уничтожили объект и освободили память
IniFile.Free; 
end;
end.

пароль будет храниться в открытом виде, так что нужно его шифровать.

Так как пароль в Edit1 будет в открытом виде, его можно спрятать за ****. У станови в Edit1.PasswordChar *.
Затем в своей программе

procedure TForm1.Button1Click(Sender: TObject);
begin
IniFile := TIniFile.Create(extractfilepath(Application.ExeName) + '\Pass.INI');
//Забираем текст из Edit1 в читабельном виде
Edit1.PasswordChar := #0;
IniFile.WriteString('Pass' , 'Secret password', Edit1.Text);
//Установим обратно маску *
Edit1.PasswordChar := '*';
IniFile.Free;
end;
end.

З.Ы. Исходник с примером прикрепил. А так же не забываем про поиск !!!

[Mustang]

Noor у мя твой код глючит чёт, это может быть из-за того, что версия Делфи 5-я???А именно в твоей проге этот код так написан, а в мою копируешь и при F9 подчёркивает.... вот это:
IniFile := TIniFile.Create(extractfilepath(App lication.ExeName) + '\Pass.INI');и не нравится ему то, что выделено красным!!!

[Mustang]

С этим я решил проблему, теперь вот это подчёркивает:
IniFile.WriteString('Pass' , 'Secret password', Edit1.Text);
IniFile.Free;

[SERG1980]

Впринципе всё верно написано. Может у тебя не edit1 а както по другому называется или этот edit1 на другой форме

[Alex21]

Вы не забыли объявить:

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, IniFiles;

var
Form1: TForm1;
IniFile:TIniFile;

[Mustang]

В переменных забил савсем....тупой

[Mustang]

Эт, а как написать , чтобы ini файл создавался в другой папке, например закопать иё в windows где - нить, что бы никто пароль не узнал???
IniFile := TIniFile.Create(extractfilepath(App lication.ExeName) + '\Pass.INI' - я так понимаю надо эту строчку изменять?Как?