unit HiAsmUnit;
interface
uses kol,Share,Debug;
type
THiAsmClass = class(TDebug)
private
public
data,number: THI_Event;
read: THI_Event;
Procedure doSet(var _Data:TData; Index:Word);
Procedure doRead(var _Data:TData; Index:Word);
end;
implementation
Procedure THiAsmClass.doSet;
var Adata,Aindex:integer;
AR:array[1..999] of integer;
begin
Adata :=ReadInteger(_Data,data) ;
Aindex :=ReadInteger(_Data,number) ;
ar[Aindex]:= Adata;
end;
Procedure THiAsmClass.doRead;
var Adata,Aindex:integer;
AR:array[1..999] of integer;
begin
Aindex :=ReadInteger(_Data,number) ;
_hi_OnEvent(read,ar[Aindex]);
end;
end.
Я примерно набросал, но это не то