Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Для новичков > Перенос текста на другую строку

Автор: Wan22 7.1.2011, 08:19

  Может плохо искал, но ничего подходящего для решения данного вопроса не нашел.
   Ситуация такова:
На форме - компонент Edit и кнопка Применить. При нажатии на кнопку, создается текстовый файл, где в верхнюю строку записывается текст по умолчанию, допустим " бла бла бла". А во вторую строку надо записать слово, что вводится в Edit, перед нажатием на кнопку. В одну то строку пишется без проблем,  как  в моем  коде. А как в 2 строки прописать?  Перенос  символом +#13  здесь не подходит. Пробовал вместо Edit применять ListBox и др. компоненты, но там свои ошибки вылазят.  Обьясните попроще,если можно, как мне это реализовать, а то я еще на начальном этапе обучения.

Код


procedure TForm2.btn1Click(Sender: TObject);
 var
  f: TextFile;
  fName: string ;
begin
  if edt1.Text > ' '  then
 begin
  fName:='1.txt';
  AssignFile(f, fName);   //Назначаю файл
  Rewrite(f);           //Открываю для перезаписи
  Writeln(f,'Это текст в первой строке', edt1.Text); {Как здесь записать, чтобы 
               текст,находящийся в Edit, был на второй строке? }
  CloseFile(f);
 end;
end;
 end.

Автор: chip_and_dayl 7.1.2011, 10:42

А вместо

Код


Writeln(f,'Это текст в первой строке', edt1.Text);

слабо сделать так

Код


Writeln(f,'Это текст в первой строке');
Writeln(f, edt1.Text);

Добавлено через 1 минуту и 13 секунд

Цитата

Может плохо искал

Не то искал. Искать нужно было, как правильно писать данные в файл

Добавлено через 3 минуты и 15 секунд

Цитата

Перенос символом +#13

#13#10 - вродь как бы smile

Автор: Wan22 7.1.2011, 11:20

Спасибо.

Честно говоря, ведь мелькала мысль прописать два раза Writeln, но чет я её пропустил и пока другое городил, про это забыл smile

Автор: Snowy 7.1.2011, 11:25

В windows #13#10, в линуксе #10
13,10 - сложилась исторически. Пришла к нам из древних времён больших компьютеров и первых терминалов.
13 - возврат курсора в начало строки экрана, 10 - переход на следующую строку.