| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Почему? Value assigned to ... never used [D7, XP]

SQLEX ©   (2011-12-17 22:24:00) 

Недавно был такой вопрос, но наоборот
Тут есть тоже защищенный блок, теоретически может быть неопределен result. Правильно?
Однако пишет так:

 begin
//    result:=0; //[Hint] Unit1.pas(90): Value assigned to 'GetSystemPalette' never used
   Focus := GetFocus;
   DC:=GetDC(Focus);
   try
     PaletteSize := GetDeviceCaps(DC, SIZEPALETTE);
     LogSize := SizeOf(TLogPalette) + (PaletteSize-1)*SizeOf(TPaletteEntry);
     GetMem(LogPalette, LogSize);
     try
       with LogPalette^ do
       begin
         palVersion := $0300;
         palNumEntries := PaletteSize;
         GetSystemPaletteEntries(DC, 0, PaletteSize, palPalEntry);
       end;
       result := CreatePalette(LogPalette^);
     finally
       FreeMem(LogPalette, LogSize);
     end;
   finally
     ReleaseDC(Focus, DC);
   end;
 end;

---

OW   (2011-12-19 08:57:00) [1]

> Плохиш ©   (18.12.11 00:09) [6]


> Юрий Зотов ©   (19.12.11 00:07) [8]

Спасибо
( можно было и самому догадаться, ступил :) )

---

Юрий Зотов   (2011-12-19 00:07:00) [2]

> SQLEX ©   (18.12.11 00:09) [5]
> а с другой стороны, когда коментим первую строку -
> нет никакого предупреждения, что может не определен результат.
> а он может быть не определен. Ведь так?

Нет, не так. Здесь либо результат определен, либо возникает исключение - а при исключении, как уже сказал Плохиш, определенность результата никого не интересует.

---

Плохиш   (2011-12-18 00:10:00) [3]

> SQLEX ©   (18.12.11 00:09) [5]


> а он может быть не определен. Ведь так?

Ты верь компилятору - он умнее тебя.

---

SQLEX   (2011-12-18 00:09:00) [4]

а с другой стороны, когда коментим первую строку -
нет никакого предупреждения, что может не определен результат.
а он может быть не определен. Ведь так?

А если писать первым же делом result :=  - то есть предупреждение о "лишнем присваивании"

---

Плохиш   (2011-12-18 00:09:00) [5]

> SQLEX ©   (17.12.11 23:04) [3]
>
> ну да,
> но до этого же было дважды вхождение в блок try
> при ошибке в getmem, например, возврат будет неопределен

При исключение результат данной функции никого не интересует, ибо вызывающий код управления не получит, а будет искаться ближайший следующий по коду обработчик исключительных ситуаций. Ибо это есть единственно верный и божественный путь, описанный в библии используемого языка программирования!

---

Anatoly Podgoretsky   (2011-12-17 23:12:00) [6]

> SQLEX  (17.12.2011 23:04:03)  [3]

А это будет уже другое предупреждение, которое сейчас выдать нельзя.

---

SQLEX   (2011-12-17 23:04:00) [7]

ну да,
но до этого же было дважды вхождение в блок try
при ошибке в getmem, например, возврат будет неопределен

---

Anatoly Podgoretsky   (2011-12-17 23:01:00) [8]

> SQLEX  (17.12.2011 22:24:00)  [0]

Конечно не использыется, поскольку дальше заменяется result :=
CreatePalette(LogPalette^);

---

SQLEX   (2011-12-17 22:28:00) [9]

упс, не скопировалось начало

 function GetSystemPalette : HPalette;
 var
   PaletteSize : integer;
   LogSize : integer;
   LogPalette : PLogPalette;
   DC : HDC;
   Focus : HWND;
begin

---

Наверх