Вверх ↑
Разработчик
Ответов: 4697
Рейтинг: 426
#1: 2009-07-15 09:07:05 ЛС | профиль | цитата
nesco, Леонид Стараюсь, только особо много то я не сделал, всего лишь добавил
#pas
public
_prop_FileName:string;

_data_FileName:THI_Event;
...
{[b]}_data_ReplaceStr:THI_Event;{[/b]}
...
_event_onGetIndex:THI_Event;
_event_onGetString:THI_Event;
да и
#pas
procedure THIStrList._work_doReplace;
var ind:integer;
begin
ind := ToIntIndex(_Data);
if (ind < 0) or (ind > FList.Count - 1) then exit;
FList.Delete(ind);
FList.Insert(ind, ReadString(_Data, {[b]}_data_replacestr{[/b]}, '));
_hi_CreateEvent(_Data, @_event_onChange);


nesco писал(а):
Assasin, (тут я потираю ладошки) привиди-ка мне схемку, доказывающую необходимость такого нововведения без применения хабов

code_14138.txt, здесь только 1 хаб, на то, чтоб заменить, а представь, пришлось бы еще ставить хабы(чтобы добавить строку строка"..." заменена на "...", чтобы поставить строку для замены, т.е лишний элемент EventFromData)
карма: 10
0
файлы: 1code_14138.txt [1.3KB] [397]