Вверх ↑
Ответов: 1321
Рейтинг: 37
#1: 2011-05-12 12:09:56 ЛС | профиль | цитата
1nd1g0 писал(а):
фиксируйте, систематизируйте и публикуйте

Почти то-же что и моя справка

Я когда классы изучу , тогда и новый раздел добавлю, и для себя и для всех
PS
Я учусь не на словах, а на примерах
------------ Дoбавленo в 11.53:

unit HiAsmUnit;

interface

uses kol,Share,Debug;

type
THiAsmClass = class(TDebug)
private

public

end;

TTEst = class
private

public

end;
implementation

end.
Я просто не сразу допёр что end; в том случае конец класса
------------ Дoбавленo в 12.09:

unit HiAsmUnit;

interface

uses kol,Share,Debug;

type
THiAsmClass = class(TDebug)
private
public
end;

TTEst = class
a:string;
b:string;
private
public
onEvent: THI_Event;
Procedure doCalc(var _Data:TData; Idx:Word);
end;


implementation
Procedure TTEst.doCalc;
begin
_hi_OnEvent(onEvent,'Test');
end;
end.

Да вот только классы в IC вы хрен примените

IC их просто не видит


Add(InlineCode,15165760,189,266)
{
WorkPoints=#6:doCalc|
EventPoints=#3:yes|
Code=#15:unit HiAsmUnit;|0:|9:interface|0:|21:uses kol,Share,Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|10: private|9: public|5: end;|0:|14: TTEst = class|10: a:string;|10: b:string;|10: private|37: public |50: Yes: THI_Event; |48: Procedure doCalc(var _Data:TData; Idx:Word); |5: end;|1: |1: |14:implementation|23:Procedure TTEst.doCalc;|6: begin|26: _hi_OnEvent(yes,'erser');|5: end;|4:end.|
link(yes,13677077:doText,[])
}
Add(Button,7431964,119,266)
{
Left=115
Top=255
link(onClick,15165760:doCalc,[])
}
Add(Label,13677077,245,266)
{
Left=245
Top=265
}

И плюс к тому, ошибки странные
C:\Program Files\HiAsm\Elements\delphi\code\hiMainForm_16BC150.pas(137) Error: Undeclared identifier: 'yes'

C:\Program Files\HiAsm\Elements\delphi\code\hiMainForm_16BC150.pas(138) Error: Undeclared identifier: 'doCalc'
карма: 0

0