 ::  |
| Autor |
Poruka |
himzo
Banovan!
Odomaćeni član
 |
Godine: 42
Datum registracije: 24 Okt 2005
Poruke: 1390
Mesto: Vojvoda Stepa
|
|
Da bi smo kreirali nov folder koristićemo standardnu proceduru MkDir(). Treba obratiti pažnju na dve stvari. Prva je da ime foldera mora biti validno napisano, bez nedozvoljenih karaktera i sa potpunom ili relativnom putanjom. Drugo je da folder koji kreirate ne sme da postoji na navedenoj putanji. Ovu grešku otklanja sledeća funkcija:
| Code: |
function CreateFolder(Folder: String): Boolean;
Begin
Result := True;
try
MkDir(Folder);
except
Result := False;
end;
End;
|
Funkcija CreateFolder() ima parametar Folder koji predstavlja folder koji kreirate. U slučaju greške pri testiranju programa debuger delphija će prijaviti grešku ukoliko je program pokrenut iz delphija. Ako isti program pokrenete iz svog izvršnog fajla (.exe) neće iskočiti prozor sa greškom već će rezultat funkcije biti false. U slučaju uspešnog kreiranja foldera rezultat je true.
Grane programa try.. except.. end; služe za tzv. "pokušaj izvršenja" neke naredbe. Ukoliko imate neku liniju za koju niste sigurni da će se izvršiti bez greške, npr. deljenje nulom, postavite je u try sekciju dok ćete u except sekciju upisati kod koji će se izvršiti samo u slučaju pojavljivanja greške u try sekciji.
Pogledajte sledeći primer korišćenja funkcije:
| Code: |
procedure TForm1.Button1Click(Sender: TObject);
var folder: String;
begin
folder := 'c:\proba';
If CreateFolder(folder) Then ShowMessage('Folder ' + folder + ' je uspesno kreiran.')
Else ShowMessage('Ne mogu da kreiram folder' + #13 + folder + #13#13 +
'Folder vec postoji ili naziv foldera nije pravilno napisan.');
end;
|
Probajte da snimite program i da ga pokrenete iz njegovog exe fajla. U slučaju uspešnog kreiranja foldera program će izbaciti poruku o uspešno kreiranom folderu u protivnom sledi poruka o grešci. Iskakanje greške prilikom testiranja može se sprečiti dodavanjem direktive kompajleru {$I-} ispred linije sa procedurom MkDir(), odnosno direktive {$I+} posle ove procedure. Ove direktive služe da kažu kompajleru kada da uzme u obzir I/O greške odnosno kada da isključi ovakvu proveru. U svakom slučaju funkcija CreateFolder() će RADITI!
|
|
|
| |
|
 |
|
|
Vi ne možete otvarati nove teme u ovom forumu
Vi ne možete odgovarati na teme u ovom forumu
Vi ne možete menjati Vaše poruke u ovom forumu
Vi ne možete brisati Vaše poruke u ovom forumu
Vi ne možete glasati u anketama u ovom forumu
Vi ne možete postavljati fajlove u ovom forumu
Vi ne možete preuzeti fajlove sa ovog foruma
|
|
