VPF::Помогите справиться с case - Форум программистов

kulikoff

Дата 7.9.2006, 09:55 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 334
Регистрация: 5.11.2005
Где: Киев

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

Есть такая процедурка:

Код


procedure TForm9.StringGrid1SelectCell(Sender: TObject; ACol,  ARow: Integer; var CanSelect: Boolean);

var a: real;

begin
  sLabel3.Caption:='МФО '+Form1.ADOQuery5.FieldByName('bankmfo').AsString;
  sLabel4.Caption:='ЄДРПОУ '+Form1.ADOQuery5.FieldByName('organizationzkpo').AsString;
  a:=StrToFloat(StringGrid1.Cells[2,Arow]);
  case a of
    0.005: sLabel5.Caption:='Відсоток: 0,5%';
    0.01: sLabel5.Caption:='Відсоток: 1%';
    0.02: sLabel5.Caption:='Відсоток: 2%';
  end;
end;

в case ругается

Код


ordinal type required

. Помогите справиться с этими типами, плиз...

Elfebet

Дата 7.9.2006, 10:02 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 545
Регистрация: 15.5.2006
Где: Украина. Запорожь е.

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

в Делфи case c таким типом не работает, в основном нужно использовать char или integer.

Добавлено @ 10:05
в твоем случае лучше испольовать

Код


if (a=0.005) then sLabel5.Caption:='Відсоток: 0,5%'
else if (a=0.01) then sLabel5.Caption:='Відсоток: 1%'
else if (a=0.02) then sLabel5.Caption:='Відсоток: 2%';

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

Программист не должен всё знать... он должен знать где можно посмотреть

kulikoff

Дата 7.9.2006, 10:06 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 334
Регистрация: 5.11.2005
Где: Киев

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

понятно, буду if юзать. Спасибо smile

Romikgy

Дата 7.9.2006, 10:14 (ссылка)

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

Загрузка ...

Любитель-программер

Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

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

Код


var a: longint ;

a:=Int(1000*StrToFloat(StringGrid1.Cells[2,Arow]));
  case a of
    5: sLabel5.Caption:='Відсоток: 0,5%';
    10: sLabel5.Caption:='Відсоток: 1%';
    20: sLabel5.Caption:='Відсоток: 2%';
  end;

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

Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности.

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