Сохранение ранее введенных значений в TEdit

[Pcrepair]

Добрый день
Есть следующее:
Контрол типа Edit1, изначально пустой (в свойствах text = пусто) и кнопка Button1 на форме
суть проблемы:
нужно после ввода значения в Edit1 нажать на кнопку и запомнить веденное значение таким образом, что бы после перезапуска программы ранее введенное значение отобразилость в контроле и было доступно для других обработчиков событий (по сути это страница настройки параметров программы )
Вопрос:
При помощи каких методов это делается?
- запись значения из контрола в реестр с последующим чтением из реестра при перезапуске программы
- запись в файл.ини
- запись где то в самой программе?

[vasek123]

Не пойму, а в чем собственно проблемы?

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  Stroka: String;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  Stroka:= Edit1.Text;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Stroka:= '';
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  if Stroka<> '' then
    Edit1.Text:= Stroka;
end;

end.

Ну или через реестр, или переменную...

[AlDelta]

vasek123, стремный какой-то ответ... А где сохранение значения?
Pcrepair, храните в *.ini - TStringList (Методы LoadFromFile и SaveToFile)

[vasek123]

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

vasek123, стремный какой-то ответ... А где сохранение значения?
Pcrepair, храните в *.ini - TStringList (Методы LoadFromFile и SaveToFile)

Упс... Совсем забыл, что, значения глобальных переменных очищается при выходе из программы.

[MyLastHit]

vasek123, скомпилируй программу, введи значение, закрой ее. Открой заново. Там уже твоих данных не будет. А автору именно это и нужно.

vasek123, стремный какой-то ответ... А где сохранение значения?
Pcrepair, храните в *.ini - TStringList (Методы LoadFromFile и SaveToFile)

Это не интересно Слышал что-то про такую штуку как Файл Мэппинг, по моему это то, что автору нужно, только я не разбирался в этом даже...

[AlDelta]

Файл Мэппинг это не то.
Более простых вариантов чуть более чем достаточно.

[Stilet]

Да тут INIFiles самое оно.http://www.programmersforum.ru/showthread.php?t=14551

[psycho-coder]

Мне бы TStringList'a и Values хватило бы))

[Pcrepair]

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
  F: TIniFile;
  names: TStringList;
  i: integer;
begin
    F := TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'rdp.ini');
     Edit1.Text := F.ReadString('tools', 'edit1', 'no text');
     names := TStringList.Create;
    F.ReadSection('files', names);
         for i := 0 to Names.Count - 1 do
           names.Destroy;
           F.Destroy;
end;

procedure TForm1.FormDestroy(Sender: TObject);
var
  F: TIniFile;
  i: integer;
begin
     F := TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'rdp.ini');
     F.WriteString('tools', 'edit1', Edit1.Text);
     F.Free;
end;

end.

но есть еще один вопрос: при перезапуске программы сохраненное значение выводится в "синем фоне", как от этого избавится?

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[psycho-coder]

Как понять в "синем фоне"? Скрин приложите