Topendialog válogatás fájlok

előző ◈ a következő

Nem egészen biztos, amire szüksége van.
Ha a rendezési gombra a párbeszédablakban -, akkor válassza ki a kimeneti módot asztalra, majd
Kattintson a kívánt mezőt (a név a típus.), És mindenféle, az utamba, és a Word
ugyanaz.

Ha azt szeretnénk, hogy rendezze a fájlokat nyílt párbeszédet, akkor:

eljárás TForm1.OpenDialogSortfiles;
var számláló, nézd: integer; temp: Tstrings;
kezdődik
ha OpenDialog1.Files.Count<>1 Ezután kezdődik
Hőm: = TStringList.Create;

A számláló: = 0 OpenDialog1.Files.Count-1 do
temp.Append (Kisbetus (OpenDialog1.Files.Strings [counter]));

A számláló: = 0 temp.Count-1 do

A megjelenés: = számláló + 1 temp.Count-1 do
ha temp [megjelenés]OpenDialog1.Files.Exchange (nézd, counter);
temp.Exchange (nézd, counter);
végén;

eljárás TForm1.Button1Click (Sender: TObject);
kezdődik
OpenDialogSortfiles;
opendialog1.Execute;
végén;

--
Üdvözlettel,
Sergey Kuchumov

EL> Egy másik kérdés. Mi a különbség a válogatás a Megnyitás párbeszédablakban
EL> fájlokat? A Word egy olyan dolog est..a által sem alany sem Normál
EL> rx-sovom semmi Taoka nem található :(
SK> Nem egészen értem, mire van szüksége.
SK> Ha a rendezési gombra a párbeszédablakban -, akkor válassza ki a kimeneti módot asztal és
majd
SK> Kattintson a kívánt mezőt (a név a típus). És minden rendezve, az I. és
Szó is.
SK> ha meg akarja rendezni a fájlokat nyílt párbeszédet, akkor:
SK> eljárás TForm1.OpenDialogSortfiles;
SK> var számláló, nézd: integer; temp: Tstrings;
SK> kezdődik
SK> ha OpenDialog1.Files.Count<>1 Ezután kezdődik
SK> temp: = TStringList.Create;
SK> a számláló: = 0 OpenDialog1.Files.Count-1 do
SK> temp.Append (Kisbetus (OpenDialog1.Files.Strings [counter]));
1) Nem kisbetűk és AnsiLowerCase.
2) Hi egyikük nafig nem szükséges
temp.AddStrings (OpenDialog1.Files);
és összehasonlítani a használat AnsiCompareText.
3) OP akarja rendezni az összes fájlt, és nem
Csak kiosztott egy adott időpontban.
4) Az első csúcs - tovább a megfelelő megoldás,
mint egy darab „kódot”, hogy kövesse.

SK >> 1) Nem
SA> kisbetűk és AnsiLowerCase.
De ha ennek válogatás ruskoyazychnyh fájlok / könyvtárak nem
működik, mert spisochek nem 1251, és 866, úgy, hogy a kisbetűs /

SA> 2) Hi egyikük nafig nem szükséges
SA> temp.AddStrings (OpenDialog1.Files); és összehasonlítani a használat
SA> AnsiCompareText.
lásd fent

SA> 3) OP akarja rendezni az összes fájlt, és nem csak
SA> kiosztott egy adott időpontban. 4) Az első csúcs - tovább
SA> megfelelő megoldás, mint egy darab a későbbi „kódot”.

nem lehet olyan meleg, az emberek kérték, feleltem, hogy a legjobb a
megértése a problémát. Tudod, hogy a legjobb - nos, csak ne legyen ideges.

