Udokanec писал(а):
Немного не так сформулировал вопрос.Надо найти определенный файл Txt в папке.Там около 4000 файлов.По маске
Add(Label,16319298,91,63)
{
Width=627
Height=40
Align=2
Caption=""
AutoSize=1
}
Add(MainForm,15255170,91,112)
{
Width=643
Height=420
}
Add(FileSearch,7309708,210,112)
{
Ext="*.txt"
link(onSearch,6423652:doAdd,[])
link(onEndSearch,5208928:doMessage,[(277,125)(277,167)])
link(Ext,1173850:Text,[])
link(Dir,5320749:Text,[(223,96)(265,96)])
}
Add(Memo,6423652,287,112)
{
Top=40
Width=627
Height=341
Align=5
Font=[Lucida Console,12,0,0,204]
Antialiased=1
ScrollBars=3
}
Add(Edit,1173850,210,56)
{
Left=15
Top=10
Width=105
Height=25
Font=[MS Sans Serif,12,0,0,1]
Text="font*.txt"
}
Add(Button,2387793,154,112)
{
Left=540
Top=10
Width=60
Height=25
Font=[MS Sans Serif,12,0,0,1]
Caption="Поиск"
link(onClick,7309708:doSearch,[])
}
Add(Edit,5320749,259,56)
{
Left=175
Top=10
Width=260
Height=25
Font=[MS Sans Serif,12,0,0,1]
Text="c:\Windows\"
}
Add(Message,5208928,287,161)
{
Message="Поиск завершён"
}



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