Close - polecenie

Polecenie bez podanego argumentu zamyka wszystkie otwarte pliki. Natomiast polecenie z podanym argumentem zamyka plik wskazany przez numer identyfikacyjny.

 

Składnia

Int Close [Int  numerPliku]

 

Argumenty

 

Wartość zwracana

Większa od zera, w przypadku poprawnego wykonania operacji.

W przypadku niepowodzenia funkcja zwraca wartość mniejszą lub równą zero.

 

Przykład

//Okreslenie położenia katalogu roboczego programu
String Zmienna1 = Katalog()
//Zdefiniowanie nazwy pliku wraz ze ścieżką dostępu
String Zmienna2 = Zmienna1 + "NOWABAZA.DAT"
//Wykonanie polecenia Create
Int Wsk0 = Create Zmienna2 For Base "user"
//Wyświetlenie komunikatu o skutkach wykonania polecenia
//Określenie warunku wykonania bloku poleceń
If Wsk0 != 0 Then
//Blok poleceń okna z komunikatem o nieudanej operacji tworzenia pliku
Form "Polecenie Create wykonane niepoprawnie", 600, 150
Ground 255,0,0
Button "O&K", 250, 80, 100, 24, -1
Edit "Dokonano nieudanej próby utworzenia pliku bazy danych:",Zmienna2,380,40,200,24
ExecForm
//Koniec bloku
Else
//Blok poleceń okna z komunikatem o utworzeniu pliku
Form "Polecenie Create wykonane poprawnie", 500, 150
Ground 0,255,0
Button "O&K", 200, 80, 100, 24, -1
Edit "Utworzono plik bazy danych:",Zmienna2,230,40,200,24
ExecForm
//Koniec bloku
//Koniec struktury
EndIf
//Nadanie numeru otwieranego pliku
Int Numer_pliku = 8
//Otwarcie utworzonej bazy danych
Int Wsk1 = Open Zmienna2 For input As Numer_pliku
//Określenie nazwy otwartego pliku
String Zmienna3 = Name Numer_pliku
//Wyświetlenie komunikatu o otwarciu pliku
//Określenie warunku wykonania bloku poleceń
Select Case Wsk1
//Blok poleceń okna z komunikatem o utworzeniu pliku
Case Is <= 0
Form "Polecenie Open wykonane niepoprawnie", 600, 150
Ground 255,255,0
Button "O&K", 250, 80, 100, 24, -1
Edit "Dokonano nieudanej próby otworzenia pliku bazy danych:",Zmienna2,380,40,200,24
ExecForm
//Koniec bloku
Case Else
//Blok poleceń okna z komunikatem o nieudanej operacji tworzenia pliku
Form "Polecenie Open wykonane poprawnie", 500, 150
Ground 0,255,0
Button "O&K", 200, 80, 100, 24, -1
Edit "Otworzono plik bazy danych:",Zmienna3,230,40,200,24
ExecForm
//Koniec bloku
EndSelect
//Zamknięcie pliku
Int Wsk = 0
Wsk = Close Numer_pliku
//Określenie warunku wykonania bloku poleceń
Select Case Wsk
//Blok poleceń okna z komunikatem o utworzeniu pliku
Case Is != 0
Form "Polecenie Close wykonane poprawnie", 500, 150
Ground 0,255,0
Button "O&K", 200, 80, 100, 24, -1
Edit "Zamkniętono plik bazy danych:",Zmienna2,230,40,200,24
ExecForm
//Koniec bloku
Case Else
//Blok poleceń okna z komunikatem o nieudanej operacji tworzenia pliku
Form "Polecenie Close wykonane niepoprawnie", 600, 150
Ground 255,0,0
Button "O&K", 250, 80, 100, 24, -1
Edit "Dokonano nieudanej próby zamknięcia bazy danych:",Zmienna2,380,40,200,24
ExecForm
//Koniec bloku
EndSelect
//Wykonanie polecenia Delete
String Zmienna4 = Delete File Zmienna2
//Wyświetlenie komunikatu o skutkach wykonania polecenia usunięcia pliku
Form "Wykonanie polecenie Delete", 500, 150
Ground 255,0,0
Button "O&K", 200, 80, 100, 24, -1
Edit "Usunięto plik bazy danych:",Zmienna4,230,40,200,24
ExecForm