«Қазақстан тарихы, жалпы білім беру пәндері және ақпараттық жүйелер» кафедрасы

Сурет 7 - Ерекше жағдайды хабарлау терезесі

жүктеу 0,51 Mb.

бет	66/105
Дата	21.01.2022
өлшемі	0,51 Mb.
	#34296
түрі	Лекция

1 ... 62 63 64 65 66 67 68 69 ... 105

« аза стан тарихы, жалпы білім беру п ндері ж не а паратты ж йе

Сурет 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;

Программаны іске қосқан кезде, алдымен суретте кӛрсетілген терезе шығады. Ал программа қайта қосылса типті түрлендіру қате сӛйлемі жазылған шығару терезесі кӛрініп, программа жұмысы тоқтатылады.

2-мысал. ‗Ermek1‘ файлы дискіде жазулы болсын. Оны ашу операторын try блогын енгізіп жазу керек. Программа үзіндісі:

Var F:TextFile;

Begin

AssignFile(F, ‘Ermek1‘);

Try

Reset(F);

Except

//файл табылған жоқ

ShowMessage (‗Файлды ашу мүмкін емес‘);

End;

Мұнда Reset операторы бойынша файл ашылады, егер ол жоқ болса, try блогының екінші бӛлімі орындалады(файлдар жӛнінде тӛртінші тарауды қараңыз).

жүктеу 0,51 Mb.

Достарыңызбен бөлісу:

1 ... 62 63 64 65 66 67 68 69 ... 105