f o r i : =1 t o 100 d o b e g in
a lb u m [ i ] : = " ;
S o n g [ i ] : = ' ' ;
e n d ;
//если группа существует, то вывести ее назва-
ния и все ее альбомы
i f y e s t h e n b e g in
m em ol. L i n e s .A d d ( ' Г р у п п а : ' + e d i t l . T e x t );
m e m o l.L in e s -A d d (# 1 3 # 1 0 + 'А льбом ы :
'+ a l b u m [ i] ) ;
//#13#10 — это коды клавиш для сброса и
г [еревода строки
//цикл вывода всех имеющихся альбомов этой группы
f o r i : = l t o 100 do b e g in
a lb u m [i] : = W in . R e a d s t r in g ( 'a l b u m ', e d i t l . T e x t + i n t -
t o s t r ( i ) , a l b u m [ i] ) ;
//условие прерывания цикла: ес-
ли альбом называется так же, как предыдущий, то пре-
кратить считывание,
i f a lb u m [ i ] = a lb u m [ i - 1 ] t h e n b r e a k ;
m e m o l. L in e s . A d d ( a lb u m [ i] );
e n d ; e n d ; end;
y e s : = t r u e ;
Теперь россм отрим случай, когдо пользователь вводит н а-
звонив группы и конкретный ее ольбом, но не уточняет н а -
звонив песни:
i f ( e d it l. T e x t o " ) and (e d it2 .T e x t< > '') and (e d it 3 .T e x t = ")
t h e n b e g in
m e m o l.C le a r;
m em ol. L i n e s .C le a r ;
f o r i : = l t o 100 d o b e g in
a l b u m [ i] : = ' ';
s o n g [ i ] : = ' ' ;
e n d ;
g ro u p [l] := W in .R e a d strin g ( 'g r o u p ', e d it l.T e x t , g r o u p t l] );
i f A n siL o w e rC a se (g ro u p tl])< > A n siL o w e rC a se (e d itl. Text)
then b e g in memo 1. L in e s . Add ( ' Нет такой группы .
. . ') ; y e s : =
f a ls e end;
//проверяем, есть ли у группы такой альбом
f o r i : = l t o 100 d o b e g in
a l b u m t i] : = W in . R e a d s t r in g ( 'a l b u m ', e d i t l . T e x t + i n t -
t o s t r ( i ) , a l b u m t i] );
i f A n s iL o w e r C a s e (a lb u m t i] ) < > A n s iL o w e r C a s e ( e d it 2 .
T e x t) t h e n y e s : = f a l s e ;
i f A n s iL o w e r C a s e ( a lb u m t i] ) = A n s iL o w e r C a s e ( e d it 2 .
T e x t) t h e n b e g in y e s : = t r u e ; b r e a k ; end;
i f y e s t h e n b r e a k ;
end;
i f y e s = fa ls e then memol. L in e s. Add ( 'Н е т такого альбом а.
. ') ;
i f y e s th e n b e g in
f o r i : =1 t o 100 d o b e g in
alb u m t i ] : = ' ' ;
s o n g [i ] : = '';
end;
memol.Lines.Add('Группа: '+editl. Text);
memol.Lines.Add(#13#10+'Anb6oM: '+edit2.Text);
memol.Lines-Add(#13#10+'KoMno3MiniH: '); //выводим все
композиции данного альбома
for i: =1 to 100 do begin
song t i ] : =win. Readstring (' song',
edit2.Text+inttostr(i), songti]);
if songti]=song(i-l] then break;
memol.Lines.Add(song[i]);
end; end; end;
yes:=true;
И последняя комбиноция — пользовотель заполнил все поля:
i f ( e d i t l . T e x t o '') an d ( e d it 2 . T e x t o '') a n d
( e d it 3 . T e x t o '')
t h e n b e g in
m e m o l.C le a r;
m em ol. L i n e s .C le a r ;
f o r i : =1 t o 100 d o b e g in
a lb u m t i] : = " ;
s o n g l i]
end;
g ro u p tl] :=W in .R e ad Strin g( 'g r o u p ', e d it l.T e x t, g r o u p t l] );
i f A n siLo w e rC ase (g ro u p I I ] ) < > A n siL o w e rC a se (e d itl. Text)
then b e g in m em ol. L i n e s . Add ( ' Н ет т а к о й г р у п п ы .
. . ') ;
y e s : = f a l s e end;
f o r і : =1 t o 100 d o b e g in
a l b u m t i] := W in . R e a d s t r in g ( 'a l b u m ', e d i t l . T e x t + i n t -
t o s t r ( i ) , a l b u m t i] );
i f A n s iL o w e r C a s e ( a lb u m t i] ) < » A n s iL o w e r C a s e ( e d it 2.
T e x t ) t h e n y e s : = f a l s e ;
i f A n s iL o w e r C a s e ( a lb u m t i] ) = A n s iL o w e r C a s e ( e d it 2 .
T e x t) t h e n b e g in y e s : = t r u e ; b r e a k ; end;
i f y e s t h e n b r e a k ;
end;
i f y e s = fa ls e then memol. L in e s. Add ( 'Н ет такого альбом а.
. ') ;
f o r i : = l t o 100 d o b e g in
song [ i ]: =w in . R e a d strin g ( ' s o n g
',
e d it 2. T e x t + in t t o s t r (i ) ,
s o n g li] ) ;
i f A n s iL o w e r C a s e ( s o n g [ i ] ) < > A n s iL o w e r C a s e ( e d it 3 .
T e x t) t h e n y e s : = f a ls e ;
i f A n s iL o w e r C a s e ( s o n g li] ) = A n s iL o w e r C a s e ( e d it 3 .
T e x t) t h e n b e g in y e s : = t r u e ; b r e a k ; end;
i f y e s t h e n b r e a k ;
end;
i f y e s = f a ls e th e n m e m o l.L in e s.A d d ( 'Н е т та к о й п е с н и .
. ') ;
i f y e s t h e n b e g in
f o r i : =1 t o 100 d o b e g in
a l b u m t i] : = ' ' ;
s o n g l i ] : = " ;
end;
m e m o l.L in e s .A d d ('Г р у п п а : '+ e d i t l . T e x t ) ;
m e m o l.L in e s .A d d (# 1 3 # 1 0 + 'А л ь б о м : ' + e d it 2 . T e x t ) ;
m e m o l.L in e s.A d d (# 1 3 # 1 0 + 'K o M n o 3 H 4 H H : ') ;
m em ol. L i n e s .A d d (e d i t 3 .T e x t );
end;
end;
И ещ е в конце допиш ите код, который будет выполняться
при лю бы х условиях:
W in .F re e ;
у е в : = іг и е ;
Теперь точно все — м ож ете тестировоть р а б о ту п рограм -
мы
(рис. 2).
т к
Х
о
с
т
и
н
г
в
У
к
р
а
и
н
е
з
а
6
г
р
и
в
е
н
,
и
л
и
б
е
с
п
л
а
т
н
о
Р азм ещ ение
серверов
ДО 3
U
о т
17
EU R /м е сяц !
w w w .S ta rH o s t.c o m .u a
предыдущая страница 41 Мой Компьютер 2004 29 читать онлайн следующая страница 43 Мой Компьютер 2004 29 читать онлайн Домой Выключить/включить текст