EL >> Egy másik kérdés. Mi a különbség a válogatás a Megnyitás párbeszédablakban
EL >> fájlokat? A Word egy olyan dolog est..a által sem alany sem Normál
EL >> rx-sovom semmi Taoka nem található :(

SK> Nem egészen értem, mire van szüksége.
SK> Ha a rendezési gombra a párbeszédablakban -, akkor válassza ki a kimeneti módot asztal
SK> majd rákattint a kívánt mezőt (a név a típus). És minden rendezve
SK> I és a Word is.

SK> ha meg akarja rendezni a fájlokat nyílt párbeszédet, akkor:

Uzhoz. És kap magának válogatni TStringList, vagy szélsőséges
esetben okoznak őt a Küld eljárás a jelen Delphi-programozók már
divatjamúlt? Sokkal könnyebb írni a saját verzióját a buborék rendezés? és te
Megpróbáltuk végre ezt a kódot egy könyvtár egy pár tízezer fájlokat?

SK> eljárás TForm1.OpenDialogSortfiles;
SK> var számláló, nézd: integer; temp: Tstrings;
SK> kezdődik
SK> ha OpenDialog1.Files.Count<>1 Ezután kezdődik
SK> temp: = TStringList.Create;

SK> a számláló: = 0 OpenDialog1.Files.Count-1 do
SK> temp.Append (Kisbetus (OpenDialog1.Files.Strings [counter]));

SK> a számláló: = 0 temp.Count-1 do

SK> A megjelenés: = számláló + 1 temp.Count-1 do
SK> ha temp [megjelenés]SK> OpenDialog1.Files.Exchange (nézd, counter);
SK> temp.Exchange (megjelenés, counter);
SK> végén;

SK> eljárás TForm1.Button1Click (Sender: TObject);
SK> kezdődik
SK> OpenDialogSortfiles;
SK> opendialog1.Execute;
SK> végén;

Az ülés előtt, Szergej!
Sergey (serge_bychkov [zzz] mail333.com) ICQ # 21014758

SB> Uzhoz. És kap magának válogatni TStringList, vagy
SB> szélsőséges esetben okozhat őt a Küld eljárás a jelen
SB> Delphi-programozók már kiment a divatból? Sokkal könnyebb írni a saját verzióját
SB> buborék rendezés? Próbálta már végre ezt a kódot
SB> könyvtár egy pár tízezer fájlokat?
És van egy csomó ilyen esetekben? Amit nem értek, hogy a szóban forgó férfi
választ, mert senki sem. A „kritizálni” az egész csoport „igazi Delphi
programozók „segítségével divatos programozási technikák. Azt is nincs
megakadályozza primerchik eredményezhet rendezési módszer, Nos, legalább a buborék.

SB >> Uzhoz. És kap magának válogatni TStringList, illetve,
SB >> vészhelyzet esetén, hívd a Küld módszer közül
SB >> Delphi-programozók már kiment a divatból? Sokkal könnyebb írni a
SB >> változata buborékos rendezést? Próbáltad már, hogy végre ezt a kódot
SB >> a könyvtárban egy pár tízezer fájlokat?

SK> És van elég sok ilyen esetekben? Amit nem értek, hogy a szóban forgó
SK> személy a választ, mert senki sem.

És ezt a kérdést, mintha, és nem erre a visszhang.

SK> A „kritizálni” az egész csoport a „valódi Delphi programozó”
SK> segítségével divatos programozási technikák.

SK> Azt is senki megakadályozza primerchik okozhat a rendezési módszer,
SK> Nos, legalább a buborék.

Mint látható, a divat csak újra feltalálni a kereket, és ajánlatot
a legkevésbé hatékony a meglévő megoldások.

Az ülés előtt, Szergej!
Sergey (serge_bychkov [zzz] mail333.com) ICQ # 21014758

SB> Mint látható, a divat csak újra feltalálni a kereket, és
SB> nyújtani a szegények a meglévő megoldásokat.

Javasolj hatékony.
--
Üdvözlettel,
Sergey Kuchumov

SB >> Mint látható, a divat csak feltalálni
SB >> kerékpár, és a leginkább hatékony meglévő
SB >> megoldásokat.

SK> Ajánlat hatásos.

Az ülés előtt, Szergej!
Sergey (serge_bychkov [zzz] mail333.com) ICQ # 21014758

Az emberek! Nem veszekedni! A férfi igazán próbált segíteni. Azt, hogy általában
Néztem bármely irányba alapján az üzenetek ásni, és azt akarom mondani,
Köszönet mindenkinek, aki megmutatta bevonásával. Ettől kezdve ő fogja csinálni, amire szüksége van :)

08 december 8. 16:21, Sergey Bychkov írta Szergej Kuchumov:

SB> szélsőséges esetben okozhat őt a Küld eljárás a jelen
SB> Delphi-programozók már kiment a divatból? Sokkal könnyebb írni a saját verzióját
SB> buborék rendezés? Próbálta már végre ezt a kódot
SB> könyvtár egy pár tízezer fájlokat?

Nos, egyébként, hogy ez olyasmi, mint idő-no nem számít - az esélye, hogy
felhasználó használja TOpenDialog között megtalálható a több tízezer fájlt kell még
prinebrezhimo kis :) Bár ez természetesen nem ok arra, hogy újra feltalálni a kereket.

SB >> szélsőséges esetben okozhat őt a Küld eljárás a jelen
SB >> Delphi-programozók már kiment a divatból? Sokkal könnyebb írni a
SB >> változata buborékos rendezést? Próbáltad már, hogy végre ezt a kódot
SB >> a könyvtárban egy pár tízezer fájlokat?

AZ> Nos, egyébként, hogy az, amit egyszer már nincs értelme -
AZ> esély arra, hogy a felhasználó fogja használni a TOpenDialog között tízezer
AZ> fájlokat kell még mindig prinebrezhimo kicsi :) Bár ez természetesen nem ok
AZ> feltalálni a kereket.

Valószínűleg egyetértenek - ezen a szinten a program akkor is, ha jobban kapaszkodni
buborék sort. A felhasználó hamar rájön, hogy megcsúszott valami
Nem.

Az ülés előtt, Andrey!
Sergey (serge_bychkov [zzz] mail333.com) ICQ # 21014758

És a több tízezer faylov..stolko nem hiszem, ebben budet..odnako
Jelenleg mintegy 800 már megvannak, és a nő

SA> By the way, én nem értem, mit nem megfelelő válogatás
SA> vizuális eszközökkel a párbeszéd: válasszon
SA> megtekintheti a „Táblázat” és klatsat az oszlop fejlécére?

Az a tény, hogy nem tudtam találni, ahol erre lenne az alapértelmezett rendezési
Ez volt a táblázat formájában azonnal. Alapértelmezésben van egy „lista” van kiválasztva. Talán valahol
Ő kimaradt. De a szünet tulajdonságok mind Rx-ovogo TFileNameEdit és TOpenDialog,
viszont a váltás szoftver otobrazhaeniya típusú fájl nem található a válogatás.
Ennek eredményeként találtam Raize alkatrészek és alapján ott a forrás formájában
hasonló TOpenDialog - tette meg a szükséges beállításokat az én. az igazság
Szó-e jobb megoldást. Ott lehet választani bármilyen kijelző fájlokat
és van is egy pont szerinti rendezés név, típus, méret, dátum. Ez csak csinálni
idelalno. De legalább, mert én tettek elfogadható.

előző ◈ a következő