сохранение

[1234]

ребят как мне сохранить текст написанный в едите а при загрузке обратно загружать этот текст в этот же едит

[Terran]

Для сохранения я обычно использую ini файлы. Хотя можно сохранять и в реестре. Но с ini мне кажется немного проще и удобней. Для того что бы сохранить текст Edita вы можете сделать так:

Uses
  IniFiles,...
-----------
Type
  TForm1 = Class(TForm)
    Edit1: TEdit;
    ......
    Procedure ReadParams; // процедура чтения параметров
    Procedure WriteParams; // процедура записи параметров
-----------
procedure TForm1.ReadParams;
Var
IniFile:TIniFile; // объявление переменной, через которую будут обрабатываться данные
begin
IniFile:=TIniFile.Create('project.ini'); // создаем переменную
Edit1.Text:=IniFile.ReadString('FORM1','Edit1Text',Edit1.Text); // текст в Edit1
IniFile.Free; // если сами создаем, то сами уничтожаем.
end;
.......
procedure TForm1.WriteParams;// Запись
Var IniFile:TIniFile;
begin
IniFile:=TIniFile.Create('project.ini');
IniFile.WriteString('FORM1','Edit1Text',Edit1.Text);
IniFile.Free;
end;
.......
Procedure TForm1.FormClose(Sender: TObject; Var Action: TCloseAction);
Begin
WriteParams;
End;
.......
Procedure TForm1.FormCreate(Sender: TObject);
Begin
ReadParams;
End;

[1234]

большое спасибо но мне нужно сохранить в текстовый фаил

[Terran]

1234 , а вам надо именно из Edit'a сохранять? Просто из RichEdit'a или из Memo было бы проще и удобнее сохранять и загружать текст.

[Ozerich]

var f:textfile;
s:string;
begin
//сохранение
Assignfile(f,'1.txt');
Rewrite(f);
s:=edit1.text;
writeln(f,s);
Closefile(f);
--------
//загрузка
assignfile(f,'1.txt');
reset(f);
readln(f,s);
edit1.text:=s;
closefile(f);

[1234]

пускай будет мемо к слову мемо1 как его сохранить а при загрузки программы обратно загрузить

[Ozerich]

Memo1.lines.savetofile('1.txt')
-----------------
memo1.lines.loadfromfile('1.txt');

[1234]

Ozerich а нельзя тоже самое только с едитом

[Terran]

Для Memo этот код будет выглядеть так:

Procedure TForm1.FormCreate(Sender: TObject);
Begin
If FileExists('1.txt') Then
Begin
Memo1.Lines.LoadFromFile('1.txt');
End;
End;
Procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
Begin
Memo1.Lines.SaveToFile('1.txt');
End;

Хотя Ozerich уже дал исчерпывающий ответ на ваш вопрос.

[Ozerich]

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

Ozerich а нельзя тоже самое только с едитом

нет.нельзя