Астра, если твой DAT Файл отличается от IPL только тем, что в нем есть строка
//This file compiler by Bla bla bla
Add(MainForm,715871,21,105)
{
Left=20
Top=105
}
Add(ODialog,10277227,133,105)
{
Filter="Файлы DAT (*.dat)|*.dat|"
Title="Открыть NODES файл"
link(onExecute,282222:doLoad,[(212,111)(212,132)])
}
Add(Button,8162985,70,105)
{
Left=10
Top=10
Caption="Open"
link(onClick,10277227:doExecute,[])
}
Add(StringTable,282222,259,105)
{
Left=75
Top=10
Width=305
Height=230
Columns=#16:Строки файла=300|
Grid=0
Redaction=1
StaticColumn=0
Point(Matrix)
}
Add(Button,12433996,70,161)
{
Left=10
Top=250
Caption="Convert"
link(onClick,5870454:doExecute,[])
}
Add(MatrixRW,7548189,364,161)
{
link(onRead,12940850:doAdd,[])
link(Matrix,282222:Matrix,[(370,151)(279,151)])
link(X,1870369:Value,[(384,150)(370,150)])
link(Y,4377385:Position,[(391,151)(324,151)(324,203)(258,203)])
}
Add(Memory,1870369,364,105)
{
Default=Integer(0)
}
Add(For,4377385,252,161)
{
link(onEvent,7548189:doRead,[])
link(onStop,6369979:doString,[(324,174)(324,265)])
link(End,282222:Count,[])
}
Add(Hub,15545492,189,161)
{
OutCount=3
link(onEvent1,11118679:doValue,[(292,167)(292,216)])
link(onEvent2,4377385:doFor,[(236,174)(236,167)])
link(onEvent3,12940850:doSave,[(334,181)(334,202)])
}
Add(SDialog,5870454,133,161)
{
Filter="Файлы IPL (*.ipl)|*.ipl|"
Title="Конвертировать в .IPL"
link(onExecute,15545492:doEvent1,[])
}
Add(StrList,12940850,448,161)
{
Strings=#35://This file compiler by Bla bla bla|
}
Add(Message,6187347,441,259)
{
Caption="Конвертирование в IPL"
Icon=4
}
Add(Memory,11118679,364,210)
{
}
Add(FormatStr,6369979,364,259)
{
Mask="Конвертирование закончено, файл сохранен (%1) и ждет своей участи"
link(onFString,6187347:doMessage,[])
link(Str1,11118679:Value,[])
}