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

[GAGARIN-NEW]

Пароль к архиву в личке

[Altera]

Сообщение от GAGARIN-NEW

Пароль к архиву в личке

Не люблю такие вещи... Напиши пароль!

[Air]

Сообщение от GAGARIN-NEW

Пароль к архиву в личке

А мне письмо не дошло...
можно повторное.

[evg_m]

в блоке case нет ветви else поэтому возможны ситуации ( например itemindex=-1 ) когда result будет не определен

if что-то then result:=true else result:=false; можно заменить на
result:=что-то ;

[GAGARIN-NEW]

Специально для Вас Делфи хэлп говорит :

The case statement provides a readable alternative to complex nested if conditionals. A case statement has the form

case selectorExpression of

caseList1: statement1;
...
caseListn: statementn;
end

where selectorExpression is any expression of an ordinal type (string types are invalid) and each caseList is one of the following:

A numeral, declared constant, or other expression that the compiler can evaluate without executing your program. It must be of an ordinal type compatible with selectorExpression. Thus 7, True, 4 + 5 * 3, 'A', and Integer('A') can all be used as caseLists, but variables and most function calls cannot. (A few built-in functions like Hi and Lo can occur in a caseList. See Constant expressions.)
A subrange having the form First..Last, where First and Last both satisfy the criterion above and First is less than or equal to Last.

A list having the form item1, ..., itemn, where each item satisfies one of the criteria above.

Each value represented by a caseList must be unique in the case statement; subranges and lists cannot overlap. A case statement can have a final else clause:

case selectorExpression of

caseList1: statement1;
...
caseListn: statementn;
else
statements;
end

where statements is a semicolon-delimited sequence of statements. When a case statement is executed, at most one of statement1 ... statementn is executed. Whichever caseList has a value equal to that of selectorExpression determines the statement to be used. If none of the caseLists has the same value as selectorExpression, then the statements in the else clause (if there is one) are executed.

The case statement

case I of

1..5: Caption := 'Low';
6..9: Caption := 'High';
0, 10..99: Caption := 'Out of range';
else
Caption := '';
end;

is equivalent to the nested conditional

if I in [1..5] then

Caption := 'Low'
else if I in [6..10] then
Caption := 'High'
else if (I = 0) or (I in [10..99]) then
Caption := 'Out of range'
else
Caption := '';

Other examples of case statements:

case MyColor of

Red: X := 1;
Green: X := 2;
Blue: X := 3;
Yellow, Orange, Black: X := 0;
end;

case Selection of

Done: Form1.Close;
Compute: CalculateTotal(UnitCost, Quantity);
else
Beep;
end;

[Stilet]

Чет я не понял, а где в топике ошибка? Или я вчера грибов перекурил или ее там быть нету.

[GAGARIN-NEW]

Ещё раз напишу в чём проблема:
Программу написал. Всё что пока написал в ней (ещё не довёл до ума все возможности) всёработает , компилируется ошибок не выдаёт.

Функция написанная в 1 посте работает , но делфа выдаёт предупреждение.
Функцию переписал через case и в начяле присвоил result:= true;
делфи предупреждение не выдаёт.

Когда добавляю новую процедуру/функцию то делфи отказывается выдавать список возможных свойств/функций/процедур к примеру form1 или listview
тоесть пишу form1. , делфи пол секунды подумает , но список не выдаёт.
А если пишу в начяле unit'а (перед всеми функиями/процудурами) то выдаёт список.

Мне подсказали что такое поведение делфи говорит о том что гдето я допустил ошибку, при этом всё прекрасно компилируется и правильно работает(раньше делфи выдавал предупреждение только на ту функцию). Как возвратить список свойств/функций/процедур?

PS вот что ещё пишет :

[Warning] Unit1.pas(265): Symbol 'faReadOnly' is specific to a platform
[Warning] Unit1.pas(265): Symbol 'faReadOnly' is specific to a platform
[Warning] Unit1.pas(266): Symbol 'faArchive' is specific to a platform
[Warning] Unit1.pas(266): Symbol 'faArchive' is specific to a platform
[Warning] Unit1.pas(266): Symbol 'faSysFile' is specific to a platform
[Warning] Unit1.pas(266): Symbol 'faSysFile' is specific to a platform
[Warning] Unit1.pas(266): Symbol 'faHidden' is specific to a platform
[Warning] Unit1.pas(266): Symbol 'faHidden' is specific to a platform

Но как я понимаю это совсем не может влиять на работу делфи(проблему списка).

PS2 : В скрине забыл добавить -1 в первой функции )))

[Stilet]

как я понимаю это совсем не может влиять на работу делфи

Вот тут ты в точку попал )

[GAGARIN-NEW]

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

Вот тут ты в точку попал )

В чём же тогда проблема? как её решить?

Ведь всё компилируется и работает , а мне сказали что список не выпадает тк гдето есть ошибка.