VPF::запутался в синтаксисе с case и with do

FasterHarder

Дата 28.8.2007, 15:34 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 77
Регистрация: 1.8.2007

Репутация: нет
Всего: нет

Всем программистам привет! Respect! Не получается по быстрому исправить синтаксическую ошибку в этом коде:

Код


procedure TForm1.ComboBox6Select(Sender: TObject);
begin
   label73.Enabled := true;
   edit20.Enabled := true;
   label73.Caption := 'Ââåäèòå '+ combobox6.Items[combobox6.itemindex];
   case combobox6.ItemIndex of
   0: edit20.MaxLength := 3;
   1..4: edit20.MaxLength := 30;
   5: edit20.MaxLength := 10;
   6: combobox5.Clear;
    with dm.TABLE_BOOK do
    begin
      first;
      while not eof do
      begin
        combobox5.Items.Add(dm.TABLE_BOOK['NAME_BOOK']);
        next;
      end;

    end;
    combobox5.ItemIndex := 0;
   end;
end;

ругается на end; перед combobox5.ItemIndex := 0; Подскажите как быть то?

Rodman

Дата 28.8.2007, 15:48 (ссылка)

(голосов:1)

Загрузка ...

CIO

Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

Репутация: 1
Всего: 122

Код


procedure TForm1.ComboBox6Select(Sender: TObject);
begin
   label73.Enabled := true;
   edit20.Enabled := true;
   label73.Caption := 'Ââåäèòå '+ combobox6.text;
   case combobox6.ItemIndex of
        0: edit20.MaxLength := 3;
        1..4: edit20.MaxLength := 30;
        5: edit20.MaxLength := 10;
       6: begin
              combobox5.Clear;
              with dm.TABLE_BOOK do
              begin
                   first;
                   while not eof do
                   begin
                       combobox5.Items.Add(dm.TABLE_BOOK['NAME_BOOK']);
                       next;
                  end;{while}
             end;{with}
             combobox5.ItemIndex := 0;
          end;{6 пункт}
   end; {case}
end;{procedure}

а так?

как ругается? по конкретнее!!!

Это сообщение отредактировал(а) Rodman - 28.8.2007, 15:50

--------------------

CRM с функцией АвтоОбзвона

Лотереи мира

FasterHarder

Дата 28.8.2007, 15:54 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 77
Регистрация: 1.8.2007

Репутация: нет
Всего: нет

СПАСИБО ОГРОМНОЕ, ВСЕ ЗАРАБОТАЛО smile

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »