Сохранить в файл

[MAZADA]

Подскажите как сохранить Едит в текстовый файл?

[TaYgA]

Очень просто

procedure TForm1.Button1Click(Sender: TObject);
var
   f: TextFile;
begin
  AssignFile(f,'имя файла');
  ReWrite(f);
  Writeln(f,Edit1.Text);
  CloseFile(f);
end;

При нажатии на кнопку в файл сохраняется поле Edit Только причём тут БД в Delphi ?!?!?!

[MAZADA]

ааа... ну да...
Лан все оно хорошо сохраняет, но когда оно его загружает то в один Едит загружает все что сохранило все строчки!
Как сделать чтоб оно открывало в том порядке как и сохраняло?

[XeruH]

Для этого должны быть какие-то разделители между тем что должно быть запихнуто в разные едиты.

[MAZADA]

Плис любой пример з разделителями?
Edit2.Text,' ',edit7.text,
Получается что разделитель это пробел.
Значит нужно чтоб оно щетало от 0 до пробела или как?
Может я вопше не про то думаю!

[XeruH]

А как записано в файле? 'едит1_текст едит2_текст' если так то разделитель пробел. Берешь строку из файла потом разбиваешь через пробелы.

Можно через DelimitedText у TStringList (в справке все написано)

[MAZADA]

вот в файле записано таким образом
123 123 0,037 0,02035 0,03145

а можна пример бо не понимаю!

[XeruH]

Только я не проверял этот код. Негде. И FindComponent может и не найти компонент (ну если его нету) не помню что там тогда возвращается или возбуждается исключение. Надо тоже это обрабатывать.

var
  str, s: string;
  i,n: integer;

begin
  // здесь получаешь строку из файла
  ...
  s:='';
  n:=0;
  for i:=1 to Length(str) do
  begin
    if str[i]<>' ' then s:=s+str[i];
    if (str[i]=' ') or (i=Length(s)) then
    begin
      n:=n+1;
      TEdit(FindComponent('Edit'+IntToStr(n)).Text := s;
      s:='';
    end;
  end;
end;

[MAZADA]

XeruH оно не работает и вопше какой то сложный пример.
Кто не будь подскажите как сделать?

[MAZADA]

И как сделать чтоб оно в текстовому файле сохраняло с нового рядка, допустим.
Едит1=1 едит2=2 едит3=3 сохраняло первой строке а Едит4=4 едит5=5 Едит6=6 сохраняло в новой рядке!
1 2 3
4 5 6