Вверх ↑
Этот топик читают: Гость
Ответов: 817
Рейтинг: 52
#1: 2008-11-01 14:01:16 ЛС | профиль | цитата
Приятного времени суток господа !
Подскажите как можно в ListBox "перемешать" строки?
Вот моя небольшая схемка
code_10470.txt
Когда происходит поиск файлов, то они записываются в ListBox последовательно, как ищется, так и записывается (в алфавитном порядке)

И еще вопросик.
Как можно задать поиск в конкретной указаной папке и не искать в подпапках (опционально)

Заранее всем спасибо
карма: 1

0
файлы: 1code_10470.txt [1KB] [324]
Ответов: 1088
Рейтинг: 112
#2: 2008-11-01 14:10:15 ЛС | профиль | цитата
1)Ответ пишется... Чет фигня получалась какая-то, пойду посплю лучше)))
2)Свойство SubDir компона FileSearch.
карма: 0
Время верстки: %cr_time% Текущее время: %time%
0
Ответов: 817
Рейтинг: 52
#3: 2008-11-01 14:30:03 ЛС | профиль | цитата
2) это то я нашел, но как можно тоже самое реализовать опционально (флажком) ?
карма: 1

0
Ответов: 1088
Рейтинг: 112
#4: 2008-11-01 14:34:52 ЛС | профиль | цитата
-= DriveR =- писал(а):
как можно тоже самое реализовать опционально (флажком) ?


#sha
Add(MainForm,14513102,147,91)
{
Width=349
Height=281
}
Add(FileSearch,8062605,336,147)
{
link(onSearch,15574279:doWork2,[])
link(Dir,729144:Var3,[(349,128)])
}
Add(Edit,13967926,196,147)
{
Left=10
Top=30
Width=260
Text=""
link(onChange,6728803:doCompare,[])
}
Add(Label,11961580,105,49)
{
Left=10
Top=10
Width=172
Height=17
Caption="Укажите папку где лежат файлы"
}
Add(Button,10379888,105,147)
{
Left=275
Top=30
Caption="Обзор"
link(onClick,1142040:doBrowse,[])
}
Add(StyleXP,5956943,147,49)
{
}
Add(Browse,1142040,147,147)
{
link(onBrowse,13967926:doText,[])
}
Add(ListBox,5646009,406,147)
{
Top=109
Width=341
Height=145
Align=4
Point(doReplace)
}
Add(Label,7795811,106,91)
{
Left=10
Top=90
Width=93
Height=17
Caption="Найденые файлы"
}
Add(CheckBox,13244357,266,91)
{
Left=10
Top=50
Width=170
Caption="Искать во вложеных папках"
}
Add(FileSearch,16739247,315,196)
{
SubDir=1
link(onSearch,15574279:doWork3,[(382,202)])
link(Dir,729144:Var2,[])
}
Add(If_else,6728803,266,147)
{
Op2=Integer(1)
link(onTrue,8062605:doSearch,[])
link(onFalse,16739247:doSearch,[(303,160)(303,202)])
link(Op1,13244357:Checked,[])
}
Add(GetDataEx,729144,315,119)
{
Angle=3
link(Data,13967926:Text,[(263,128)(263,191)(202,191)])
}
Add(HubEx,15574279,378,140)
{
link(onEvent,5646009:doAdd,[])
}

карма: 0
Время верстки: %cr_time% Текущее время: %time%
0
Ответов: 817
Рейтинг: 52
#5: 2008-11-01 15:12:22 ЛС | профиль | цитата
Sniper36, Вот спасибо
Чего то не догадался два компонента поставить
карма: 1

0
Ответов: 110
Рейтинг: 9
#6: 2008-11-01 16:06:43 ЛС | профиль | цитата
-= DriveR =- писал(а):
Подскажите как можно в ListBox "перемешать" строки?

Пример не очень хороший, но как "направление копания" пойдет:

code_10471.txt
карма: 0

0
файлы: 1code_10471.txt [811B] [680]
Ответов: 3851
Рейтинг: 159
#7: 2008-11-01 18:07:45 ЛС | профиль | цитата
-= DriveR =-, вот посмотри http://www.hiasm.com/sha/shatools.php?q=5&id=15 в публикаторе..
карма: 0
начавший
0
Ответов: 817
Рейтинг: 52
#8: 2008-11-02 20:27:39 ЛС | профиль | цитата
Спаcибо всем, расмотрел все преложения и понял что перемешивание в ListBox
это не очень хорошая мысль, а главное трудно реализуемая
Поэтому я переосмыслиль ход своих действий и решил что пускай в ListBox все заносится как есть,
а считывать оттуда данные я буду в разнобой.
Вроде это реализовать не сложно, поэтому пока попробую сам.
Если будут вопросы обязательно обращусь

Спасибо всем, ждите.
карма: 1

0
Ответов: 1161
Рейтинг: 160
#9: 2008-11-02 21:34:22 ЛС | профиль | цитата
Тута я подумал, и нечего не придумал
Схемка и мультик для перемещения елеметов массива
code_10490.txt
------------ Дoбавленo:

еп название темы не так прочитал....
карма: 0

0
файлы: 1code_10490.txt [7.5KB] [286]
9
Сообщение
...
Прикрепленные файлы
(файлы не залиты)