Net2Com писал(а):
пример обновления файлами папки одной из другойПерезалил (была ошибка)
Add(MainForm,2953706,105,231)
{
Height=432
}
Add(Button,8888650,105,140)
{
Left=15
Top=15
Caption="Из"
link(onClick,9771631:doBrowse,[])
}
Add(Edit,1045292,224,140)
{
Left=80
Top=15
Width=295
Text=""
}
Add(Button,13088760,105,84)
{
Left=15
Top=50
Caption="В"
link(onClick,13640147:doBrowse,[])
}
Add(Edit,2423019,371,84)
{
Left=80
Top=50
Width=295
Text=""
}
Add(Browse,9771631,161,140)
{
Edit=1
NewDirButton=1
link(onBrowse,1045292:doText,[])
}
Add(Browse,13640147,161,84)
{
NewStyle=0
link(onBrowse,2423019:doText,[])
}
Add(Button,13276715,105,196)
{
Left=15
Top=95
Caption="Начать"
link(onClick,4485598:doSearch,[])
}
Add(FileSearch,4485598,217,196)
{
link(onSearch,11445102:doEvent1,[])
link(Dir,1045292:Text,[])
}
Add(FileTools,11137262,371,189)
{
link(onEnd,4080384:doCompare,[])
link(FileName,751330:Var2,[])
}
Add(FilePartElm,6237050,315,133)
{
link(onPart,6489546:doStrCatDlm,[])
}
Add(StrCatDelim,6489546,371,133)
{
Delimiter=""
link(Str1,2423019:Text,[])
}
Add(Hub,11445102,266,196)
{
OutCount=3
link(onEvent1,6237050:doPart,[(296,202)(296,139)])
link(onEvent2,1337963:doValue,[(305,209)(305,174)])
link(onEvent3,11137262:doFileExists,[])
}
Add(FileTools,5556739,343,231)
{
link(FileName,1337963:Value,[(349,209)(321,209)])
link(NewFileName,751330:Var1,[(356,173)])
}
Add(GetDataEx,751330,371,168)
{
link(Data,6489546:Result,[])
}
Add(If_else,4080384,420,189)
{
Op2=Integer(0)
link(onTrue,5556739:doCopy,[(463,195)(463,272)(332,272)(332,244)])
}
Add(Memory,1337963,315,168)
{
}



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