← →
Германн © (2011-01-16 03:17) [0]

Вот хочется чтобы проект откомпилировался без Хинтов и Ворнингов.
(При не отключении этих свойств компилятора). А не получается!
Хинтов, правда не получаю, зато получаю Ворнинг:
[DCC Warning] Main.pas(1514): H2077 Value assigned to "TMain.GetGroup" never used
После этого "чешу репу" как таки оно "never used".
Вот код GetGroup:
function TMain.GetGroup(Sel : TTreeNode): TTreeNode; begin if Sel = nil then Result:=nil else while Sel.Level <> 0 do Sel:=Sel.Parent; Result:=Sel; end;
Вот фрагмент кода, где используется эта функция:
cbGroups.ItemIndex:=cbGroups.Items.IndexOf(Main.GetGroup(Main.twUsers.Sele cted).Text);
Это "недоделанный" компилятор или я чего не знаю?
Д2007

← →
tesseract © (2011-01-16 04:05) [1]

> else while Sel.Level <> 0 do Sel:=Sel.Parent;

Извращенный способ получения корня:-)

← →
RWolf © (2011-01-16 04:07) [2]

> После этого "чешу репу" как таки оно "never used".

вот этот Result if Sel = nil then Result:=nil нигде не используется, очевидно же.

← →
tesseract © (2011-01-16 04:15) [3]

if Sel = nil then Result:=nil
else
Begin
while Sel.Level <> 0 do Sel:=Sel.Parent;
Result:=Sel;
end;

← →
Ega23 © (2011-01-16 16:40) [4]

> function TMain.GetGroup

Скорее всего, она у тебя приватная.

← →
Юрий Зотов © (2011-01-16 16:54) [5]

> Ega23 © (16.01.11 16:40) [4]

Не в этом дело. См. [2] и [3].

← →
sniknik © (2011-01-16 17:30) [6]

если она приватная то единственный способ ее вызвать это в модуле где описана (не считая извращений)
тогда нафига это?
cbGroups.ItemIndex:=cbGroups.Items.IndexOf(Main.GetGroup(Main.twUsers.Sele cted).Text);
или там, в модуле, еще один класс кроме TMain? и вызов в нем? а тогда все правильно, значение нигде не используется ... в TMain.

Значение не используется из-а Result:=Sel;
Не важно что выше делается, а тут принудительно устанавливается обязательное значение. Предыдущие никак не используются.

А, всё, понял.
function TMain.GetGroup(Sel : TTreeNode): TTreeNode; begin while (Sel <> nil) and (Sel.Level > 0) do Sel := Sel.Parent; Result := Sel; end;

> [2] и [3]

Точно. Недопер до этого.

Найти похожие ветки [DCC Warning]