Данных будет много-примного, и все они будут, совершенно, разные. Тут подходит только, какой-то, способ работы с файловыми потоками, массив или т. п.
------------ Дoбавленo в 02.23:
Кажется, я разобрался, вот так работает:
Спасибо
Add(MainForm,2953706,14,21)
{
Width=403
Height=494
}
Add(StrList,12021062,301,147)
{
Strings=#7:asd]qwe|3:fgh|6:ukfyuk|
}
Add(FileStream,6383059,385,203)
{
FileName="test_file.dat"
Mode=1
Point(doCopyFromStream)
}
Add(Button,8042457,189,203)
{
Left=60
Top=55
Width=80
Height=25
Caption="Save"
link(onClick,15100147:doEvent1,[])
}
Add(StreamPack,16173437,301,238)
{
DataCount=#1:1|
link(onPack,6383059:doCopyFromStream,[(366,244)(366,223)])
link(1,12021062:Text,[])
}
Add(FileStream,11093548,245,378)
{
FileName="test_file.dat"
AutoCopy=0
Point(doCopyFromStream)
link(onLoad,4404561:doUnPack,[])
}
Add(Button,13098132,189,378)
{
Left=60
Top=85
Width=80
Height=25
Caption="load"
link(onClick,11093548:doOpen,[])
}
Add(StreamUnPack,4404561,294,378)
{
DataCount=#1:1|
link(onUnPack,1776441:doData,[])
}
Add(Memo,12974991,406,357)
{
Left=185
Top=55
Width=175
Height=350
}
Add(Hub,15100147,245,203)
{
OutCount=3
link(onEvent1,6383059:doOpen,[])
link(onEvent2,16173437:doPack,[(280,216)(280,244)])
link(onEvent3,6383059:doClose,[(322,223)(322,216)])
}
Add(DoData,1776441,350,378)
{
link(onEventData,12974991:doText,[])
link(Data,4404561:1,[(356,366)(336,366)(336,420)(300,420)])
}
Да, получилось, и с массивом тоже все работает
Add(MainForm,2953706,14,21)
{
Width=403
Height=494
}
Add(StrList,12021062,336,175)
{
Strings=#7:asd]qwe|3:fgh|19:FGHJJJJJJJJJJJJJJJJ|
}
Add(Button,8042457,189,238)
{
Left=60
Top=55
Width=80
Height=25
Caption="Save"
link(onClick,15100147:doEvent1,[])
}
Add(StreamPack,16173437,336,238)
{
DataCount=#1:1|
link(onPack,4147568:doAdd,[])
link(1,12021062:Text,[])
}
Add(Button,13098132,189,378)
{
Left=60
Top=85
Width=80
Height=25
Caption="load"
link(onClick,5939364:doEvent1,[])
}
Add(StreamUnPack,4404561,343,385)
{
DataCount=#1:1|
link(onUnPack,1776441:doData,[])
}
Add(Memo,12974991,455,385)
{
Left=185
Top=55
Width=175
Height=350
}
Add(DoData,1776441,399,385)
{
link(onEventData,12974991:doAdd,[])
link(Data,4404561:1,[(405,373)(385,373)(385,427)(349,427)])
}
Add(StreamArray,16317661,434,154)
{
Streams=[]
UseName=1
FileName="test_file.dat"
}
Add(ArrayRW,4147568,434,224)
{
link(Array,16317661:Array,[])
}
Add(Hub,15100147,245,238)
{
link(onEvent1,16173437:doPack,[])
link(onEvent2,16317661:doSave,[(280,251)(280,160)])
}
Add(StreamArray,12621923,287,329)
{
Streams=[]
UseName=1
FileName="test_file.dat"
}
Add(Hub,5939364,238,378)
{
link(onEvent1,12621923:doLoad,[(270,384)(270,342)])
link(onEvent2,9975397:doEnum,[])
}
Add(ArrayEnum,9975397,287,385)
{
link(onItem,4404561:doUnPack,[])
link(Array,12621923:Array,[])
}