Я сейчас изучаю HiAsm в универе и озадачился на предпоследней лабораторной работе. На данный момент в лабораторной работе изучается элемент InlineCode и в ней же был предоставлен текст проекта, но он оказался не рабочим и я не могу понять, в чём его неработоспособность заключается.
Как я понял, дело в коде Delphi (там где в проекте начинается строка "Code=#15:unit...") и компилятор ругается на символ | в коде, но почему он ругается и на какой именно, я не имею понятия. Я перепробовал всё, начиная от полного стирания кода и добавления его по кусочку, но всё без толку. Ошибка не пропадала, а наоборот, порой появлялось их еще больше.
Сам текст проекта ↓
Add(MainForm,2953706,21,105)
{
Width=344
Height=116
}
Add(InlineCode,5600559,343,154)
{
WorkPoints=#7:doWork1|
EventPoints=#7:onEvent|0:|
VarPoints=#3:Var|
DataPoints=#7:MyValue|0:|
Code=#15:unit HiAsmUnit;|0:|9:interface|0:|21:uses kol,Share,Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|10: private|14: s:string;|9: public|23: onEvent:THI_Event;| 23: MyValue:THI_Event;|5: |51: procedure doWork1(var Data:TData; index:word);|50: procedure Result(var Data:TData; index:word);|5: end;|0:|14:implementation|0:|5:const|14: s0 = '### ';|14: s2 = ' ###';|0:|58:procedure THiAsmClass.doWork1(var Data:TData; index:word);|3:var| 16: s1, s3:string;|5:begin|33: s1 := ReadString(Data,MyValue);|23: s3 := toString(Data);|25: s := s0 + s1 + s2 + s3;|0:|26: _hi_OnEvent(onEvent, s);|4:end;|0:|57:procedure THiAsmClass.Result(var Data:TData; index:word);|5:begin|20: dtString(Data, s);|4:end;|0:|4:end.|
link(onEvent,16334128:doText,[])
link(MyValue,7701069:Text,[])
}
Add(Button,2115245,154,154)
{
Left=5
Top=5
Width=65
Caption="Open"
Data=Real(0)
link(onClick,4781423:doData,[])
}
Add(Edit,9663791,253,77)
{
Left=75
Top=5
Width=250
Text="Edit1"
}
Add(DoData,4781423,252,154)
{
link(onEventData,5600559:doWork1,[])
link(Data,9663791:Text,[(258,131)(259,131)])
}
Add(Label,16334128,441,154)
{
Left=75
Top=55
Width=40
Height=17
Caption="0"
}
Add(Edit,7701069,343,77)
{
Left=75
Top=30
Width=250
Text="Edit2"
}
Поиск
Друзья
Администрация