Вверх ↑
Разработчик
Ответов: 26163
Рейтинг: 2127
#1: 2007-10-31 16:28:52 ЛС | профиль | цитата
Вот тебе код компонента с нижней точкой

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.

карма: 22

0