«Қазақстан тарихы, жалпы білім беру пәндері және ақпараттық жүйелер» кафедрасы
Сурет 7 - Ерекше жағдайды хабарлау терезесі
жүктеу/скачать 0,51 Mb.
|
Сурет 7 - Ерекше жағдайды хабарлау терезесіЕрекше жағдайды ӛңдеу үшін Delphi ортасында блокты қорғау механизмі қарастырылған.Оның жазылу түрі: Try <операторлар>; except <ерекше жағдайларды ӛңдеуіштер> else <операторлар> end; Блокты қорғау блогы Try (байқап кӛру) қызметші сӛзінен басталып, end сӛзімен аяқталады.Мұнда алдымен try..except бӛлімінің операторлары орындалады. Егер операторлар ерекшеліксіз орындалса, қорғалған блоктың жұмысы осымен аяқталып, басқару end операторынан соң жазылған операторға беріледі.Егер ерекшелік бар болса, басқару except - тен соң жазылған бӛлімге беріледі(блокқа else бӛлімін енгізу міндетті емес). 1 – мысал. h=1 қадам бойынша [-2;2 кесіндісінде y=2x/(x+1) функциясының мәндерін есептеу керек. Procedure Tform1. Button1Click(sender:Tobject); Var y:real;x:integer;y1:string; Begin
Try For x:=-2 to 2 do Begin Y:=2*x/(x+1); y1:=FloatTo Str(y); ShowMessage(y1); End;
Except On EzeroDivide do Begin ShowMessage(‗Нӛлге бӛлу мүмкін емес‘); Close;
End; End;
Программаны іске қосқан кезде, алдымен суретте кӛрсетілген терезе шығады. Ал программа қайта қосылса типті түрлендіру қате сӛйлемі жазылған шығару терезесі кӛрініп, программа жұмысы тоқтатылады. 2-мысал. ‗Ermek1‘ файлы дискіде жазулы болсын. Оны ашу операторын try блогын енгізіп жазу керек. Программа үзіндісі: Var F:TextFile; Begin AssignFile(F, ‘Ermek1‘); Try Reset(F); Except //файл табылған жоқ ShowMessage (‗Файлды ашу мүмкін емес‘); End;
End; Мұнда Reset операторы бойынша файл ашылады, егер ол жоқ болса, try блогының екінші бӛлімі орындалады(файлдар жӛнінде тӛртінші тарауды қараңыз). жүктеу/скачать 0,51 Mb. Достарыңызбен бөлісу:
|