Chesh писал(а):
Если в строке data.sdata не встречается CableNameDelimiter то случается runtime errorParse в KOL глючный, его можно заменить на тот, который я делал для StrEnum
------------ Дoбавленo в 14.00:
hitman249, на parse и остальные ошибки кабеля оно не повлияет
------------ Дoбавленo в 14.03:
Chesh писал(а):
i:=Wire.IndexOf(parse(data.sdata, CableNameDelimiter));Да вроде сейчас так и есть
procedure THICableEventNamed.Cable;
var i: integer;
begin
if not _isCable(data) then exit;
i:=Wire.IndexOf(parse(data.sdata, CableNameDelimiter));
if i>=0 then
if data.sdata=' then
_hi_onEvent_(_event_Wire[i],data.ldata^)
else
_hi_onEvent_(_event_Wire[i],data);
end;
Попробуй такой вариант, если прокатит, то исправим
uses hiStr_Enum;
procedure THICableEventNamed.Cable;
var i: integer;
begin
if not _isCable(data) then exit;
i:=Wire.IndexOf(FParse(data.sdata, CableNameDelimiter));
if i>=0 then
if data.sdata=' then
_hi_onEvent_(_event_Wire[i],data.ldata^)
else
_hi_onEvent_(_event_Wire[i],data);
end;
Поиск
Друзья
Администрация