... masz przeżywać życie, a nie je opisywać.

W przypadku bˆ©dnie okreŒlone stemie DOS.Wyszukiwanie zawsze rc stacji funkcja zwraca wartoŒä -1. si© od bie¾Ñcego katalogu bie¾Ñcej stacji. . Longint zostaˆ znaleziony,to Dest okreŒla Œcie¾k* do tego pliku; çaŒ gdy dany plik nie zos* çobacç : DiskSize,GetDir ziony,to Dest jest ˆaäcuchem pustym. poszukiwaä wykorzysta¹ katalogi usta DiskSize systemie DOS za pomocÑ instrukcji PATl shˆadnia . DiskSize(Drive: Byte); jako parametru List u¾yä wartoŒci ç prçeç funkcj© GetEnvVar('PATH').Ma* opis . OkreŒla w bajtach pojemnoŒ¹ dysku okreŒlonego dˆugoŒ¹ ˆaäcucha Dest okreŒlana jest pr przez Drive.WartoŒ¹ Drive równa 1oçnacza dysh fsPathName i wynosi 7g. A,2oznacza dysk B itd.WartoŒ¹ 0oznacza dyak ‹ wynik . PChar bie¾Ñey.W przypadku bˆ©dnie okreŒlonej stacji funkcja zwraca wartoŒ¹ -1. zobacç . FileExpand,FileSplit,FSearch wynik . Longint *leSplit zobacz : DiskFree,GetDir . FileSplit (Path,Dir,Name,Ext: PChar); skˆadnia Funhcje i pr*cedury obrëbki plihëw: opis . R,ozkˆada ˆaäcueh Path na trçy skˆadowe jÑce poszczególne ez©Œei nazwy pliku,g *1eEgpand okreŒla Œcie¾k© dost©pu,Name naçw© p1 skˆadnia . FileExpand (Dest N : PCh Ext jego rozszerzenie.Gdy któraŒ z cz* , ame ar); równa nil,oznacça to,¾e odpowiednia cz© 5 opis . Z nazwy Name tworzy peˆnÑ nazw© pliku dla metru Path jest pusta i nie jest ona z systemu DOS.Wynik zwracany w Dest podlega tywana.Maksymalne dˆugoŒci ˆaäcuch konwersji na du¾e litery oraz zawiera naçw© sta- r Name i Ext okre„lajÑ staˆe fsDirectory,fe cji,dwukropek,Œcie¾k© doat©pu oraz nazw© plikn me i faExtension.Zwracana warto z rozszerzeniem.Nazwa pliku oraz rozsçerzenie ;e kombinacjÑ masek bitowych fcDirectory sÑ odpowiednio obcinane do 8i 3znaków.Wsta- t Name,fcExtension oraz fcWildcards wione znaki '.' i '..' okreŒlajÑce katalogi zostanÑ fs* i fcXä* sÑ zdefiniowane w bi usuni©te. WinDos. . PChar wynik . Word zobacz : FExpand,FindFirst,FindNext,FileSplit zobacz . FileExpand,FindFirst,FindNext,FSplit 244 P. Michalkiewicz, I. —wituszak Programowanie w Turbo Pascal 7.0 akˆadnia . FindFirat (Path: PChar; Attr: Word; var S: TSe- skˆadnia . SetFAttr(var F; Attr : Word)ù archRec); opis . Powoduje ustawienie atrybutów Attr * opis . Sçuka pierwazego wystÑpienia pliku o naçwie *lonego çà pomocÑ zmiennej plikowej l okreŒlonej za pomocÑ wzorca w masce katalogu mo¾e by¹ otwarty.Atrybuty pliku mog* Path (np: *.* lub *.EXE) i okreŒlonego za pomocÑ Œlane przez maaki zdefiniowane w atrybutów umiesçczonych w Attr