Hozzon létre a legegyszerűbb fájlkezelőt delphi, delphi, delphi komponensekben, delphi forrásokban
funkció SlashSep (elérési út, FName: string): string;
ha a Path [Length (Path)] az "V", akkor Eredmény: = Path + + FName else
Eredmény: = Path + FName; végén;
A siashsep funkciót egyszer használta, de ne feledje, mi történik itt. Ez a függvény két paramétert kap: a fájl elérési útját és a fájl nevét, melynek egy sorba kell csatlakoznia, így a fájl teljes elérési útja megérkezik. De először meg kell győződnünk arról, hogy az ösvény (az első paraméter Path) V-val végződik. A Path változó egy karakterlánc típusú string, ami azt jelenti, hogy karakterként sorolhatjuk. Az első karakter eléréséhez meg kell adnunk a Path-ot.
Meg kell vizsgálnunk az utolsó karaktert, ezért a hosszt (Path) szögletes zárójelben használjuk. A Length függvény a hozzá tartozó karakterlánc hosszúságát adja vissza, ami azt jelenti, hogy zárójelben megadjuk a string hosszúságát, vagyis az utolsó karaktert.
Ha az utolsó előtti karakterre szükség volt, akkor a Path [Length (Path) -1] útvonalat írnánk. Ebben az esetben az egyiket kivonjuk a húr hosszából, és az eredmény az utolsó előtti karakter indexe.
Ha az utolsó karakter nem egyenlő a \\ először hozzáadja, majd a fájl nevét. Ha ez a karakter a karakterláncban van, akkor csak hozzá kell adnia a fájlnevet, és be kell írnia a Result változóra, hogy a függvény visszaadja a fájl teljes elérési útját.
Ez a funkció befejeződött, és itt az ideje visszatérni a fájlok felsorolásához. Ezután az SHGetFileinfo rendszer funkciójának hívása. Információt ad vissza a fájlról. Most nem fogunk élni vele. Elvileg egyszerű, és valószínűleg megértheted kóddal, és ha nem, akkor egy kicsit később visszatérünk hozzá.
Most jobban érdekli a Listview összetevővel való együttműködés. A következő kód új bejegyzést ad a listához: Listviewi.items.Add. Ez a konstruktumon belül történik, így a későbbi lépések a kezdet és a vég között végrehajtódnak az új elemgel. Nevezetesen - az új elem címe:
Mindegyik elem rendelkezik Subitems tulajdonsággal, amely további információkat tárol. Ha az összetevő az ikon megjelenítési módjában van, további információk nem láthatók. Ha azonban a viewstyle tulajdonságban a vsReport lehetőséget választja, akkor az összetevő olyan lesz, mint egy táblázat, ahol minden oszlop további információkat jelenít meg. 11.38.
Ha további oszlopokat szeretne hozzáadni az új elemhez, végre kell hajtania a következő állítást:
Az oszlopok megjelenítéséhez meg kell adnia oszlopneveket az oszlopok tulajdonságában. Ha az oszlopnevek nincsenek megadva, semmi sem jelenik meg. És ne felejtsük el, hogy az oszlopok leírásakor az első az elemek címe, a többi pedig a kiegészítő elemek sorrendjében kiegészítő elemek használata.
És az utolsó dolog, hogy mi is figyelembe kell venni - az FileTimeToDateTimeStr funkció, amely átalakítja a dátum / idő formátum a rendszer a sorban. Kódja látható a listában:
funkció FileTimeToDateTimestr (FileTime: TFileTime): string;
LocFTime: TFileTime; SysFTime: TSystemTime; Dt, Tm: TDateTime; kezdődik
FileTimeToLocalFileTime (FileTime, LocFTime); FileTimeToSystemTime (LocFTime, SysFTime); megpróbál
a SysFTime elkezdődik
Dt: = EncodeDate (wYear, wMonth, wDay);
Tm: = EncodeTime (wHour / wMinute, wSecond, wMilliseconds);
Eredmény: = DateTimeToStr (Dt + Tm); kivéve
A kezdet kezdetén a fájl dátumát univerzális időben adjuk meg (a Greenwich Mean Time szerint). Ehhez a FileTimeToLocalFileTime függvényt használjuk, amelynek két paramétere van:
- egy TFileTime típusú változó, amelyet le kell fordítani;
- változó, amelyben az eredmény lesz írva.
A második szakasz az egyetemes globális időt lefordítja a számítógép rendszeridõjében. Ehhez szüksége van a FileTimeToSystemTime funkcióra, amelynek két paramétere is van:
- univerzális idő;
- eredmény változó.
Most már megvan a dátum a sysFTime változóban, és a típus TSystemTime. A SysFTime változó szerkezeti típusa és a következő tulajdonságok:
- évente;
- wMonth hónap;
- napközben;
- wHour - órák;
- wMinute - perc;
- wsecond - másodperc;
- wMilli másodperc - ezredmásodperc.
Ezek mind számok, és meg kell változtatnunk őket egy karakterláncba, de úgy, hogy a dátumsor a rendszer helyi beállításainak megfelelően nézzen ki. Ha írunk egy programot, hogy lesz végre az azonos típusú rendszer (például az orosz változata a Windows a dátumot és az időt az orosz néző), akkor a IntToStr, átalakítani, hogy minden területen a string és formázza őket a saját.
Most azonban általánosabban fogunk folytatni. Először az adatokat DateTime formátumba fordítjuk. Ehhez vannak a funkciók EncodeDate és EncodeTime. Ezek a függvények TDate és TTime típusú változókat hoznak létre számukra átadott számértékek alapján.
Miután megkapta ezeket a változókat, kombináljuk őket egy közös formátum DateTime egyszerű összeadás és lefordítani egy húr segítségével DateTimeToStr funkciót. Ez a funkció a dátumot a helyi helyi beállítások szerint alakítja át a Windows rendszerben. Használhatja a FormatDate funkciót is, amely bármely formában létrehozhat dátumhalmazt.