Объясните строку в исходнике

@Setix · Регистрация: 22.07.2015

Author24 — интернет-сервис помощи студентам

Смотрю исходники архиватора. Натолкнулся на такую строчку.

Delphi

function TAbSelList.IsSelected(Index : Longint) : Boolean;
begin
  Result := FList.IndexOf(Pointer(Index)) >= 0;
end;

может кто то пояснить кто то вот эту часть кода:

Delphi

1	Result := FList.IndexOf(Pointer(Index)) >= 0;

не понятна вот эта часть:

Delphi

1	Result:= ... >= 0;

@Puporev · 17.08.2017, 18:51

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

Result:= ... >= 0;

Если FList.IndexOf(Pointer(Index))>=0 то значение функции = true, иначе false.

@krapotkin · 17.08.2017, 20:46

pointer(index) это просто предлагается компилятору целое число index считать указателем (pointer)
indexOf - это функция, которая проверяет есть такое значение в списке или нет
если нет, выдает -1 , если есть - номер в списке по порядку, начиная с нуля

@northener · 18.08.2017, 02:16

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

может кто то пояснить кто то вот эту часть кода:
Result := FList.IndexOf(Pointer(Index)) >= 0;

Не видя всего исходного кода никто не сможет. Ибо тут автор кода что-то, зачем-то мудрил.

@krapotkin · 18.08.2017, 06:46

да ничего не мудрил
FList:TList
у него Items[index] : pointer
соответственно
IndexOf(pointer)

@Setix · 18.08.2017, 11:13 **[ТС]**

Всем спс за ответы. Меня вот это интересовало.

Delphi

1	Если FList.IndexOf(Pointer(Index))>=0 то значение функции = true, иначе false.

Просто 2 раз сталкиваюсь с такой записью.
Выше описанная функция проверяет запись в лист боксе: если она не выделена, то -1. Если выделена, то 0.

@Puporev · 18.08.2017, 11:50

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

если она не выделена, то -1. Если выделена, то 0.

Если не выделена, то false=0, если выделена то true<>0. Например

Delphi

1	showmessage(booltostr(2>1))

выдаст -1.

@BOGG ART · 18.08.2017, 19:11

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

не понятна вот эта часть:

Просто "больше либо равно" это логический оператор сравнения, он вычисляется и даёт результат в виде Boolean.

Delphi

1	Result:= ( 10 + 3 );

В присваивание значения Result попадёт уже "13", а тут:

Delphi

1	Result:= ( 10 > 3 );

В присваивание значения Result попадёт уже "True".

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	17.08.2017, 18:51	2
	Сообщение от Setix Result:= ... >= 0; Если FList.IndexOf(Pointer(Index))>=0 то значение функции = true, иначе false. 1

@krapotkin 5786 / 4528 / 1431 Регистрация: 14.04.2014 Сообщений: 20,160 Записей в блоге: 20
	17.08.2017, 20:46	3
	pointer(index) это просто предлагается компилятору целое число index считать указателем (pointer) indexOf - это функция, которая проверяет есть такое значение в списке или нет если нет, выдает -1 , если есть - номер в списке по порядку, начиная с нуля 1

@northener пофигист широкого профиля 4735 / 3168 / 860 Регистрация: 15.07.2013 Сообщений: 18,255
	18.08.2017, 02:16	4
	Сообщение от Setix может кто то пояснить кто то вот эту часть кода: Result := FList.IndexOf(Pointer(Index)) >= 0; Не видя всего исходного кода никто не сможет. Ибо тут автор кода что-то, зачем-то мудрил. 0

@krapotkin 5786 / 4528 / 1431 Регистрация: 14.04.2014 Сообщений: 20,160 Записей в блоге: 20
	18.08.2017, 06:46	5
	да ничего не мудрил FList:TList у него Items[index] : pointer соответственно IndexOf(pointer) 0

	18.08.2017, 19:11