Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

директива INCLUDE своими силами, или Собираем файл из шаблонов.

NA © (2002-10-19 14:13:00)
Вот такая задача возникла, с какой стороны лучше подобраться? При этом:
а)вставка очередного внешнего файла может производиться в разрыв строки;
б)не должно быть ограничений длины в 255 знаков (string);
в)вставки могут быть вложенными.

Просится создать MemoryStream, по идее. Но, опять же - как правильнее подобраться? И - может, есть пример, от которого можно оттолкнуться? Мне вроде не попался пока :(

NA (2002-10-20 11:17:00) [1]
Спасибо! Я обрел ума, оба варианта интересны.

2Оливейра ©: какой циничный и одновременно простой способ 0:-)

Оливейра (2002-10-19 15:26:00) [2]
В свое время у меня примерно такая же задача была - поделка для построения многоязычного сайта, UTF-8 в конечном HTML не допускался, некоторые части шаблона документа были языкозависимыми, некоторые - нет.
Схему документа хранил в XML.
<?xml version="1.0" encoding="utf-8"?>
<part type="independent" filename="head.inc"/>
<part type="dependent">
<subpart lang="en" filename="titleeng.inc"/>
<subpart lang="fr" filename="titlefr.inc"/>
</part>
...

И окончательный HTML генерил парсингом.

TTCustomDelphiMaster (2002-10-19 14:40:00) [3]
Для решения такой задачи подойдет рекурсия.

procedure IncludeFile(InStream, OutStream: TStream; Nvl: word);
var
NewInStream;
begin
// Защита от зацикливания
if Nvl >= MaxNvl then
Exit;
// Перемещение данных из InStream в OutStream с одновременной
// проверкой наличия директив include
...
// Если найдена директива include вставляем файл с этого места
if FindInclude then
try
NewInStream := TFileStream.Create(GetNewFileName(), fmOpenRead or fmShareExclusive); // Защита от зацикливания. Если файл открыт возникнет исключительная ситуация.
IncludeFile(NewInStream, OutStream, Nvl + 1);
NewInStream.Free;
except
end;
end;

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »