Edit

[niva622]

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

[satir]

Попробуй записать в файл *.ini
--
procedure TForm1.ReadParams;
Var IniFile:TIniFile;
begin
IniFile:=TIniFile.Create('project.i ni');
Form1.Top:=IniFile.ReadString('Edit ','EditText',Edit.Text);
IniFile.Free;
end;

procedure TForm1.WriteParams;
Var IniFile:TIniFile;
begin
IniFile:=TIniFile.Create('project.i ni');
IniFile.WriteString('Edit','EditTex t',Edit.Text);
IniFile.Free;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
ReadParams;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
WriteParams;
end;

[niva622]

А не как по проще нельзя

[zetrix]

меньше строк всё равно не получится. Даже через f:textfile;

[Saxon]

в form1.onclose пишешь
edit1.text.savetofile('name.txt');

в form1.oncreate пишешь
edit1.text.loadfromfile('name.txt') ;



и всё

[niva622]

В edit нет параметра savetovile.

[Alter]

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

Попробуй записать в файл *.ini
--
procedure TForm1.ReadParams;
Var IniFile:TIniFile;
begin
IniFile:=TIniFile.Create('project.i ni');
Form1.Top:=IniFile.ReadString('Edit ','EditText',Edit.Text);
IniFile.Free;
end;

procedure TForm1.WriteParams;
Var IniFile:TIniFile;
begin
IniFile:=TIniFile.Create('project.i ni');
IniFile.WriteString('Edit','EditTex t',Edit.Text);
IniFile.Free;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
ReadParams;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
WriteParams;
end;

Где вы видели чтобы так писали:
procedure TForm1.ReadParams;
Var IniFile:TIniFile;
begin
IniFile:=TIniFile.Create('project.ini');
Form1.Top:=IniFile.ReadString('Edit','EditText',Edit.Text);
IniFile.Free;
end;
Если хотите на форму, то: Form1.Title:=IniFile.ReadString('Edit','EditText',Edit.Text); или Form1.Caption:=IniFile.ReadString('Edit','EditText',Edit.Text);
Тут надо Edit читать/записывать: Edit1.Text:=IniFile.ReadString('Edit','EditText',Edit.Text);

[Stilet]

Ребята будьте проще : WriteComponentResFile('MyEdit.res', TComponent(edit1));

[Aleksandr]

Вот еще один код с ini файлом

procedure TForm1.FormCreate(Sender: TObject);
var
  names: TStringList;
  F: TIniFile;
     begin
  F := TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'config.ini');
  Edit1.Text := F.ReadString('tools', 'текст', '0');
  names := TStringList.Create;
   F.ReadSection('files', names);
   names.Destroy;
   F.Destroy;
end;
procedure TForm1.FormDestroy(Sender: TObject);
var
  F: TIniFile;
  i: integer;
begin
  F := TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'config.ini');
    F.WriteString('tools', 'текст', Edit1.Text);
  F.Free;
 end;
end.

[niva622]

да люди не мучайтесь я уже нашёл самый простой способ и ЭФЕКТИВНЫЙvarini:TiniFile;ini:=Tini File.Create(ExtractFilePath(Applica tion.ExeName)+'dock.ini');edit.Text :=ini.ReadString('test1', 'test2', Combo.Text);