Объект және тәсілді жариялау мысалы
Сӛздік сипаттама. Объект – бұл жерде жүгіріп тұрған қатар(бегущая строка). Экранның белгілі бір жерінде тӛртбұрыш орналастырылуы мүмкін, оның ішіндегі текст қатарлары горизонталь бойынша жылжып отырады. Бұл әрекетті тоқтатуға және іске түсіруге болады.
Әрекеттер(Действия): инициализация (қатарды және оның экрандағы орнын беру), іске түсіру, тоқтату. Деинициализация әрекеті талап етілмейді, бірақ ол ереже бойынша қатысуы тиіс. Сондықтан оның тәсілін объект интерфейсіне тіркейміз, ал орындалуын бос қалдырамыз.
Локал жадының құрылымы: X,Y координаталары, S қатары, әрекеттің іске түскендігінің белгісі - running, жүгірмелі қатардың экранда кӛрсетілетін ағымдағы бӛлігі (текущее смещение от начала строки для показа на экране) - offset.
type TRunnungString = object x,y: integer; s:string; running:boolean;
offset:integer;
procedure Init(xx,yy:integer;ss:string); procedure Run; procedure Stop; function IsRunning:boolean; procedure Done;
end;
Тәсілдің формальді параметрлерінің атауы объект ӛрістерінің атауларымен бірдей болмауы қажет. (Init тәсіліне қараңыз).
Достарыңызбен бөлісу: |
