Если сразу нажать "считать" без выбора секции- вылетает с ошибкой. В FPC не наблюдается.
Вот немного поковырял
Add(MainForm,4893021,525,147)
{
Width=681
Height=468
}
Add(Memo,13274966,735,112)
{
Top=25
Width=420
Height=290
}
Add(ListBox,2665918,714,308)
{
Left=425
Top=25
Width=245
Height=290
DataType=1
link(onClick,724405:doEvent1,[])
}
Add(Ini,5313144,637,217)
{
FileName="c:memory.ini"
Key="Name"
Type=1
Point(doSectionNames)
Point(onSectionNames)
Point(doEraseSection)
link(onResult,9704575:doConvert,[])
link(Section,8045896:Text,[])
link(Value,10135864:GetData,[(664,205)(790,205)])
link(onSectionNames,2665918:doAdd,[(691,230)(691,314)])
}
Add(Button,11328232,525,217)
{
Top=315
Width=100
Caption="Добавить"
link(onClick,1170551:doEvent1,[])
}
Add(Edit,8045896,644,161)
{
Left=100
Top=315
Width=320
Text=""
}
Add(Button,9487238,525,182)
{
Top=335
Width=100
Enabled=1
Caption="Считать"
Point(doEnabled)
link(onClick,5313144:doRead,[(622,188)(622,223)])
}
Add(Button,9196220,525,252)
{
Left=425
Top=315
Caption="поиск"
link(onClick,1554475:doEvent1,[])
}
Add(Hub,16710016,707,112)
{
link(onEvent1,13274966:doClear,[(728,118)(728,125)])
link(onEvent2,13274966:doAdd,[(728,125)(728,118)])
}
Add(StreamConvertor,11218176,735,168)
{
Mode=2
link(onResult,10135864:doData,[])
link(Data,13274966:Text,[])
}
Add(Hub,1170551,567,217)
{
link(onEvent1,1444285:In,[])
link(onEvent2,5313144:doWrite,[])
}
Add(StreamConvertor,9704575,721,217)
{
Mode=3
link(onResult,11139965:In,[])
}
Add(EventFromData,10135864,784,168)
{
}
Add(LineBreak,4614365,602,161)
{
Caption="fnd"
link(Out,8045896:doText,[])
Primary=[12394626,182,154]
}
Add(LineBreak,6018836,693,168)
{
Caption="btn"
link(Out,11218176:doConvert,[])
Primary=[1444285,-105,49]
}
Add(LineBreak,5849514,665,112)
{
Caption="onH"
link(Out,16710016:doEvent1,[])
Primary=[11139965,105,105]
}
Add(Button,15888612,525,287)
{
Left=480
Top=315
Enabled=1
Caption="del"
Point(doEnabled)
link(onClick,12588173:doEvent1,[])
}
Add(Hub,12588173,567,287)
{
link(onEvent1,5313144:doEraseSection,[(626,293)(626,244)])
link(onEvent2,1554475:doEvent2,[(588,300)(588,265)])
}
Add(Button,4314541,525,322)
{
Left=535
Top=315
Enabled=1
Caption="clr"
Point(doEnabled)
link(onClick,12140691:doWork3,[(677,328)])
}
Add(Hub,1554475,595,252)
{
InCount=2
link(onEvent1,12140691:doWork1,[(677,258)])
link(onEvent2,5313144:doSectionNames,[(622,265)(622,237)])
}
Add(HubEx,12140691,673,315)
{
link(onEvent,2665918:doClear,[])
}
Add(Hub,1785542,490,280)
{
OutCount=3
link(onEvent1,9487238:doEnabled,[(514,286)(514,188)])
link(onEvent2,15888612:doEnabled,[])
link(onEvent3,4314541:doEnabled,[(514,300)(514,328)])
}
Add(Hub,724405,756,315)
{
link(onEvent1,12394626:In,[])
link(onEvent2,1785542:doEvent1,[(782,328)(782,367)(476,367)(476,286)])
}



Поиск
Друзья
Администрация