Удаление лишних строк в memo

[Gudzik11]

Здравствуйте !
Вот нужно из htm документа получить некоторые значения пытался по разному но вычитал на этом сайте такой парсер ECXMLParser и там был пример .

procedure TForm1.Button2Click(Sender: TObject);

  procedure DrawXMLItem(XMLItem: TXMLItem);
  var
    I : Integer;
  begin
    Memo1.Lines.Add(XMLItem.Name+' : '+XMLItem.Text);
    for i := 0 to XMLItem.SubItemCount-1 do
      DrawXMLItem(XMLItem.SubItems[i]);
  end;

begin
  XML.LoadFromFile('E:\file.xml'); //любой xml файл, для тестирования можно и здесь указать
  Memo1.Lines.BeginUpdate;
  DrawXMLItem(XML.Root);
  Memo1.Lines.EndUpdate;
end;

Вот я всё сделал по примеру .Получил в memo текст такого содержания

span : скрыть
div : 
div : 
div : 
div : 
div : 
p : 
a : Понедельник
p : 09
p : апреля
div : 
img : 
div : 
div : мин.
span : +10
div : макс.
span : +17
div : 
div : 
p : 
a : Вторник
p : 10
p : апреля
div : 
img : 
div : 
div : мин.
span : +5
div : макс.
span : +14
div : 

Так вот можно как то сделать так? чтб такие строки как

div : 
img : 
div :

удалить тоест если после : нет записи то строка удалялась .

[Alex11223]

А чего за html документ? Что получить нужно? Может и никакой ECXMLParser не нужен.

если после : нет записи то строка удалялась .

for i := 0 to memo1.count-1 do
  if (memo1.lines[i] = 'div :') or (memo1.lines[i] = 'img :') then
    memo1.lines.delete(i);

[Gudzik11]

[QUOTE=Alex11223;1018009]А чего за html документ? Что получить нужно? Может и никакой ECXMLParser не нужен.

Документ прикрепил .
Может и правда есть красивей способ.
А насчёт кода то там не только div : и img : там их много разных .
И нужно так чтоб если после div : было какое то слово тогда строка не удалялась

[Arigato]

for i := Memo1.Lines.Count - 1 downto 0  do
begin
  Line := TrimRight (Memo1.Lines[i]);
  P := Pos (':', Line);
  if ( P > 0 ) and ( Length (Line) = P ) then
    Memo1.Lines.Delete (i);
end; {for}

[Аватар]

Можно просто и не писать в мемо такие строки

if Trim(XMLItem.Text)<>'' then  Memo1.Lines.Add(XMLItem.Name+' : '+XMLItem.Text);

[Gudzik11]

Сообщение от Аватар

Можно просто и не писать в мемо такие строки

if Trim(XMLItem.Text)<>'' then  Memo1.Lines.Add(XMLItem.Name+' : '+XMLItem.Text);

А куда его вставить надо ?

можете какой небуть пример написать ?

[Arigato]

Вместо этого вставляй:

Memo1.Lines.Add(XMLItem.Name+' : '+XMLItem.Text);

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

[Gudzik11]

Спасибо ! и правда неплохо получается ))
а как теперь выводить эти значения?