unit hiCopy;
interface
uses Kol,Share,Debug;
type
ThiCopy = class(TDebug)
private
FResult:string;
public
_prop_Position:integer;
_prop_Count:integer;
_data_Count:THI_Event;
_data_Position:THI_Event;
_data_Str:THI_Event;
_event_onCopy:THI_Event;
procedure _work_doCopy(var _Data:TData; Index:word);
procedure _var_Result(var _Data:TData; Index:word);
end;
implementation
procedure ThiCopy._work_doCopy;
var
str:string;
Pos,Count:integer;
begin
str := ReadString(_Data,_data_Str,');
if str <> ' then
begin
Pos := ReadInteger(_Data,_data_Position,_prop_Position);
Count := ReadInteger(_Data,_data_Count,_prop_Count);
FResult := Copy(str,Pos,Count);
_hi_CreateEvent(_Data,@_event_onCopy,FResult);
end;
end;
procedure ThiCopy._var_Result;
begin
dtString(_Data, FResult);
end;
end.
Разработчик
Ответов: 26163
Рейтинг: 2127
|
|||
Вот тебе код компонента с нижней точкой
|
|||
карма: 22 |
|