Вверх ↑
Этот топик читают: Гость
Гость
Ответов: 17029
Рейтинг: 0
#1: 2008-03-31 03:26:44 правка | ЛС | профиль | цитата


Редактировалось 2 раз(а), последний 2025-01-10 16:10:42
карма: 0

0
Ответов: 9906
Рейтинг: 351
#2: 2008-03-31 07:09:54 ЛС | профиль | цитата
По разному можно
------------ Дoбавленo:

Add(MainForm,2264159,35,133)
{
Left=10
Top=10
Position=1
}
Add(Edit,11938549,469,84)
{
Width=392
Align=2
}
Add(Button,14053576,168,147)
{
Top=20
Caption="Add"
link(onClick,11796625:doEvent1,[])
}
Add(FileStream,16006744,294,161)
{
FileName="test.dat"
Mode=2
Point(doPosition)
link(onLoad,9651310:doEvent1,[])
}
Add(Hub,9651310,350,161)
{
OutCount=3
link(onEvent1,9970200:doData,[])
link(onEvent2,5076900:doData,[(455,174)(455,153)])
link(onEvent3,16006744:doClose,[(390,181)(390,202)(284,202)(284,174)])
}
Add(DataToFile,2850353,518,147)
{
Type=5
Point(doPosition)
link(Stream,16006744:Stream,[(524,137)(509,137)(509,218)(300,218)])
}
Add(DoData,5076900,469,147)
{
link(onEventData,2850353:doPut,[])
link(Data,11938549:Text,[])
}
Add(DoData,9970200,413,161)
{
link(onEventData,2850353:doPosition,[])
link(Data,16006744:Size,[(419,150)(405,150)(405,210)(307,210)])
}
Add(Button,9977440,168,84)
{
Left=55
Top=20
Caption="Read"
Data=Integer(1)
link(onClick,2560983:doEvent,[])
}
Add(Button,9487321,168,217)
{
Left=110
Top=20
Caption="Clear"
link(onClick,14398546:doEvent1,[])
}
Add(HubEx,2661645,392,84)
{
link(onEvent,8136111:doGet,[])
}
Add(Hub,14398546,224,217)
{
OutCount=5
link(onEvent1,6054937:doWork3,[(270,223)])
link(onEvent2,7186513:doWork3,[(277,230)])
link(onEvent3,13469594:doOpen,[])
link(onEvent4,5451888:doCopy,[(271,244)(271,293)])
link(onEvent5,13469594:doClose,[(278,251)(278,244)])
}
Add(DataToFile,8136111,413,84)
{
Type=5
Point(doPosition)
link(onGet,11938549:doText,[])
link(Stream,10962263:Stream,[(419,74)(404,74)(404,136)(300,136)])
}
Add(FileStream,10962263,294,91)
{
FileName="test.dat"
link(onLoad,6751065:doEvent1,[])
}
Add(Hub,11796625,224,147)
{
OutCount=3
link(onEvent1,6054937:doWork2,[])
link(onEvent2,7186513:doWork2,[])
link(onEvent3,16006744:doOpen,[])
}
Add(HubEx,6054937,266,140)
{
Angle=3
link(onEvent,9825388:doClear,[(270,104)(212,104)(212,48)])
}
Add(Hub,6751065,350,91)
{
OutCount=3
link(onEvent1,9825388:doValue,[(388,97)(388,29)(212,29)(212,41)])
link(onEvent2,8136111:doPosition,[])
link(onEvent3,2661645:doWork3,[(396,111)])
}
Add(HubEx,7186513,273,147)
{
Angle=3
link(onEvent,10962263:doClose,[(277,104)])
}
Add(Memory,9825388,224,35)
{
Default=Integer(1)
}
Add(IndexToChanel,2560983,224,84)
{
Point(Index)
link(onEvent1,2661645:doWork1,[(396,90)])
link(onEvent2,10962263:doOpen,[])
link(Index,9825388:Value,[])
}
Add(FileStream,13469594,294,231)
{
FileName="test.dat"
Mode=1
}
Add(StreamCopy,5451888,294,287)
{
link(Dest,13469594:Stream,[])
link(Source,10824248:Stream,[])
}
Add(MemoryStream,10824248,301,238)
{
}
карма: 9

0
Гость
Ответов: 17029
Рейтинг: 0
#3: 2008-04-15 12:19:16 правка | ЛС | профиль | цитата


Редактировалось 2 раз(а), последний 2025-01-10 16:10:42
карма: 0

0
Ответов: 9906
Рейтинг: 351
#4: 2008-04-15 13:37:57 ЛС | профиль | цитата
CPU писал(а):
немного непонял что делает схема

Демонстрирует один из способов "как сохранить много мелких файлов"
Она НЕ демонстрирует способы запуска "диалога выбора файла"
карма: 9

0
4
Сообщение
...
Прикрепленные файлы
(файлы не залиты)