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

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

StringList вместо виртуального множества [D7, WinXP]


Страницы:   1 2

kyn66 ©   (2005-08-31 19:22:00) 

Уважаемые мастера, у себя в программе я хочу сделать нечто виртуального множества при помощи StringGrid. Т.е. я заношу в него некоторые числа. Затем хочу проверить, входит-ли число в это множество, но вылетает ошибка. Что не так?

Var
 sg : TStringList
  i : Integer;
begin
 b := 7;
...
 for i := 0 to 10 do
  sg.Add(IntToStr(i));
...

 if  IntToStr(b) in sg.Commatext then
  Exit;
end;


Piter   (2005-08-31 19:54:00) [21]

Насчет множеств - почитай справку Delphi и не морочь людям голову.

Насчет поиска значение в TStringList - тебе уже указали - используй IndexOf


kyn66   (2005-08-31 19:50:00) [22]

Яж и говорю, пытаюсь таким образом его извоять. А ошибку выдает такую:
Operator not applicable to this operand type
А что есть способ сделать множество в рантайм?


begin...end   (2005-08-31 19:49:00) [23]

> kyn66 ©   (31.08.05 19:22)

> у себя в программе я хочу сделать нечто виртуального множества
> при помощи StringGrid

А чем не устроило обычное множество? Из приведённого кода не видно, почему оно не подошло.

> if  IntToStr(b) in sg.Commatext then

См. в справке: TStringList.IndexOf.


AlexWlad   (2005-08-31 19:46:00) [24]

А кто тебе сказал, что sg.Commatext - множество?


kyn66   (2005-08-31 19:42:00) [25]

>> jack128
Пытаюсь проверить, входит-ли число во множество.


jack128   (2005-08-31 19:39:00) [26]

kyn66 ©   (31.08.05 19:22)
if  IntToStr(b) in sg.Commatext then


это что такое??


Piter   (2005-08-31 19:34:00) [27]

kyn66 ©   (31.08.05 19:22)
но вылетает ошибка


а значит прочитать что за ошибка уже нельзя?


Страницы:   1 2

Наверх

Титульная страница Поиск, карта сайта Написать письмо