Вверх ↑
Ответов: 5227
Рейтинг: 587
#1: 2022-05-16 12:25:40 ЛС | профиль | цитата
Да я его вообще когда то утерял с HDD

Но по беглому взгляду ошибка скорей всего опять банальная


procedure THIRegExp.SetProp(var obj: OleVariant);
var dt:TData;
begin
dt := _data_Empty; // вот эту строку нужно добавить!
obj.Global := ReadInteger(dt,_data_Global,_prop_Global);
obj.IgnoreCase := ReadInteger(dt,_data_IgnoreCase,_prop_IgnoreCase);
obj.Multiline := ReadInteger(dt,_data_Multiline,_prop_Multiline);
end;

Заработает отпишись.
карма: 4
Мой форум - http://hiasm.bbtalk.me/ схемы, компоненты...
0