Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 01.03.2023, 16:27   #1
Eugene_Stoun
Пользователь
 
Аватар для Eugene_Stoun
 
Регистрация: 14.06.2013
Сообщений: 56
По умолчанию Memo и HTML

Всех приветствую! Есть строки в Memo, пример:

00001 aaaaa bbbbb ddddd ccccc
00002 aaaaa bbbbb ddddd ccccc
00003 aaaaa bbbbb ddddd ccccc
00004 aaaaa bbbbb ddddd ccccc
00005 aaaaa bbbbb ddddd ccccc
00006 aaaaa bbbbb ddddd ccccc

00007 aaaaa bbbbb ddddd ccccc
00008 aaaaa bbbbb ddddd ccccc
00009 aaaaa bbbbb ddddd ccccc
00010 aaaaa bbbbb ddddd ccccc
00011 aaaaa bbbbb ddddd ccccc
00012 aaaaa bbbbb ddddd ccccc

Надо, чтобы при нажатии на кнопку в Memo появлялся HTML код:
Код:
<tr>
<td>00001 aaaaa bbbbb ddddd ccccc</td> 
<td>00002 aaaaa bbbbb ddddd ccccc</td>
<td>00003 aaaaa bbbbb ddddd ccccc</td> 
<td>00004 aaaaa bbbbb ddddd ccccc</td> 
<td>00005 aaaaa bbbbb ddddd ccccc</td> 
<td>00006 aaaaa bbbbb ddddd ccccc</td>  
</tr>

<tr>
<td>00007 aaaaa bbbbb ddddd ccccc</td> 
<td>00008 aaaaa bbbbb ddddd ccccc</td>
<td>00009 aaaaa bbbbb ddddd ccccc</td> 
<td>00010 aaaaa bbbbb ddddd ccccc</td> 
<td>00011 aaaaa bbbbb ddddd ccccc</td> 
<td>00012 aaaaa bbbbb ddddd ccccc</td>
</tr>
и так далее. Я пытался сделать так:

Код:
var i:integer;
begin
 with Memo2 do begin
  for i:=0 to Lines.Count-1 do   Lines[i]:='<tr><td>'+Lines[i]+'</td></tr>';
  Text:='<table border="1" cellspacing="0" style="background-color:#b0e0e6; border-collapse:collapse;">'
  +
  Text+'</table>';
  Text:=StringReplace(Text,'#9','</td><td>',[rfreplaceall]);
end;
end;
Но получается так:
Код:
<tr><td>00001 aaaaa bbbbb ddddd ccccc</td></tr> 
<tr><td>00002 aaaaa bbbbb ddddd ccccc</td></tr> 
<tr><td>00003 aaaaa bbbbb ddddd ccccc</td></tr> 
<tr><td>00004 aaaaa bbbbb ddddd ccccc</td></tr> 
<tr><td>00005 aaaaa bbbbb ddddd ccccc</td></tr> 
<tr><td>00006 aaaaa bbbbb ddddd ccccc</td></tr>  


<tr><td>00007 aaaaa bbbbb ddddd ccccc</td></tr> 
<tr><td>00008 aaaaa bbbbb ddddd ccccc</td></tr> 
<tr><td>00009 aaaaa bbbbb ddddd ccccc</td></tr> 
<tr><td>00010 aaaaa bbbbb ddddd ccccc</td></tr> 
<tr><td>00011 aaaaa bbbbb ddddd ccccc</td></tr> 
<tr><td>00012 aaaaa bbbbb ddddd ccccc</td></tr>
Прошу небольшой помощи или направления куда копать. Всем заранее спасибо!
Учиться, учиться и еще раз учиться!

Последний раз редактировалось Eugene_Stoun; 01.03.2023 в 16:33.
Eugene_Stoun вне форума Ответить с цитированием
Старый 01.03.2023, 16:40   #2
evg_m
Старожил
 
Регистрация: 20.04.2008
Сообщений: 5,515
По умолчанию

Цитата:
или направления куда копать
анализировать (проверять) текущую строку
Код:
if line[i] ='' then line[i]:='<tr>' 
else if ....// :='</tr>'
else line[i]:='<td>' +Line[i] +</td>';
Код:
for j:=lines.count-1 downto 0 do begin
  if line[i]='' then begin 
    lines.insert(j+1, '</tr>');
    lines.insert(j-1, '<tr>');
  end
  else line[i]:='<td>' +line[i] +'</td>';
end;
// убрать лишнее /добавить недостающее в конце и начале
программа — запись алгоритма на языке понятном транслятору

Последний раз редактировалось evg_m; 01.03.2023 в 16:48.
evg_m вне форума Ответить с цитированием
Старый 02.03.2023, 13:11   #3
Eugene_Stoun
Пользователь
 
Аватар для Eugene_Stoun
 
Регистрация: 14.06.2013
Сообщений: 56
По умолчанию

Смог решить проблему при помощи поиска и затем последующей подстановки тегов.
Учиться, учиться и еще раз учиться!
Eugene_Stoun вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Загрузить в memo html без тегов daaa Общие вопросы Delphi 2 09.01.2014 15:59
HTML из Webbrowser в Memo Nikk[UA] Работа с сетью в Delphi 6 12.05.2012 16:42
Memo HTML Aleksandr69 Общие вопросы Delphi 7 25.03.2011 10:21
Текст HTML документа в Memo Delpinist Компоненты Delphi 9 09.09.2009 13:19