как сохранить текст?

[blackstersl]

привет. Вопрос немного туповат, но как по закрытию формы сохранить текст в edit-e в файл (.txt)? а по созданию формы текст сново загружался в edit.Спасибо.

[Bayazet]

событие для onClose формы:

var
  t : TextFile;
begin
  AssignFile(t, 'C:\text.txt');
  Rewrite(t);
  Writeln(t, Edit1.Text);
  CloseFile(t);
end;

событие OnCreate вашей формы

var
  t : TextFile;
begin
  AssignFile(t, 'C:\Text.txt');
  Reset(t);
  Readln(t, Edit1.Text);
  Close(t);
end;

[SERG1980]

Поаробуйте через Ini файлы

[blackstersl]

Bayazet спасибо но на строчке Readln(t, Edit1.Text); выдаёт ошибку.

[apromix]

В событие закрытия формы пишите

var
  Ini: TIniFile;
begin
  Ini:= TINIFile.Create('Файл');
  Result := Ini.WriteString('Project', 'Name', Edit1.Text);
  Ini.Free;
end;

Аналогично для открытия нужно считывать с ini-файла.

[blackstersl]

Спасибо -)

[Alter]

Вот ещё проще:

var
  Form1: TForm1;
  Procedure SaveTxt(S, Path :String);
  Function ReadTxt(Path :String):String;

implementation

{$R *.dfm}

Procedure SaveTxt(S, Path :String);
var L :TStrings;
begin
 L := TStringList.Create;
  Try
 L.Text := S;
 L.SaveToFile(Path);
  Finally
 L.Free;
  End;
end;

Function ReadTxt(Path :String):String;
var L :TStrings;
begin
 Result := '';
  If Not FileExists(Path) then EXit;
 L := TStringList.Create;
  Try
 L.LoadFromFile(Path);
 Result := L.Text;
  Finally
 L.Free;
  End;
end;