------------ Дoбавленo в 17.58:
sla8a, подскажи пожалуйста, как сделать в этой же схеме, чтоб строки больше 7 не добавлялись.
Make(delphi)
ver(4.04 build 184)
Add(MainForm,2953706,301,273)
{
Width=346
Height=258
}
Add(StringTable,5059867,553,406)
{
Left=75
Top=30
Width=255
Height=175
Columns=#1:1|1:2|
Point(doInsert)
link(Str,6628367:FString,[])
}
Add(Button,5010680,399,434)
{
Left=15
Top=30
link(onClick,16393605:doEvent1,[])
}
Add(FormatStr,6628367,553,357)
{
DataCount=1
Mask="Строка;%1"
Point(FString)
}
Add(Hub,16393605,455,434)
{
link(onEvent1,12453036:doOperation,[(490,440)(490,209)])
link(onEvent2,10921906:doData,[])
}
Add(Math,12453036,511,203)
{
Op2=1
link(onResult,16094269:doValue,[])
link(Op1,12453036:Result,[(517,191)(505,191)(505,247)(517,247)])
}
Add(DoData,10921906,504,441)
{
Data=Integer(0)
link(onEventData,5059867:doInsert,[])
}
Add(If_else,2631654,560,252)
{
Type=1
Op2=Integer(8)
link(onTrue,6628367:doString,[(604,258)(604,310)(541,310)(541,363)])
link(Op1,16094269:Value,[])
}
Add(Memory,16094269,560,203)
{
link(onData,2631654:doCompare,[(604,209)(604,233)(548,233)(548,258)])
}