[r39]: / trunk / Library / POUs / FB_AnyComparator / svnobj Maximize Restore History
6 lines (6 with data), 5.4 kB
Gx_l 2 ! 0┘jЭo│ .
З╝ ┴ _їЛя S y s t e m . S t r i n g L{ 6 f 9 d a c 9 9 - 8 d e 1 - 4 e f c - 8 4 6 5 - 6 8 a c 4 4 3 b 7 d 0 8 } S p e c i a l F u n c L{ 0 d b 3 d 7 b b - c d e 0 - 4 4 1 6 - 9 a 7 b - c e 4 9 a 0 1 2 4 3 2 3 } N o n e I m p l e m e n t a t i o n L{ 3 b 8 3 b 7 7 6 - f b 2 5 - 4 3 b 8 - 9 9 f 2 - 3 c 5 0 7 c 9 1 4 3 f c } T e x t D o c u m e n t L{ f 3 8 7 8 2 8 5 - 8 e 4 f - 4 9 0 b - b b 1 b - 9 a c b b 7 e b 0 4 d b }
T e x t L i n e s L{ a 5 d e 0 b 0 b - 1 c b 5 - 4 9 1 3 - a c 2 1 - 9 d 7 0 2 9 3 e c 0 0 d } I d
l o n g T a g T e x t .( * R e s e t t h e o u t p u t s * ) 8D a t a T y p e s N o t E q u a l s : = F A L S E ; 6D a t a S i z e N o t E q u a l s : = F A L S E ; <D a t a C o n t e n t N o t E q u a l s : = F A L S E ; d( * C h e c k w h e t h e r t h e t y p e o f t h e i n p u t s d i f f e r s * ) lI F A n y V a l u e O n e . T y p e C l a s s < > A n y V a l u e T w o . T y p e C l a s s T H E N > D a t a T y p e s N o t E q u a l s : = T R U E ; E N D _ I F d( * C h e c k w h e t h e r t h e s i z e o f t h e i n p u t s d i f f e r s * ) <I F N O T D a t a T y p e s N o t E q u a l s T H E N l I F ( A n y V a l u e O n e . d i S i z e < > A n y V a l u e T w o . d i S i z e ) T H E N D D a t a S i z e N o t E q u a l s : = T R U E ; E N D _ I F є( * E v e n t h o u g h t h e d a t a t y p e a n d s i z e a r e e q u a l s , t h e c o n t e n t s m a y s t i l l d i f f e r * ) pI F N O T D a t a T y p e s N o t E q u a l s A N D N O T D a t a S i z e N o t E q u a l s T H E N T / / / C o m p a r e e a c h b y t e i n t h e A N Y - t y p e s !| F O R I t e r a t o r C o u n t e r : = 0 T O A n y V a l u e O n e . d i S i z e - 1 B Y 1 D O "Є I F A n y V a l u e O n e . p V a l u e [ I t e r a t o r C o u n t e r ] < > A n y V a l u e T w o . p V a l u e [ I t e r a t o r C o u n t e r ] T H E N #R D a t a C o n t e n t N o t E q u a l s : = T R U E ; $" E X I T ; % E N D _ I F & E N D _ F O R 'I n t e r f a c e (L{ a 9 e d 5 b 7 e - 7 5 c 5 - 4 6 5 1 - a f 1 6 - d 2 c 2 7 e 9 8 c b 9 4 } )/ / / *·/ / / T h i s F B c o m p a r e s t w o i n s t a n c e s o f a n y o b j e c t t y p e a n d r e t u r n s w h e t h e r t h e y +╒/ / / a r e t h e s a m e t y p e , s i z e a n d v a l u e o r n o t . T h i s i s n e c e s s a r y f o r t w o r e a s o n s : ,╒/ / / 1 . S o t h a t w e c a n k n o w e x a c t l y w h a t d i f f e r s b e t w e e n t h e t w o i n p u t p a r a m e t e r s -╗/ / / 2 . I t ' s n o t p o s s i b l e t o d o a c o m p a r i s o n ( = o r < > ) b e t w e e n t w o i n s t a n c e s o f A N Y . .>F U N C T I O N _ B L O C K F B _ A n y C o m p a r a t o r /V A R _ I N P U T 0, A n y V a l u e O n e : A N Y ; 1, A n y V a l u e T w o : A N Y ; 2E N D _ V A R 3V A R _ O U T P U T 4╪ D a t a T y p e s N o t E q u a l s : B O O L ; / / / T h e d a t a t y p e o f t h e t w o A N Y i n p u t p a r a m e t e r s a r e n o t e q u a l 5╨ D a t a S i z e N o t E q u a l s : B O O L ; / / / T h e d a t a s i z e o f t h e t w o A N Y i n p u t p a r a m e t e r s a r e n o t e q u a l 6ф D a t a C o n t e n t N o t E q u a l s : B O O L ; / / / T h e d a t a c o n t e n t o f t h e t w o A N Y i n p u t p a r a m e t e r s a r e n o t e q u a l 7V A R 86 I t e r a t o r C o u n t e r : D I N T ; 9"U n i q u e I d G e n e r a t o r :4 6 ;P O U L e v e l <L{ 8 e 5 7 5 c 5 b - 1 d 3 7 - 4 9 c 6 - 9 4 1 b - 5 c 0 e c 7 8 7 4 7 8 7 } =S t a n d a r d > C h i l d O b j e c t G u i d s ?8S y s t e m . C o l l e c t i o n s . A r r a y L i s t @,A d d A t t r i b u t e S u b s e q u e n t Ab o o l п п-пп E
п п
ґ зп-п п
ґ зп-п п
ґ зп-п п
ґ зп-п п
ґ зп-п п
ґ зп-п п
ґ зп-п п
ґ
зп-п п
ґ зп-п п
ґ зп-п п
ґ
зп-п п
ґ зп-п п
ґ зп-п п
ґ зп- п п
ґ зп- п п
ґ зп-п п
ґ зп-п п
ґ зп- п п
ґ зп- п п
ґ зп- п п
ґ зп-!п п
ґ зп-"п п
ґ зп-#п п
ґ зп-$п п
ґ зп-%п п
ґ зп-&п п
ґ зп-п'(п E
п п
ґ зп-)п п
ґ зп-*п п
ґ зп-+п п
ґ зп-,п п
ґ! зп--п п
ґ" зп-)п п
ґ# зп-.п п
ґ$ зп-/п п
ґ% зп-0п п
ґ& зп-1п п
ґ' зп-2п п
ґ( зп-3п п
ґ) зп-4п п
ґ* зп-5п п
ґ+ зп-6п п
ґ, зп-2п п
ґ- зп-7п п
ґ. зп-8п п
ґ зп-2п9-:п;<-=>? п@Aґ