Скачать: CL | DM;

Оптимизация кода   Найти похожие ветки 

← →
DelphiNew   (2005-02-11 13:08) [0]

Возможно ли оптимизировать такой код? Если да то как?
 If WarningMode then
  Begin
   if (key=VK_NUMPAD0) then
     Begin
       LblVes.Caption:=LblVes.Caption+"0";
     end;
   if (key=VK_NUMPAD1) then
     Begin
       LblVes.Caption:=LblVes.Caption+"1";
     end;
   if (key=VK_NUMPAD2) then
     Begin
       LblVes.Caption:=LblVes.Caption+"2";
     end;
   if (key=VK_NUMPAD3) then
     Begin
       LblVes.Caption:=LblVes.Caption+"3";
     end;
   if (key=VK_NUMPAD4) then
     Begin
       LblVes.Caption:=LblVes.Caption+"4";
     end;
   if (key=VK_NUMPAD5) then
     Begin
       LblVes.Caption:=LblVes.Caption+"5";
     end;
   if (key=VK_NUMPAD6) then
     Begin
       LblVes.Caption:=LblVes.Caption+"6";
     end;
   if (key=VK_NUMPAD7) then
     Begin
       LblVes.Caption:=LblVes.Caption+"7";
     end;
   if (key=VK_NUMPAD8) then
     Begin
       LblVes.Caption:=LblVes.Caption+"8";
     end;
   if (key=VK_NUMPAD9) then
     Begin
       LblVes.Caption:=LblVes.Caption+"9";
     end;
   if (key=VK_DECIMAL)and(WarningMode) and (LblVes.Caption <> "") then
     Begin
       LblVes.Caption:=LblVes.Caption+".";
     end;
  end;

---

← →
Александр Иванов ©   (2005-02-11 13:10) [1]

DelphiNew   (11.02.05 13:08)
case

---

← →
Думкин ©   (2005-02-11 13:13) [2]

VK_NUMPAD0 = 96;
VK_NUMPADi = VK_NUMPAD0 + i;

---

← →
DelphiNew   (2005-02-11 13:23) [3]

Думкин ©   (11.02.05 13:13) [2]
Пожалуйста поясни код....

---

← →
begin...end ©   (2005-02-11 13:24) [4]

> DelphiNew   (11.02.05 13:08)

> If WarningMode then
> ...
> if (key=VK_DECIMAL)and(WarningMode)

Уже смешно.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.023 c