Не , Все не то .
Вот пример базы :
Код:
!Some programm
ляляля
ваоыдала
фыв
аф
ывп
ыафп
впр
end
!Some other programm
вшагфыовадлыфоа
фвыа
фыва
ыфв
а
ыфа
end
Вся фишка в том что не известно сколько строк в описании.
Я думал сделать так :
1. Выбераем прогу. (acdsee например)
2. В базе идет поиск :
Код:
var
fbase : TextFile;
a : String;
begin
.....
repeat
if Readln(fbase,a)='!'+Form1.ListBox1.Items[Form1.ListBox1.ItemIndex] then begin
// И удалять до слова 'end' . Но как удалять ???
end;
until EOF(fbase)
end;