1nd1g0 писал(а):
тип можно динамически менять1nd1g0 писал(а):
Документация Я создал html страницу, на которую скопировал всю информацию по FTCG какая у меня есть. И ищу поиском по странице, очень удобно.[/offtop]
------------ Дoбавленo в 01.13:
Коллеги, я случайно онаружил причину, по которой не работало в IC: ar2 := ar1 под делфи и глючило под FPC.
Вот нерабочая:
Add(MainForm,15367882,119,98)
{
Width=308
}
Add(InlineCode,490725,280,98)
{
WorkPoints=#3:in1|
EventPoints=#4:out1|
Code=#15:unit HiAsmUnit;|0:|9:interface|0:|21:uses kol,Share,Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|10: private|0:|9: public|18: out1:THI_Event;|42: procedure in1(var dt:TData;Index:Word);|5: end;|0:|14:implementation|0:|26:procedure THiAsmClass.in1;|4:var |33: ar1: array of array of integer;|33: ar2: array of array of integer;|5:begin|32:// An array of 4 by 4 elements: |23: SetLength(ar1, 4, 4);|19: // Use the array:|16: ar1[0,0] := 5;|16: ar1[0,1] := 7;|18: ar1[2,0] := 200;|17: // and so on...|28:_hi_OnEvent(out1, ar1[0,0]);|28:_hi_OnEvent(out1, ar1[0,1]);|28:_hi_OnEvent(out1, ar1[2,0]);|0:|0:|12:ar2 := ar1; |28:_hi_OnEvent(out1, ar2[0,0]);|0:|4:end;|0:|4:end.|0:|0:|0:|0:|
link(out1,15938406:doAdd,[])
}
Add(Button,4071366,224,98)
{
Left=15
Top=30
Width=75
Height=185
Data=String(я строка из кнопки)
link(onClick,490725:in1,[])
}
Add(ListBox,15938406,336,98)
{
Left=105
Top=5
Width=190
Height=250
}
Вот рабочая в обоих компиляторах:
Add(MainForm,15367882,119,98)
{
Width=308
}
Add(InlineCode,490725,280,98)
{
WorkPoints=#3:in1|
EventPoints=#4:out1|
Code=#15:unit HiAsmUnit;|0:|9:interface|0:|21:uses kol,Share,Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|10: private|0:|9: public|18: out1:THI_Event;|42: procedure in1(var dt:TData;Index:Word);|5: end;|0:|14:implementation|0:|26:procedure THiAsmClass.in1;|40:type arr = array of array of integer; |4:var |11: ar1: arr;|12: ar2: arr; |5:begin|32:// An array of 4 by 4 elements: |23: SetLength(ar1, 4, 4);|19: // Use the array:|16: ar1[0,0] := 5;|16: ar1[0,1] := 7;|18: ar1[2,0] := 200;|17: // and so on...|28:_hi_OnEvent(out1, ar1[0,0]);|28:_hi_OnEvent(out1, ar1[0,1]);|28:_hi_OnEvent(out1, ar1[2,0]);|0:|0:|12:ar2 := ar1; |28:_hi_OnEvent(out1, ar2[0,0]);|0:|4:end;|0:|4:end.|0:|0:|0:|0:|
link(out1,15938406:doAdd,[])
}
Add(Button,4071366,224,98)
{
Left=15
Top=30
Width=75
Height=185
Data=String(я строка из кнопки)
link(onClick,490725:in1,[])
}
Add(ListBox,15938406,336,98)
{
Left=105
Top=5
Width=190
Height=250
}
А у Tad не работал его универсальный вариант, потому, что под FPC не работает функция Copy(ar1, 0, Length(ar1)) При этом ar2 := ar1 - работает.
Поиск
Друзья
Администрация