Откуда я знаю ?
Но очень часто нужно сначала обработать правую часть, а потом левую и приходится "лепить горбатого"
Поэтому вопрос
nesco писал(а):
почему этого никто не сделал раньше почему люди в каменном веке не пользовались (....)
в скобках можешь перечислить все, что душе угодно, начав с любого, что прийдет в голову и до атомной энергии.
------------ Дoбавленo:
Почему:
#pas
procedure THIStrPart._work_doSplit;
var str:string;
begin
if (_prop_Char = ') then exit;
str := ReadString(_Data,_data_Str,');
if (pos(_prop_Char,str) = 0) then
_hi_CreateEvent(_Data,@_event_onNotFound,str)
else if(str <> ') then // ПОЧЕМУ ПРОВЕРКА НА ПУСТУЮ СТРОКУ В ЭТОМ МЕСТЕ, А НЕ ПОСЛЕ ЧТЕНИЯ СТРОКИ
begin
FLeft := GetTok(str,_prop_Char[1]);
_hi_OnEvent(_event_onPart,FLeft);
_hi_CreateEvent(_Data,@_event_onSplit,str);
end;
end;
------------ Дoбавленo:
и ПОЧЕМУ НЕЛЬЗЯ
#pas
.....................................
begin
FLeft := GetTok(str,_prop_Char[1]);
If _prop_Event then
begin
_hi_OnEvent(_event_onPart,FLeft);
_hi_CreateEvent(_Data,@_event_onSplit,str);
end
else
begin
_hi_OnEvent(_event_onPart,str);
_hi_CreateEvent(_Data,@_event_onSplit,FLeft);
end;
end;
Поиск
Друзья
Администрация