как из edit сохранить в файл

[Betty]

Скажите пожалуйста!!
как из edit сохранить в файл.
как из файла загрузить в label (загружать определённую строку)

[profi]

Можно сделать две кнопки и использовать SaveDialog и OpenDialog

Сохраняем в файл:

procedure TForm1.N2Click(Sender: TObject);
begin
if SaveDialog1.Execute then
AssignFile(f, SaveDialog1.FileName);
Rewrite(f);
write(f,Edit1.Text);
closefile(f);
end;

Читаем из файла:

procedure TForm1.N4Click(Sender: TObject);
begin
if OpenDialog1.Execute then
AssignFile(f, OpenDialog1.FileName);
reset(f);
while not eof(f) do
read(f,resf);
Label1.Caption:=IntToStr(resf);
closefile(f);
end;

[ArtInt]

А чтобы легче было находить запись можно объявить переменную TStringLis
Например:

var
  List: TStringList;
  str: string;
procedure FromFile;
begin
  List:=TStringList.create;
  AssignFile(f,'text.txt');
  reset(f);
  while not eof(f) do
  read(f,str); 
  List.items.Add(str);
  closefile(f);
end;

end;

Потом просто обращаетесь к необходимой строчке из List. И в конце работы с ней не забудьте ее освободить. List.Free;

[Betty]

мне нужно именно из label и в label (НЕ memo)

[KORN]

создаешь переменную Tstrings загружаешь в нее с помощью loadfromfile и используя strings[номер строки] показываешь ее в label, а что бы сохранить используй SaveToFile

[SERG1980]

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

А чтобы легче было находить запись можно объявить переменную TStringLis
Например:

var
  List: TStringList;
  str: string;
procedure FromFile;
begin
  List:=TStringList.create;
  AssignFile(f,'text.txt');
  reset(f);
  while not eof(f) do
  read(f,str); 
  List.items.Add(str);
  closefile(f);
end;

end;

Потом просто обращаетесь к необходимой строчке из List. И в конце работы с ней не забудьте ее освободить. List.Free;

а не легче ли

var
  List: TStringList;
  str: string;
procedure FromFile;
begin
  List:=TStringList.create;
  List.LoadfromFile('text.txt');
end;