Видимо ошибка в функции(помогите исправить)

[GAGARIN-NEW]

Написал функцию

function searchsize(const FileSize:integer): boolean ;
begin
if form1.CheckBox2.Checked then
begin
// åñëè  íå áîëüøå
if form1.ComboBox1.ItemIndex = 0 then
begin
if FileSize < form1.SpinEdit1.Value then result := true else result := false;
end
else
// åñëè íå ìåíüøå
if form1.ComboBox1.ItemIndex = 1 then
begin
if FileSize > form1.SpinEdit2.Value then result := true else result := false;
end
else
// åñëè Íå ìåíüøå , Íå áîëüøå
if form1.ComboBox1.ItemIndex = 2 then
begin
if (FileSize < form1.SpinEdit1.Value) and (FileSize > form1.SpinEdit2.Value) then
result := true else result := false;
end
else
// åñëè óêàçàòü òî÷íûé ðàçìåð
if form1.ComboBox1.ItemIndex = 3 then
if FileSize = form1.SpinEdit3.Value then result := true else result := false;
end
else result := true;
end;

Всё работает , но делфа выдаёт :

[Warning] Unit1.pas(141): Return value of function 'searchsize' might be undefined

Что я неправильно сделал?

Всем спасибо

[Dj_smart]

Из переводчика:
Возвращаемое значение функции 'searchsize', возможно, могло быть неопределено.
Но это лишь предупреждения, на таком уровне дельфи компилирует.
По моему, дело в другом...

Зы: А ты не смотрел что у тебя на 141-ой строчке?

[Air]

Если я не ошибаюсь Delphi говорит, что результат функции может быть (как бы это сказать) не присвоен.

Если так

If i = 0 then Result:=true

то выдаст предупреждение

если так

Result:=true

ни чего не выдаст.

Если код верный то это не страшно

[GAGARIN-NEW]

Зы: А ты не смотрел что у тебя на 141-ой строчке?

141 строка - 30 строчка в приведённом выше коде.

Если код верный то это не страшно

Всё компилируется , работает, но возникла проблема :
При добавлении новой процедуры функции пусть даже TForm1.Button1Click делфи отказывается вменяемо отображать "подсказки" и прочее ... к примеру если ввести memo1. то обычно выпадает список свойств процедур функций ...у меня этот список перестал выпадать , хотя если ввожу всё от руки то работает.

Понимаю что это непашет среда Длефи , но думал может изза того что в начяле прописана эта функция ...

Result:=true

А смысл тогда в яункции если она всегда будет выдавать true ?

[Air]

Всё компилируется , работает, но возникла проблема :
При добавлении новой процедуры функции пусть даже TForm1.Button1Click делфи отказывается вменяемо отображать "подсказки" и прочее ... к примеру если ввести memo1. то обычно выпадает список свойств процедур функций ...у меня этот список перестал выпадать , хотя если ввожу всё от руки то работает.

У меня всё работает, выдаёт предупреждение, но списки разворачивает.

procedure TForm1.Memo1Change(Sender: TObject);
begin
memo1.Lines
end;

на счёт
Result:=true
- это только пример.

P.S.
Сделал так

function searchsize(const FileSize:integer): boolean ;
begin
if 0=1 then
if FileSize = form1.SpinEdit3.Value then result := true else result := false;
end;

выдаёт предупреждение

Сделал так

function searchsize(const FileSize:integer): boolean ;
begin
if 0=0 then
if FileSize = form1.SpinEdit3.Value then result := true else result := false;
end;

не выдаёт предупреждение

[Air]

Вам нужно сделать так

case form1.ComboBox1.ItemIndex of
0:
if FileSize = form1.SpinEdit3.Value then result := true else result := false;
1: ...
2: ...

...

else
result:=false;
end;

[GAGARIN-NEW]

Сообщение от Air

Вам нужно сделать так

case form1.ComboBox1.ItemIndex of
0:
if FileSize = form1.SpinEdit3.Value then result := true else result := false;
1: ...
2: ...

...

else
result:=false;
end;

Спасибо ! Совсем забыл про case.

PS

function searchsize(const FileSize:integer): boolean ;
begin
if form1.CheckBox2.Checked then
case form1.RadioGroup1.ItemIndex of
0: begin if FileSize < form1.SpinEdit1.Value then result := true else result := false; end;
1: begin if FileSize > form1.SpinEdit2.Value then result := true else result := false; end;
2: begin if (FileSize < form1.SpinEdit1.Value) and (FileSize > form1.SpinEdit2.Value) then
result := true else result := false; end;
3: begin if FileSize = form1.SpinEdit3.Value then result := true else result := false; end;
end
else result := true;
end;

То же самое предупреждение.

[Alter]

То что Дельфи в какие-то моменты перестаёт отображать "подсказки и прочее", является индикатором того, что вы написали ошибки в коде.
Так что, это ваши действия вызывают такое поведение.

-----------------------------
То что Дельфи говорит вам [Warning] Unit1.pas(141): Return value of function 'searchsize' might be undefined , означет что надо в начале функции присвоить её какое-то значение.
Например:

function Stat(I :Integer):Boolean;
begin
 result := false; // вот это нужно сделать вначале, при таком сообщении
 case I of
0: result := true;
1: result := false;
 end
end;

----------------------------
___________________________________ ______________________________
Такая реакция Дельфи очень полезна.

[GAGARIN-NEW]

Спасибо ! Присвоение в начяле функции значения Rеsult помогло .

То что Дельфи в какие-то моменты перестаёт отображать "подсказки и прочее", является индикатором того, что вы написали ошибки в коде.
Так что, это ваши действия вызывают такое поведение.

Но при этом всё компилируется и правильно работает, в чём же может быть проблема?

[Карась]

А можно взглянуть на код целиком? (в архиве)