1 дәріс. Объектілі бағытталған бағдарламалау түсінігі
жүктеу/скачать 79,06 Kb.
|
ОББ
| <Аты> (<аргументтері>);
Мұнда аргументтер - формалды параметрлерді алмастыратын, үтірмен айырылып жазылатын нақты параметрлер, не олардың мәндері. Мысал ретінде Button1 батырмасын басу уақиғасын өңдеу процедурасында шақырылып орындалатын Insp процедурасын қарастырайық. Procedure TForm1.Button1Click(Sender: TObject); procedure Insp(var edtext: string; var comm: string; var stp: boolean); var i,s: integer; begin
s:=Length(edtext); stp:= true; comm:= ‘’; if s=0 then begin stp:= false; comm:=’Данные отсутствуют!’; Exit; end; for i:=1 to s do if (edtext[i] <’0’) or (edtext[i] >’9’) then begin stp:= false; comm:=’Неправильный ввод цифр!’; end; end;
var s1,s2: string; begin
s1:= Edit1.Text; s2:= Edit2.Text; Insp(s1, comm, stp); // Insp процедурасын бірінші рет шақыру if stp= false then begin Label1.Caption:= comm; Exit; end; Insp(s2, comm, stp); // Insp процедурасын екінші рет шақыру if stp= false then begin Label1.Caption:= comm; Exit; end; Edit3.Text:= IntToStr(StrToInt(s1)+StrToInt(s2)); end;
Insp процедурасы енгізілген жолды тексеріп, цифрдан өзге символ тапқан жағдайда хабарлама береді. Процедура екі рет шақырылғанда, барлығы дұрыс болса, Edit1 және Edit2 редакторларына енгізілген бүтін сандардың қосындысы Edit3 редакторынан көрінеді. Функцияларды сипаттау да оның тақырыбынан басталады: жүктеу/скачать 79,06 Kb. Достарыңызбен бөлісу:
|