Вверх ↑
Ответов: 62
Рейтинг: -1
#1: 2018-10-12 11:52:05 ЛС | профиль | цитата
Tad писал(а):
rektware, сначала хотелось бы увидеть твою схемку.

Сейчас будет

--- Добавлено в 2018-10-12 11:55:39

Tad писал(а):
rektware, сначала хотелось бы увидеть твою схемку.


Make(delphi)
ver(4.02 build 179)
Add(MainForm,2953706,168,140)
{
Width=578
Height=276
link(onCreate,5296560:doSearch,[(219,160)(219,146)])
}
Add(FileSearch,5296560,238,140)
{
Ext="*.log"
Dir="C:\"
link(onSearch,541340:doEvent1,[])
}
Add(Hub,541340,301,140)
{
OutCount=3
link(onEvent1,14166933:doOpen,[(343,146)(343,111)])
link(onEvent2,14166933:doClose,[(343,153)(343,118)])
link(onEvent3,15960319:doDelete,[(350,160)(350,244)])
}
Add(FileStream,14166933,371,105)
{
link(onLoad,4869539:doCopyFromStream,[(447,111)(447,209)])
}
Add(Edit,7886019,434,77)
{
Left=5
Top=5
Visible=1
Text="1234"
}
Add(FileStream,4869539,490,189)
{
Mode=1
AutoCopy=0
Point(doCopyFromStream)
link(FileName,251210:Var3,[(496,184)])
}
Add(GetDataEx,251210,259,175)
{
Angle=3
link(Data,5296560:Count,[(244,184)])
}
Add(FileTools,15960319,413,224)
{
DelToRecycle=1
}

карма: 0

0
Редактировалось 1 раз(а), последний 2018-10-12 11:55:39