Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.12.26;
Скачать: CL | DM;

Вниз

Обработка блоков текста   Найти похожие ветки 

 
Stot1k   (2004-12-13 19:41) [0]

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

Например, исходные данные вводятся в таком формате:
блок1 блок1 блок1 блок1
блок1 блок1 блок1
блок1 блок1 блок1

блок2 блок2 блок2 блок2
блок2 блок2 блок2 блок2
блок2 блок2 блок2 блок2


А набо, что бы получалось так:
---начало---
блок1 блок1 блок1 блок1
блок1 блок1 блок1
блок1 блок1 блок1
--конец---

---начало---
блок2 блок2 блок2 блок2
блок2 блок2 блок2 блок2
блок2 блок2 блок2 блок2--конец---


Помогите написать такой алгоритм... Ну очень надо!!! Спасибо!


 
Cobalt ©   (2004-12-13 19:48) [1]

В чём собственно проблема - непонятно...


 
begin...end ©   (2004-12-13 19:50) [2]

> Stot1k   (13.12.04 19:41)

> Помогите написать такой алгоритм

Находить пустую строку в Memo (цикл по Memo.Lines); вставлять до и после неё строки "начало" и "конец" (Memo.Lines.Insert).


 
Stot1k   (2004-12-13 21:05) [3]

Я просто синтаксис плохо знаю... Логимчески понимаю, а реализовать не могу.


 
begin...end ©   (2004-12-13 21:22) [4]

> [3] Stot1k   (13.12.04 21:05)

> Я просто синтаксис плохо знаю... Логимчески понимаю, а реализовать
> не могу.

Да я бы на Вашем месте прыгал бы до потолка от счастья. Реализация на конкретном языке - это уж дело десятое. Понимание того, как вообще задача решается - вот это, ИМХО, самое главное. Ведь тогда для её решения достаточно почитать справку, подучить синтаксис - и всё.

Впрочем, сам я - не программист, и вряд ли когда-нибудь им буду, просто вот такое у меня ИМХО.

Ну попробуйте так (не проверял):

var
 I: Integer;
begin
 with Memo, Lines do
 begin
   Insert(0, "-начало-");
   Insert(Count, "-конец-");
   I := 0;
   while I < Count do
   begin
     if Lines[I] = "" then
     begin
       Insert(I, "-конец-");
       Insert(I + 2, "-начало-");
       Inc(I, 2)
     end;
     Inc(I)
   end
 end
end.


 
Stot1k   (2004-12-13 21:34) [5]

begin...end, огромнейшее спасибо! Все работает!!! ;)



Страницы: 1 вся ветка

Текущий архив: 2004.12.26;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.027 c
9-1093143246
Xerx
2004-08-22 06:54
2004.12.26
Где достать модели косм. кораблей?


4-1100223060
alo
2004-11-12 04:31
2004.12.26
перетаскивание текста из других приложений


14-1102013412
PurchaseDelphi
2004-12-02 21:50
2004.12.26
Где можно купить Лицензионную Delphi 3-6


1-1102695692
Dema-X
2004-12-10 19:21
2004.12.26
из dynamic Child зделать nill


1-1102855757
Piter
2004-12-12 15:49
2004.12.26
Как у библиотеки задать версию и разработчика?