Модераторы: Snowy, MetalFan, bems, Poseidon
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Перенос текста на другую строку 
V
    Опции темы
Wan22
Дата 7.1.2011, 08:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 21
Регистрация: 28.12.2010

Репутация: нет
Всего: нет



  Может плохо искал, но ничего подходящего для решения данного вопроса не нашел.
   Ситуация такова:
На форме - компонент 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.

PM MAIL   Вверх
chip_and_dayl
Дата 7.1.2011, 10:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 603
Регистрация: 22.4.2007
Где: Украина, Киев

Репутация: 1
Всего: 9



А вместо 

Код

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


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

Код

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


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

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


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

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

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


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


--------------------
Фсё будет хорошо!!!
PM MAIL Skype   Вверх
Wan22
Дата 7.1.2011, 11:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 21
Регистрация: 28.12.2010

Репутация: нет
Всего: нет



Спасибо. smile  Честно говоря, ведь мелькала мысль прописать два раза Writeln, но чет я её пропустил и пока другое городил, про это забыл  smile 
PM MAIL   Вверх
Snowy
Дата 7.1.2011, 11:25 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 31
Всего: 484



В windows #13#10, в линуксе #10
13,10 - сложилась исторически. Пришла к нам из древних времён больших компьютеров и первых терминалов.
13 - возврат курсора в начало строки экрана, 10 - переход на следующую строку.
PM MAIL   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Для новичков"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.

 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Для новичков | Следующая тема »


 




[ Время генерации скрипта: 0.0982 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.