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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Memo - оригинальный текст 
:(
    Опции темы
MrRadu
Дата 21.4.2013, 00:48 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Толи я дурак то ли лыжи не едут.
Задам вопрос по простому, 
есть текст, есть Memo, загружаю текст в Memo 
Код

Memo1.Text:=MyText;

Текст загружается в одну линию. 
Как загрузить в memo текст в оригинальном варианте? со всеми переносами строк. 

Пишут что нельзя. А где то пишут что можно, но не пишут как.

Текст который я получаю, сначала находиться в формате TStrings
Соответственно в мемо вывожу так
Код

Memo1.Text:=MyText.Text;

delphi 2010

Это сообщение отредактировал(а) MrRadu - 21.4.2013, 00:48
PM MAIL ICQ Skype   Вверх
northener
Дата 21.4.2013, 01:48 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1361
Регистрация: 2.9.2010

Репутация: 12
Всего: 20
Цитата(MrRadu @  21.4.2013,  00:48 Найти цитируемый пост)
Задам вопрос по простому, 
есть текст, есть Memo, загружаю текст в Memo 

Memo1.Text:=MyText;

Текст загружается в одну линию. 

И это значит "по простому"?
А что такое MyText? 


--------------------
Но только лошади летают вдохновенно.
Иначе лошади разбились бы мгновенно!
PM MAIL   Вверх
DarkProg
Дата 21.4.2013, 10:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Законченный романтик
***


Профиль
Группа: Завсегдатай
Сообщений: 1784
Регистрация: 11.3.2009
Где: Земля

Репутация: 4
Всего: 19
Цитата(MrRadu @  21.4.2013,  00:48 Найти цитируемый пост)
Как загрузить в memo текст в оригинальном варианте? со всеми переносами строк. 

А в тексте есть переносы строк? Если их нет, то и отображаться они не будут.


--------------------
"И твоя голова всегда в ответе за то куда сядет твой зад..."

"Я студент - скажите с какого я ВУЗа..."

 smile  smile  smile 
PM MAIL   Вверх
MrRadu
Дата 21.4.2013, 13:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Цитата(DarkProg @ 21.4.2013,  10:10)
Цитата(MrRadu @  21.4.2013,  00:48 Найти цитируемый пост)
Как загрузить в memo текст в оригинальном варианте? со всеми переносами строк. 

А в тексте есть переносы строк? Если их нет, то и отображаться они не будут.

Есть. Если я затем напишу
Label1.Caption:=Memo1.Text;
 
То он выведет мне текст в оригинале, со всеми переносами.

Добавлено через 5 минут и 55 секунд
Цитата(northener @ 21.4.2013,  01:48)
Цитата(MrRadu @  21.4.2013,  00:48 Найти цитируемый пост)
Задам вопрос по простому, 
есть текст, есть Memo, загружаю текст в Memo 

Memo1.Text:=MyText;

Текст загружается в одну линию. 

И это значит "по простому"?
А что такое MyText?

По просто, значит без всех моих лишних действий.

Пожалуйста, не по простому

Код

text:=Form2.IdHTP1.Get('ЗАПРОС'); // делаю get запрос
sl:=TStringList.Create; // 
sl.Assign(url.ParsXMLArr(text,'text')); // парсю данные через свой парсер. 
mmo1.Text:=(sl.Text); //полученные данные вывожу  мемо
L_3.Caption:=form8.mmo1.Text; // и вывожу их из мемо в Label, просто чтобы посомтреть оригинал текста.
FreeAndNil(sl);


 как вывести оригинальный текст в Memo, со всеми переносами строк.
MyText - это обычный текст.

Возможно не правильно делаю. Буду рад если скажете как.
PM MAIL ICQ Skype   Вверх
Poseidon
Дата 21.4.2013, 15:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Delphi developer
****


Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 9
Всего: 133
Цитата(MrRadu @  21.4.2013,  13:34 Найти цитируемый пост)
MyText - это обычный текст.

MrRadu, разберись все же сам, что у тебя и где. Лично я вижу:
Цитата(MrRadu @  21.4.2013,  00:48 Найти цитируемый пост)
Memo1.Text:=MyText;

Цитата(MrRadu @  21.4.2013,  00:48 Найти цитируемый пост)
:Memo1.Text:=MyText.Text;

В первом случае MyText - это явно текст. А вот во втором - это явно TStringList. Едем дальше, ты получаешь текст из ParsXMLArr. Что там? Каким образом расставляются переносы? Что вообще дает функция в результат? Почему ты используешь  sl.Assign, если можно либо sl.AddStrings, либо sl.Add?

Цитата(MrRadu @  21.4.2013,  13:34 Найти цитируемый пост)
text:=Form2.IdHTP1.Get('ЗАПРОС'); // делаю get запрос
sl:=TStringList.Create; // 
sl.Assign(url.ParsXMLArr(text,'text')); // парсю данные через свой парсер. 
mmo1.Text:=(sl.Text); //полученные данные вывожу  мемо
L_3.Caption:=form8.mmo1.Text; // и вывожу их из мемо в Label, просто чтобы посомтреть оригинал текста.
FreeAndNil(sl);

Если у тебя sl: TStringList, то в memo это дело лучше добавлять как mmo1.Lines.AddStrings(sl)


--------------------
Если хочешь, что бы что-то работало - используй написанное, 
если хочешь что-то понять - пиши сам...
PM MAIL ICQ   Вверх
Чучмек
Дата 21.4.2013, 16:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


НЭТ БИЛЭТ
**


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

Репутация: 7
Всего: 41
Не мудри.
Код

Memo1.Lines:=MyStrings;


Добавлено через 2 минуты и 15 секунд
ps В memo перенос строки #13#10, а в TStringList #13,#10,#13#10


--------------------
умную мысль держи при себе, а дурной - поделись с другими 
PM MAIL   Вверх
lollollollol
Дата 21.4.2013, 20:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: нет
Всего: нет
А я думаю всё проще, у тебя текст имеет переносы строк как в  *nix , то есть символ #10. Виндосовский перенос строк это #13#10.
Сделай в строке замену #10 на #13#10 и проблем не будет.

Добавлено @ 20:32
извиняюсь за двойной ответ, недочитал топик до конца преждем чем дать ответ


Вот так сделай

Код

Memo1.Text:=AnsiReplaceStr(MyText.Text, #10, #13#10);


Это сообщение отредактировал(а) lollollollol - 21.4.2013, 20:46
PM MAIL   Вверх
Poseidon
Дата 22.4.2013, 00:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Delphi developer
****


Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 9
Всего: 133
Цитата(Чучмек @ 21.4.2013,  16:06)
Не мудри.
Код

Memo1.Lines:=MyStrings;


А если там 5 get-запросов и 5 раз надо добавлять ответ в memo? ИМХО AddStrings использовать правильнее.


--------------------
Если хочешь, что бы что-то работало - используй написанное, 
если хочешь что-то понять - пиши сам...
PM MAIL ICQ   Вверх
northener
Дата 22.4.2013, 01:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1361
Регистрация: 2.9.2010

Репутация: 12
Всего: 20
Цитата(lollollollol @  21.4.2013,  20:31 Найти цитируемый пост)
А я думаю всё проще, у тебя текст имеет переносы строк как в  *nix , то есть символ #10. Виндосовский перенос строк это #13#10

Соглашусь пока именно с этим. С поправкой что #13#10 это не "Виндосовский перенос", а нормальный перенос.


--------------------
Но только лошади летают вдохновенно.
Иначе лошади разбились бы мгновенно!
PM MAIL   Вверх
MrRadu
Дата 25.4.2013, 23:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Цитата(lollollollol @ 21.4.2013,  20:31)
А я думаю всё проще, у тебя текст имеет переносы строк как в  *nix , то есть символ #10. Виндосовский перенос строк это #13#10.
Сделай в строке замену #10 на #13#10 и проблем не будет.

Добавлено @ 20:32
извиняюсь за двойной ответ, недочитал топик до конца преждем чем дать ответ


Вот так сделай

Код

Memo1.Text:=AnsiReplaceStr(MyText.Text, #10, #13#10);

Спасибо. Помогло.
PM MAIL ICQ Skype   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Для новичков"
SnowyMetalFan
bemsPoseidon
Rrader

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

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

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

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

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Для новичков | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




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


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

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