Окно параметров

[bbk_serg]

Здраствуйте!!!

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

Заранее СПАСИБО!!!!!

[Alex Cones]

Сохранять параметры в файл.
Смотря что подразумевается под словом "параметры".

[bbk_serg]

В "параметрах" есть компоненти edit, в их записиваются цифры

[Alex Cones]

Так тебе нужно сохранять цифры?
Запись:

Var
F:TextFile;
S:String;
Begin
S:=IntToStr(ЦИФРА);
AssignFile(F,'settings.set');
Rewrite(F);
Writeln(F,S);
CloseFile(F);

Чтение:

Var
F:TextFile;
S:String;
Begin
AssignFile(F,'settings.set');
Rewrite(F);
ReadLn(F,S);
CloseFile(F);
ЦИФРА=StrToInt(S);

[bbk_serg]

У меня есть две форми: 1-вая на которой местятся несколько компонентов edit, radiobutton, button. в едит ввожу необходимое число, вибираю в radiobutton необходимое условие, и нажав button выводится результат, но в формуле по которой производиться подсчет, есть число, которое меняется очень редко, и я хочу чтобы его можно было менять с другой формы.

[bbk_serg]

А можно ли както сделать так чтобы в форме в компонент едит вводиш число нажымаеш на кнопку и свойства компонента Edit -> Text поменялся на тот что ввел?

[ОДИНОЧЕСТВО В СЕТИ]

IniFiles или Реестр тебе в помощь!

[bbk_serg]

Попробовал через IniFile, не работает

Вот код:

procedure TForm2.Button1Click(Sender: TObject);
Var
IniFile: TIniFile;
begin
IniFile:= TIniFile.Create('Settings.ini');
IniFile.WriteString('MainOptions','EditText',Edit1.Text);
IniFile.Free;
end;

procedure TForm2.FormCreate(Sender: TObject);
var
IniFile: TIniFile;
begin
IniFile:= TIniFile.Create('Settings.ini');
Edit1.Text:=IniFile.ReadString('MainOptions','EditText','');
IniFile.Free;
end;

[QunneD]

bbk_serg, а кто будет указывать где находиться этот INI файл?

procedure TForm2.Button1Click(Sender: TObject);
Var
IniFile: TIniFile;
begin
IniFile:= TIniFile.Create(ExtractFilePath(paramstr(0))+'Settings.ini');
IniFile.WriteString('MainOptions','EditText',Edit1.Text);
IniFile.Free;
end;

procedure TForm2.FormCreate(Sender: TObject);
var
IniFile: TIniFile;
begin
IniFile:= TIniFile.Create(ExtractFilePath(paramstr(0))+'Settings.ini');
Edit1.Text:=IniFile.ReadString('MainOptions','EditText','');
IniFile.Free;
end;

[bbk_serg]

ОГРОМНОЕ СПАСИБО!!!