EL> Друг въпрос. Как сортирането в диалоговия прозорец Open
EL> файлове? В Словото е такава, нито предмет нещо est..a, нито в нормален
EL> RX-sovom нищо не е намерено Taoka :(
Не е съвсем сигурен какво имате нужда.
Ако бутонът нещо в диалога - можете да изберете режим на масата за изход и след това
Щракнете върху желаното поле (името на вида.) И най-различни, в моя път, и в Word
същото.
ако искате да сортирате файловете в открит диалог, можете да:
Процедура TForm1.OpenDialogSortfiles;
Var брояч, погледнете: цяло число; временни: Tstrings;
започвам
ако OpenDialog1.Files.Count<>1 след това започва
температура: = TStringList.Create;
за брояч: = 0 до OpenDialog1.Files.Count-1 направи
temp.Append (малки букви (OpenDialog1.Files.Strings [брояч]));
за брояч: = 0 до temp.Count-1 направи
за външен вид: = брояч + 1 до temp.Count-1 правя
ако температурата [вид]
temp.Exchange (виж, брояч);
приключи;
процедура TForm1.Button1Click (Sender: TObject);
започвам
OpenDialogSortfiles;
opendialog1.Execute;
приключи;
--
Най-добри пожелания,
Сергей Kuchumov
EL> Друг въпрос. Как сортирането в диалоговия прозорец Open
EL> файлове? В Словото е такава, нито предмет нещо est..a, нито в нормален
EL> RX-sovom нищо не е намерено Taoka :(
SK> Не разбирам какво имате нужда.
SK> Ако бутонът нещо в диалога - можете да изберете режим на масата за изход и
след това
SK> Кликнете необходимата областта (името на вида.) И всичко се сортира, аз и
Word, както добре.
SK>, ако искате да сортирате файловете в открит диалог, можете да:
SK> ПРОЦЕДУРА TForm1.OpenDialogSortfiles;
SK> Var брояч, погледнете: цяло число; временни: Tstrings;
SK> започне
SK> ако OpenDialog1.Files.Count<>1 след това започва
SK> температура: = TStringList.Create;
SK> за брояч: = 0 до OpenDialog1.Files.Count-1 направи
SK> temp.Append (малки букви (OpenDialog1.Files.Strings [брояч]));
1) Не е с малки букви, и AnsiLowerCase.
2) Hi не nafig нужда един от тях
temp.AddStrings (OpenDialog1.Files);
и да се сравни AnsiCompareText употреба.
3) ОП иска да сортирате всички файлове, а не
разпределени само в даден момент.
4) Вашият първи съвет - по-адекватно решение,
от парче "код", за да следват.
SK >> 1) Не се
SA> малки и AnsiLowerCase.
Но когато това се сортиране ruskoyazychnyh файлове / директории не
произведения, защото не spisochek в 1251, и 866, така че тя с малки букви /
SA> 2) Hi не nafig нужда един от тях
SA> temp.AddStrings (OpenDialog1.Files); и да се сравни използването
SA> AnsiCompareText.
виж по-горе
SA> 3) ОП иска да сортирате всички файлове, а не само
SA> разпределени в даден момент. 4) Вашият първи съвет - по-
SA> подходящо решение от парче от последващото "Кодът".
може да не е толкова горещо, хората питаха, отговорих на най-доброто от своя
разбиране на проблема. Вие знаете най-добре - добре, просто не се тревожете.
EL >> Друг въпрос. Как сортирането в диалоговия прозорец Open
EL >> файлове? В Словото е такава, нито предмет нещо est..a, нито в нормален
EL >> RX-sovom нищо не е намерено Taoka :(
SK> Не разбирам какво имате нужда.
SK> Ако бутонът нещо в диалога - можете да изберете режим на масата за изход
SK> и след това кликне върху желаното поле (името на вида.) И всичко подредени
SK> Аз и Word, както добре.
SK>, ако искате да сортирате файловете в открит диалог, можете да:
Uzhoz. И да се сортират TStringList, или, в краен
случай, причини нему между метода на сортиране на настоящите Delphi-програмистите вече
демоде? Тя е много по-лесно да се напише своя собствена версия на балон нещо? И вие
Опитахме се да се изпълни този код на дадена директория с няколко десетки хиляди файлове?
SK> ПРОЦЕДУРА TForm1.OpenDialogSortfiles;
SK> Var брояч, погледнете: цяло число; временни: Tstrings;
SK> започне
SK> ако OpenDialog1.Files.Count<>1 след това започва
SK> температура: = TStringList.Create;
SK> за брояч: = 0 до OpenDialog1.Files.Count-1 направи
SK> temp.Append (малки букви (OpenDialog1.Files.Strings [брояч]));
SK> за брояч: = 0 до temp.Count-1 направи
SK> за поглед: = брояч + 1 до temp.Count-1 направи
SK> ако температура [вид]
SK> temp.Exchange (вид, брояч);
SK> край;
SK> процедура TForm1.Button1Click (Sender: TObject);
SK> започне
SK> OpenDialogSortfiles;
SK> opendialog1.Execute;
SK> край;
Преди срещата Сергей!
Сергей (serge_bychkov [ZZZ] mail333.com) ICQ # 21014758
SB> Uzhoz. И да се сортират TStringList, или на
SB> краен случай, като го предизвика сред метода за сортиране на настоящето
SB> Delphi-програмисти вече излиза от мода? Тя е много по-лесно да се напише своята версия
SB> балон нещо? Опитвали ли сте да се изпълни този код на
SB> директория с няколко десетки хиляди файлове?
И вие имате много такива случаи? Това, което не разбирам как човек въпрос
отговор, защото никой. А "критикува" цялата група на "реално Delphi
програмисти ", използващи техники за програмиране фантазия. Можете също така да имат никакъв
предотвратява primerchik може да доведе до сортиране метод, добре, поне на балона.
SB >> Uzhoz. И да се сортират TStringList, или,
SB >> в случай на авария, обадете му метод на сортиране сред тях
SB >> Delphi-програмисти вече излиза от мода? Тя е много по-лесно да пиша ви
SB >> версия на балон нещо? Опитвали ли сте да се изпълни този код
SB >> в директорията с няколко десетки хиляди файлове?
SK> И вие имате доста такива случаи? Това, което не разбирам как въпросът
SK> човек да отговори, защото никой.
И на този въпрос, така да се каже, а не за това ехо.
SK> А "критикува" цялата група на "истински Delphi програмисти"
SK> използване фантазия техники за програмиране.
SK> Можете също така никой не пречи primerchik може да доведе до метода за сортиране,
SK> Е, поне балона.
Както можете да видите, модата е просто да изобретяваме колелото, и оферта
най-неефективни на съществуващите решения.
Преди срещата Сергей!
Сергей (serge_bychkov [ZZZ] mail333.com) ICQ # 21014758
SB> Както можете да видите, модата е просто да изобретяваме колелото, и
SB>, за да предложи най-бедните на съществуващите решения.
Предложи ефективна.
--
Най-добри пожелания,
Сергей Kuchumov
SB >> Както можете да видите, модата е просто измисли
SB >> мотоциклети, и да предложи най-неефективните съществуващата
SB >> решения.
SK> оферта ефективна.
Преди срещата Сергей!
Сергей (serge_bychkov [ZZZ] mail333.com) ICQ # 21014758
Хората! Не се карат! Човекът наистина се опита да помогне. Аз по принцип, че
Погледнах във всяка посока, въз основа на вашите съобщения, за да копаят, и аз искам да кажа,
Благодаря на всички, които показаха участие. От този момент нататък той ще направи това, което трябва :)
08 декември, 08 16:21 Сергей Бичков пише на Сергей Kuchumov:
SB> краен случай, като го предизвика сред метода за сортиране на настоящето
SB> Delphi-програмисти вече излиза от мода? Тя е много по-лесно да се напише своята версия
SB> балон нещо? Опитвали ли сте да се изпълни този код на
SB> директория с няколко десетки хиляди файлове?
Е, между другото, че това е нещо като времето не без значение - шансовете
потребител, използващ TOpenDialog намерите сред десетките хиляди файлове трябва да бъдат още
prinebrezhimo малък :) Въпреки че със сигурност не е причина да изобретяваме колелото.
SB >> крайни случаи, като го предизвика сред метода за сортиране на настоящето
SB >> Delphi-програмисти вече излиза от мода? Тя е много по-лесно да пиша ви
SB >> версия на балон нещо? Опитвали ли сте да се изпълни този код
SB >> в директорията с няколко десетки хиляди файлове?
AZ> Е, между другото, това е, което за пореден път няма никакво значение -
AZ> шанс, че потребителят ще използва TOpenDialog между десет хиляди
Я> файлове трябва да са все още малки prinebrezhimo :) Въпреки че със сигурност не е причина
AZ> изобретяваме колелото.
Вероятно са съгласни - това ниво на програмата, дори ако тя е по-добре да се придържа
метод на мехурчето. Потребителят бързо осъзнава, че той се подхлъзна нещо
не това.
Преди срещата, Андрей!
Сергей (serge_bychkov [ZZZ] mail333.com) ICQ # 21014758
И за десетки хиляди faylov..stolko не мисля, че в този budet..odnako
момент, около 800 вече ги има и на ще расте
SA> Между другото, аз не разбирам, какво не направи подходящ за сортиране
SA> визуални средства за диалог: изберете
SA> видите "маса" и klatsat върху заглавието на колоната?
Фактът, че не можах да намеря къде да се направи, че ще бъде по подразбиране сортирането
Беше под формата на таблица, веднага. По подразбиране, има "списък" е избран. Може би някъде
Той пропусна. Но свойствата на пречупване и двете Rx-ovogo TFileNameEdit и TOpenDialog,
но смяната на софтуера otobrazhaeniya тип файл не е намерен като сортиране.
В резултат на това, открих Raize компоненти и въз основа на там под формата на изходния
подобно на TOpenDialog - направи необходимото с моите настройки. истината
Word-е да има по-добър вариант. Там можете да изберете всякакъв вид езика файлове
и там е и точката на сортиране по име, вид, размер, дата. Това просто ще направи
idelalno. Но най-малко, тъй като аз са направени приемливи.