Восстановление Edit по умолчанию

[maris01]

Подскажите пожалуйста, есть ли возможность восстановления по умолчанию всех полей edit одним кликом ?

[HyperZen]

procedure TForm1.btn1Click(Sender: TObject);
var
 i: Integer;
begin
For i:= 0 to Form1.ComponentCount - 1 do
 if Form1.Components[i] is TEdit then
  (Form1.Components[i] as TEdit).Text := '';
end;

[maris01]

Спасибо, но хотелось бы чтобы там было не пусто, а значения по умолчанию, которые были в начале работы программы- числа, слова и тд.И может еще подскажете- при нетронутых пользователем полях при нажатии кнопки - выскакивала бы мессага.

[Serge_Bliznykov]

не уверен на 100%, но, имхо, нельзя получить значение, которое Вы задали в Edit в дизайнере (хотя, повторю, возможно я и ошибаюсь и доступ к этим значениям можно получить каким-то хитрым образом...)

Поэтому предлагаю такое решение.
Есть событие, которое возникает 1 раз при создании формы.
Это событие onCreate.
в этом событии написать сохранение всех значений Edit`ов в любую структуру данных. Например, по простому в TStringList.
Ну, дальше уже понятно - по нажатию кнопки два цикла.
1-й - сравниваете сохранённые значения с текущими, если они все "нетронутые" (или есть хоть одно "нетронутое" - это как Вам нужно по логике...) - выдаёте мессагу и выходите.
иначе - ещё один цикл и заполняете значения полей из сохранённой структуры.


p.s. код несложный, основу перебора Вам дал HyperZen
но, если возникнут сложности, пишите, набросаю примерчик...

[Stilet]

в этом событии написать сохранение всех значений Edit`ов в любую структуру данных.

А я обычно не мелочусь, и все пихаю в ИНИ файлы

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    ButtonScreenShoot: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var i:TIniFile;s:TStringList;q:integer;c:TComponent;
begin
 i:=TIniFile.Create(ExtractFilePath(ParamStr(0))+'ini.ini');
 s:=TStringList.Create;
 i.ReadSectionValues('controls',s);
 for q:=0 to s.Count-1 do begin
  c:=FindComponent(s.Names[q]);
  if c<>nil then begin
   TEdit(c).Text:=s.Values[s.Names[q]];
  end;
 end; i.Free;s.Free;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var i:TIniFile;q:integer;
begin
 i:=TIniFile.Create(ExtractFilePath(ParamStr(0))+'ini.ini');
 for q:=0 to Componentcount-1 do begin
  if Components[q] is TEdit then begin
   i.WriteString('controls',Components[q].Name,TEdit(Components[q]).Text);
  end;
 end; i.Free;
end;
end.

Может и глупо, зато работает.

[veniside]

В копилку мировой глупости, загружаем форму заново и считываем поле Text у едитов:

procedure TForm1.Button1Click(Sender: TObject);
var
  c: Integer;
  E: TEdit;
begin
  with (NewInstance() as TForm) do try
    //
    Create(nil);
    for c := 0 to ComponentCount - 1 do
      if Components[c] is TEdit then
	(Self.Components[c] as TEdit).Text := (Components[c] as TEdit).Text;
  finally
    Free();
  end;
end;

Вобще, сама идея привязки к мусору, который случайно был задан в DesignTime — крайне порочная, имхо.