Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [Delphi]Массив

Автор: Ru_ 15.1.2007, 21:21

Код


var
  Form2: TForm2;
              A: array[0..9] of String = ('15f',
                                          '555',
                                          '0',
                                          'dsfg',
                                          'aaa',
                                          '10a',
                                          'n12',
                                          '123',
                                          '456',
                                          '798');
              B: array[0..9] of String = ('Текст 15a',
                                          'Текст 555',
                                          'Текст 0',
                                          'Текст dsfg',
                                          'Текст aaa',
                                          'Текст 10a',
                                          'Текст n12',
                                          'Текст 123',
                                          'Текст 456',
                                          'Текст 789');


implementation

{$R *.dfm}


procedure TForm2.Button1Click(Sender: TObject);
 var i:integer;
begin
      for i := 0 to 9 do   begin
                            if Label1.Caption=A[i]  then
                                   Label2.Caption:=B[i]
                                else
                                   Label2.Caption:='OK';
                           end;
end;

В этом случае Label2.Caption всегда равен 'OK', но если его убрать

Код


procedure TForm2.Button1Click(Sender: TObject);
 var i:integer;
begin
      for i := 0 to 9 do   begin
                            if Label1.Caption=A[i]  then
                                   Label2.Caption:=B[i];
                                   end;
end;

то все OK.
В чем дело, помогите, пжалуста.
Спасибо.

Автор: Sunvas 15.1.2007, 21:28

Ru_, ну дык все правильно выполняется. А что ты думал?

Автор: sergejzr 15.1.2007, 21:29

Для домашних заданий, курсовых, существует "Центр Помощи".

Тема перенесена!

Автор: Ru_ 15.1.2007, 21:34

Это не домашнее задание и не курсовая.
Просто вопрос.

Автор: VICTAR 15.1.2007, 21:35

Дак перебор происходит до конца массива и если последнее условие не совпадает, то получается "ОК". А во втором случае при совпадении больше с Label2.Caption больше ничего не происходит...

Автор: Sunvas 15.1.2007, 21:41

Я же и говорю - все верно работает.

Автор: sergejzr 15.1.2007, 21:50

Цитата(Ru_ @ 15.1.2007, 20:34

)

Это не домашнее задание и не курсовая.
Просто вопрос.

Тема тут, пßотому что не названа осмысленно.

Автор: Rodman 15.1.2007, 21:52

зачем тебе цыкл, он тебе всегда последний результат выдает!!!

Автор: VICTAR 15.1.2007, 21:53

Цитата(Sunvas @ 15.1.2007, 21:41

)

Я же и говорю - все верно работает.

Я не спорю, когда писал, не было еще ни одного ответа...

Автор: Ru_ 15.1.2007, 23:11

А как сделать?
Label1 - какойто текст.
A[text] возможный вариант.
Label2.caption:= B[text] описание (возможного варианта).
Если A[text]<>label1, то Label2.caption:=’OK’.
КАК это релизовать?

Автор: Sunvas 15.1.2007, 23:26

Цитата(Ru_ @ 15.1.2007, 23:11

)

Впихиванием Break;-a в форе, после того как найдешь нужное описание.
Думал набросать, однако почему-то примера к этому:

Цитата(Ru_ @ 15.1.2007, 21:21

)

В этом случае Label2.Caption всегда равен 'OK', но если его убрать

я не нашел. smile

Автор: Ru_ 15.1.2007, 23:45

Sunvas, спасибо.
Вроде пробовал так, короче, главное работает. smile

Автор: Sunvas 15.1.2007, 23:47

Цитата(Ru_ @ 15.1.2007, 23:45

)

Sunvas, спасибо.

Обращайся. smile