Форум: "Потрепаться";
Текущий архив: 2005.03.06;
Скачать: [xml.tar.bz2];
ВнизОптимизация кода Найти похожие ветки
← →
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 вся ветка
Форум: "Потрепаться";
Текущий архив: 2005.03.06;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.035 c