Добавил:
Kaz
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:АСОИ, Delphi, много вариантов 2 сем / 2стеки / !подозрительное / Лаба6 / Отчёт
.txt яюBGQB CF58=0 ;5:5A0=4@0
u n i t U n i t 1 ;
i n t e r f a c e
u s e s
W i n d o w s , M e s s a g e s , S y s U t i l s , V a r i a n t s , C l a s s e s , G r a p h i c s , C o n t r o l s , F o r m s ,
D i a l o g s , S t d C t r l s , E x t C t r l s ;
t y p e
T F o r m 1 = c l a s s ( T F o r m )
L i s t B o x 1 : T L i s t B o x ;
B u t t o n 1 : T B u t t o n ;
L a b e l e d E d i t 1 : T L a b e l e d E d i t ;
B u t t o n 2 : T B u t t o n ;
L a b e l e d E d i t 2 : T L a b e l e d E d i t ;
B u t t o n 4 : T B u t t o n ;
B u t t o n 5 : T B u t t o n ;
B u t t o n 6 : T B u t t o n ;
M e m o 1 : T M e m o ;
B u t t o n 3 : T B u t t o n ;
B u t t o n 7 : T B u t t o n ;
T i m e r 1 : T T i m e r ;
p r o c e d u r e B u t t o n 1 C l i c k ( S e n d e r : T O b j e c t ) ;
p r o c e d u r e F o r m C r e a t e ( S e n d e r : T O b j e c t ) ;
p r o c e d u r e B u t t o n 2 C l i c k ( S e n d e r : T O b j e c t ) ;
p r o c e d u r e F o r m C l o s e ( S e n d e r : T O b j e c t ; v a r A c t i o n : T C l o s e A c t i o n ) ;
p r o c e d u r e B u t t o n 4 C l i c k ( S e n d e r : T O b j e c t ) ;
p r o c e d u r e B u t t o n 5 C l i c k ( S e n d e r : T O b j e c t ) ;
p r o c e d u r e B u t t o n 6 C l i c k ( S e n d e r : T O b j e c t ) ;
p r o c e d u r e B u t t o n 3 C l i c k ( S e n d e r : T O b j e c t ) ;
p r o c e d u r e B u t t o n 7 C l i c k ( S e n d e r : T O b j e c t ) ;
p r o c e d u r e T i m e r 1 T i m e r ( S e n d e r : T O b j e c t ) ;
p r i v a t e
{ P r i v a t e d e c l a r a t i o n s }
p u b l i c
{ P u b l i c d e c l a r a t i o n s }
e n d ;
v a r
F o r m 1 : T F o r m 1 ;
i m p l e m e n t a t i o n
u s e s U n i t 2 , U n i t 3 ;
v a r s p : T s p i s ; s p 1 : T s p i s 1 ;
{ $ R * . d f m }
p r o c e d u r e T F o r m 1 . B u t t o n 1 C l i c k ( S e n d e r : T O b j e c t ) ;
b e g i n
s p . i s m e n i t ( s t r t o i n t ( f o r m 1 . L a b e l e d E d i t 1 . T e x t ) ) ;
e n d ;
p r o c e d u r e T F o r m 1 . F o r m C r e a t e ( S e n d e r : T O b j e c t ) ;
b e g i n
s p : = T s p i s . c r e a t e ;
s p 1 : = T s p i s 1 . c r e a t e ;
s p 1 . p r i n t ( f o r m 1 . M e m o 1 ) ;
r a n d o m i z e ;
e n d ;
p r o c e d u r e T F o r m 1 . B u t t o n 2 C l i c k ( S e n d e r : T O b j e c t ) ;
v a r i : i n t e g e r ;
b e g i n
s p . p r i n t ( f o r m 1 . L i s t B o x 1 ) ;
e n d ;
p r o c e d u r e T F o r m 1 . F o r m C l o s e ( S e n d e r : T O b j e c t ; v a r A c t i o n : T C l o s e A c t i o n ) ;
b e g i n
s p . D e s t r o y ;
e n d ;
p r o c e d u r e T F o r m 1 . B u t t o n 4 C l i c k ( S e n d e r : T O b j e c t ) ;
b e g i n
s p . a d d ( s t r t o i n t ( f o r m 1 . L a b e l e d E d i t 2 . T e x t ) ) ;
e n d ;
p r o c e d u r e T F o r m 1 . B u t t o n 5 C l i c k ( S e n d e r : T O b j e c t ) ;
b e g i n
s p . d e l e t e ( s t r t o i n t ( f o r m 1 . L a b e l e d E d i t 2 . T e x t ) ) ;
e n d ;
p r o c e d u r e T F o r m 1 . B u t t o n 6 C l i c k ( S e n d e r : T O b j e c t ) ;
b e g i n
s p . s o r t ;
e n d ;
p r o c e d u r e T F o r m 1 . B u t t o n 3 C l i c k ( S e n d e r : T O b j e c t ) ;
b e g i n
f o r m 1 . T i m e r 1 . E n a b l e d : = t r u e ;
e n d ;
p r o c e d u r e T F o r m 1 . B u t t o n 7 C l i c k ( S e n d e r : T O b j e c t ) ;
b e g i n
f o r m 1 . T i m e r 1 . E n a b l e d : = f a l s e ;
e n d ;
p r o c e d u r e T F o r m 1 . T i m e r 1 T i m e r ( S e n d e r : T O b j e c t ) ;
b e g i n
s p 1 . s d v i g ;
s p 1 . p r i n t ( f o r m 1 . M e m o 1 ) ;
e n d ;
e n d .
u n i t U n i t 2 ;
i n t e r f a c e
u s e s S t d C t r l s , S y s U t i l s ;
t y p e
P s e l = ^ s e l ;
s e l = R e c o r d
b : i n t e g e r ;
a : P s e l ;
e n d ;
T s p i s = c l a s s ( T o b j e c t )
c : P s e l ;
n : i n t e g e r ;
c o n s t r u c t o r c r e a t e ;
p r o c e d u r e i s m e n i t ( n 1 : i n t e g e r ) ;
p r o c e d u r e p r i n t ( l i s t : T L i s t B o x ) ;
f u n c t i o n f i n d : i n t e g e r ;
p r o c e d u r e a d d ( n 1 : i n t e g e r ) ;
p r o c e d u r e d e l e t e ( n 1 : i n t e g e r ) ;
p r o c e d u r e s o r t ;
P r o c e d u r e R e a d s p 1 ( v a r s p 1 , s p k : P s e l ; v a r I n f : i n t e g e r ) ;
P r o c e d u r e A d d s p k ( v a r s p 1 , s p k : P s e l ; I n f : i n t e g e r ) ;
e n d ;
i m p l e m e n t a t i o n
c o n s t r u c t o r T s p i s . c r e a t e ;
b e g i n
i n h e r i t e d c r e a t e ;
c : = n i l ;
n : = 0 ;
e n d ;
p r o c e d u r e T s p i s . p r i n t ( l i s t : T L i s t B o x ) ;
v a r i : i n t e g e r ; c 1 : P s e l ;
b e g i n
l i s t . C l e a r ;
c 1 : = c ;
f o r i : = 1 t o n d o
b e g i n
l i s t . I t e m s . A d d ( i n t t o s t r ( c 1 . b ) ) ;
c 1 : = c 1 . a ;
e n d ;
e n d ;
p r o c e d u r e T s p i s . i s m e n i t ( n 1 : i n t e g e r ) ;
v a r i : i n t e g e r ;
c 1 : P s e l ;
b e g i n
n : = n 1 ;
i f n o t ( c = n i l ) t h e n
w h i l e c . a <
u n i t U n i t 1 ;
i n t e r f a c e
u s e s
W i n d o w s , M e s s a g e s , S y s U t i l s , V a r i a n t s , C l a s s e s , G r a p h i c s , C o n t r o l s , F o r m s ,
D i a l o g s , S t d C t r l s , E x t C t r l s ;
t y p e
T F o r m 1 = c l a s s ( T F o r m )
L i s t B o x 1 : T L i s t B o x ;
B u t t o n 1 : T B u t t o n ;
L a b e l e d E d i t 1 : T L a b e l e d E d i t ;
B u t t o n 2 : T B u t t o n ;
L a b e l e d E d i t 2 : T L a b e l e d E d i t ;
B u t t o n 4 : T B u t t o n ;
B u t t o n 5 : T B u t t o n ;
B u t t o n 6 : T B u t t o n ;
M e m o 1 : T M e m o ;
B u t t o n 3 : T B u t t o n ;
B u t t o n 7 : T B u t t o n ;
T i m e r 1 : T T i m e r ;
p r o c e d u r e B u t t o n 1 C l i c k ( S e n d e r : T O b j e c t ) ;
p r o c e d u r e F o r m C r e a t e ( S e n d e r : T O b j e c t ) ;
p r o c e d u r e B u t t o n 2 C l i c k ( S e n d e r : T O b j e c t ) ;
p r o c e d u r e F o r m C l o s e ( S e n d e r : T O b j e c t ; v a r A c t i o n : T C l o s e A c t i o n ) ;
p r o c e d u r e B u t t o n 4 C l i c k ( S e n d e r : T O b j e c t ) ;
p r o c e d u r e B u t t o n 5 C l i c k ( S e n d e r : T O b j e c t ) ;
p r o c e d u r e B u t t o n 6 C l i c k ( S e n d e r : T O b j e c t ) ;
p r o c e d u r e B u t t o n 3 C l i c k ( S e n d e r : T O b j e c t ) ;
p r o c e d u r e B u t t o n 7 C l i c k ( S e n d e r : T O b j e c t ) ;
p r o c e d u r e T i m e r 1 T i m e r ( S e n d e r : T O b j e c t ) ;
p r i v a t e
{ P r i v a t e d e c l a r a t i o n s }
p u b l i c
{ P u b l i c d e c l a r a t i o n s }
e n d ;
v a r
F o r m 1 : T F o r m 1 ;
i m p l e m e n t a t i o n
u s e s U n i t 2 , U n i t 3 ;
v a r s p : T s p i s ; s p 1 : T s p i s 1 ;
{ $ R * . d f m }
p r o c e d u r e T F o r m 1 . B u t t o n 1 C l i c k ( S e n d e r : T O b j e c t ) ;
b e g i n
s p . i s m e n i t ( s t r t o i n t ( f o r m 1 . L a b e l e d E d i t 1 . T e x t ) ) ;
e n d ;
p r o c e d u r e T F o r m 1 . F o r m C r e a t e ( S e n d e r : T O b j e c t ) ;
b e g i n
s p : = T s p i s . c r e a t e ;
s p 1 : = T s p i s 1 . c r e a t e ;
s p 1 . p r i n t ( f o r m 1 . M e m o 1 ) ;
r a n d o m i z e ;
e n d ;
p r o c e d u r e T F o r m 1 . B u t t o n 2 C l i c k ( S e n d e r : T O b j e c t ) ;
v a r i : i n t e g e r ;
b e g i n
s p . p r i n t ( f o r m 1 . L i s t B o x 1 ) ;
e n d ;
p r o c e d u r e T F o r m 1 . F o r m C l o s e ( S e n d e r : T O b j e c t ; v a r A c t i o n : T C l o s e A c t i o n ) ;
b e g i n
s p . D e s t r o y ;
e n d ;
p r o c e d u r e T F o r m 1 . B u t t o n 4 C l i c k ( S e n d e r : T O b j e c t ) ;
b e g i n
s p . a d d ( s t r t o i n t ( f o r m 1 . L a b e l e d E d i t 2 . T e x t ) ) ;
e n d ;
p r o c e d u r e T F o r m 1 . B u t t o n 5 C l i c k ( S e n d e r : T O b j e c t ) ;
b e g i n
s p . d e l e t e ( s t r t o i n t ( f o r m 1 . L a b e l e d E d i t 2 . T e x t ) ) ;
e n d ;
p r o c e d u r e T F o r m 1 . B u t t o n 6 C l i c k ( S e n d e r : T O b j e c t ) ;
b e g i n
s p . s o r t ;
e n d ;
p r o c e d u r e T F o r m 1 . B u t t o n 3 C l i c k ( S e n d e r : T O b j e c t ) ;
b e g i n
f o r m 1 . T i m e r 1 . E n a b l e d : = t r u e ;
e n d ;
p r o c e d u r e T F o r m 1 . B u t t o n 7 C l i c k ( S e n d e r : T O b j e c t ) ;
b e g i n
f o r m 1 . T i m e r 1 . E n a b l e d : = f a l s e ;
e n d ;
p r o c e d u r e T F o r m 1 . T i m e r 1 T i m e r ( S e n d e r : T O b j e c t ) ;
b e g i n
s p 1 . s d v i g ;
s p 1 . p r i n t ( f o r m 1 . M e m o 1 ) ;
e n d ;
e n d .
u n i t U n i t 2 ;
i n t e r f a c e
u s e s S t d C t r l s , S y s U t i l s ;
t y p e
P s e l = ^ s e l ;
s e l = R e c o r d
b : i n t e g e r ;
a : P s e l ;
e n d ;
T s p i s = c l a s s ( T o b j e c t )
c : P s e l ;
n : i n t e g e r ;
c o n s t r u c t o r c r e a t e ;
p r o c e d u r e i s m e n i t ( n 1 : i n t e g e r ) ;
p r o c e d u r e p r i n t ( l i s t : T L i s t B o x ) ;
f u n c t i o n f i n d : i n t e g e r ;
p r o c e d u r e a d d ( n 1 : i n t e g e r ) ;
p r o c e d u r e d e l e t e ( n 1 : i n t e g e r ) ;
p r o c e d u r e s o r t ;
P r o c e d u r e R e a d s p 1 ( v a r s p 1 , s p k : P s e l ; v a r I n f : i n t e g e r ) ;
P r o c e d u r e A d d s p k ( v a r s p 1 , s p k : P s e l ; I n f : i n t e g e r ) ;
e n d ;
i m p l e m e n t a t i o n
c o n s t r u c t o r T s p i s . c r e a t e ;
b e g i n
i n h e r i t e d c r e a t e ;
c : = n i l ;
n : = 0 ;
e n d ;
p r o c e d u r e T s p i s . p r i n t ( l i s t : T L i s t B o x ) ;
v a r i : i n t e g e r ; c 1 : P s e l ;
b e g i n
l i s t . C l e a r ;
c 1 : = c ;
f o r i : = 1 t o n d o
b e g i n
l i s t . I t e m s . A d d ( i n t t o s t r ( c 1 . b ) ) ;
c 1 : = c 1 . a ;
e n d ;
e n d ;
p r o c e d u r e T s p i s . i s m e n i t ( n 1 : i n t e g e r ) ;
v a r i : i n t e g e r ;
c 1 : P s e l ;
b e g i n
n : = n 1 ;
i f n o t ( c = n i l ) t h e n
w h i l e c . a <