Delphi - Alkönyvtár készítő komponens

forráskód letöltése
Ha több azonos nevű alkönyvtárat kell létrehoznunk, akkor ez kézzel elég nehézkes. A mellékelt komponens segítségével azonban csupán néhány adat megadása és egy dupla kattintás szükséges akár több ezer alkönyvtár létrehozásához.

Ha például az a feladat, hogy hozzunk létre 16 alkönyvtárat, melyeknek neve ABCxxxDE, úgy hogy az xxx helyére a 001, 002…015 kerüljön, akkor erre kiválóan alkalmas a mellékelt CreateDirs komponens. A mellékelt példaprogram megnyitása előtt a CreateDirs.pas-ban lévő komponenst telepítenie kell a Delphi alá.

A Folder property-ben kell megadnunk a kezdő könyvtárat, melyen belül a szükséges alkönyvtárakat szeretnénk létrehozni. Ennek a könyvtárnak sem kell még létezőnek lennie.

A Mask property-ben adhatjuk meg a létrehozandó alkönyvtárak nevét. Ennél a névnél egy * karaktert kell tennünk arra a helyre, ahová a számokat szeretnénk behelyettesíteni.

A NumStart property-ben megadhatjuk a kezdőszámot, míg a NumEnd-ben a befejezőt.

A Wide property határozza meg, hogy a * karakter helyére hány karakternyi szám kerül.

A műveletet az Execute eljárás hívásával, vagy szerkesztési időben a komponensen történő dupla kattintással lehet elindítani.

Nézzünk fenti property-kre egy konkrét példát:
Folder - c:\abc\
Mask - dir*
NumStart - 1
NumEnd - 3
Wide - 4

Ekkor az Execute az alábbi könyvtárakat hozza létre:
c:\abc\dir0001
c:\abc\dir0002
c:\abc\dir0003