Удаление строки в memo - Общие вопросы Delphi

dubailand · 20.12.2011, 22:34

Добрый вечер!
Наконец то добрался до проекта. Идет обработка html кода в мемо и удаляются ненужные строки. Разработал такой алгоритм:

Код:

    for i:=0 to n do
    begin
         if memo1.Lines[i]='<head>' then for p:=i downto 0 do memo1.Lines.Delete(p);
    end;

Все работает практически как надо. Входные данные:

PHP код:


			
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">

<!-- toodoo-key: KnA0gugtsB7jtGFcU3HuU -->

<html>

<head>

<link href="style.css" rel="stylesheet" type="text/css">

<script type="text/javascript" src="http://site.ru/popup-domination/js.php"></script>

</head>

Выходные получаются:

PHP код:


			
head> ////Удаляет первый символ

<link href="style.css" rel="stylesheet" type="text/css">

<script type="text/javascript" src="http://site.ru/popup-domination/js.php"></script>

</head>

Почему удаляется этот первый символ??? Нигде ничего подобного не прописано, а строка именно новая. Открывающий символ должен же остаться. В чем дело???

Gagarik · 21.12.2011, 08:41

Попробовал твой пример. удалился не только первый символ, но и вся строка c <head>
А почему бы ей не удалиться. ты находишь строку с <head>, она равна i.
Затем p:=i и Delete(p).
Я бы сделал так (без цикла по строкам)

Код:

str := memo1.Text;
 Delete(str, 1, pos('<head>', memo1.Text)-1);
 memo1.Text := str;

chertovich · 21.12.2011, 11:07

dubailand, как я понял, нужно получить содержимое тега <head> ?.
На мой взгляд, не очень хороший алгоритм, надо придумать что-то универсальное.

grafgrial · 21.12.2011, 11:56

не легче сделать так

Код:

delete (Memo1.text,1,pos('<head>',Memo1.text))

Если необходимо удалить до тега <head>

chertovich · 21.12.2011, 12:12

Цитата:

Сообщение от grafgrial

не легче сделать так

Код:

delete (Memo1.text,1,pos('<head>,Memo1.text'))

Если необходимо удалить до тега <head>

Нельзя передавать в качестве var параметра подпрограммы свойство.

grafgrial · 21.12.2011, 15:56

Цитата:

Сообщение от chertovich

Нельзя передавать в качестве var параметра подпрограммы свойство.

Не совсем понял о чем вы?

Serge_Bliznykov · 21.12.2011, 16:04

Цитата:

Сообщение от grafgrial

Не совсем понял о чем вы?

Цитата:

Код:

 delete (Memo1.text,1,pos('<head>',Memo1.text))

[Error] Unit1.pas(30): Constant object cannot be passed as var parameter

нельзя передавать объект/свойство в качестве переменной.
Memo1.Text - это на самом деле не строка, а свойство..

можно так:

Код:

var s : string;
    k : integer;
begin
.....
 s := Memo1.Text;
 k := pos('<head>',s);
 if k>1 then begin
    delete (s,1,k-1);
    Memo1.Text := s;
 end;
.....

p.s. я написал код, который заменяет то, что Вы привели, не больше и не меньше. В суть решаемой проблемы я не вдавался, извините...

20.12.2011, 22:34	#1
dubailand Пользователь Регистрация: 16.01.2011 Сообщений: 65	Удаление строки в memo Добрый вечер! Наконец то добрался до проекта. Идет обработка html кода в мемо и удаляются ненужные строки. Разработал такой алгоритм: Код: `for i:=0 to n do begin if memo1.Lines[i]='<head>' then for p:=i downto 0 do memo1.Lines.Delete(p); end;` Все работает практически как надо. Входные данные: PHP код: `<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd"> <!-- toodoo-key: KnA0gugtsB7jtGFcU3HuU --> <html> <head> <link href="style.css" rel="stylesheet" type="text/css"> <script type="text/javascript" src="http://site.ru/popup-domination/js.php"></script> </head>` Выходные получаются: PHP код: `head> ////Удаляет первый символ <link href="style.css" rel="stylesheet" type="text/css"> <script type="text/javascript" src="http://site.ru/popup-domination/js.php"></script> </head>` Почему удаляется этот первый символ??? Нигде ничего подобного не прописано, а строка именно новая. Открывающий символ должен же остаться. В чем дело???

21.12.2011, 08:41	#2
Gagarik Пользователь Регистрация: 14.11.2011 Сообщений: 13	Попробовал твой пример. удалился не только первый символ, но и вся строка c <head> А почему бы ей не удалиться. ты находишь строку с <head>, она равна i. Затем p:=i и Delete(p). Я бы сделал так (без цикла по строкам) Код: `str := memo1.Text; Delete(str, 1, pos('<head>', memo1.Text)-1); memo1.Text := str;`

21.12.2011, 11:07	#3
chertovich Форумчанин Регистрация: 26.07.2009 Сообщений: 489	dubailand, как я понял, нужно получить содержимое тега <head> ?. На мой взгляд, не очень хороший алгоритм, надо придумать что-то универсальное. Если в глубине души вы программист, то, следуя своим наклонностям, вы захотите написать кусок кода.

21.12.2011, 11:56	#4
grafgrial Просто хороший Форумчанин Регистрация: 26.03.2010 Сообщений: 562	не легче сделать так Код: `delete (Memo1.text,1,pos('<head>',Memo1.text))` Если необходимо удалить до тега <head> Помог, нажми весы слева Последний раз редактировалось grafgrial; 21.12.2011 в 15:56.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Удаление лишних символов из Memo	NSV	Общие вопросы Delphi	10	23.11.2012 08:38
Удаление части строк в memo	igabenu	Помощь студентам	3	17.10.2012 17:47
Удаление строк в Memo	Marsel737	Общие вопросы Delphi	8	03.01.2010 10:42
Удаление строк из Memo	Leksda	Общие вопросы Delphi	6	20.03.2009 15:31
Удаление конкретной строки Memo	JakSon	Общие вопросы Delphi	6	03.03.2008 09:35