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

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

загрузка\сохранения множества


i ©   (2008-07-24 15:29:00) 

есть ли какой хороший способ загрузки\сохранения множества (в строку или число)?
или только перебором делается?


Leonid Troyanovsky   (2008-07-25 06:25:00) [1]


> Медвежонок Пятачок ©   (24.07.08 18:41) [7]

> зачем там потребовалось ртти в упор не въезжаю.

Угадал все буквы, а слово - нет.

Зачем? Сохранять в строку.

--
Regards, LVT.


i   (2008-07-24 22:35:00) [2]

а, всё понял, получилось. спасибо.


Anatoly Podgoretsky   (2008-07-24 22:12:00) [3]

> i  (24.07.2008 21:51:09)  [9]

Можно, я же сказал как целое, по английски Integer


i   (2008-07-24 21:51:00) [4]


> В большинстве случаев множество не превышает 32 бит, а это
> можно хранить как целое.


а можно это сделать на перебирая\проверяя каждый элемент множества?


Anatoly Podgoretsky   (2008-07-24 20:04:00) [5]

> Медвежонок Пятачок  (24.07.2008 18:41:07)  [7]

В большинстве случаев множество не превышает 32 бит, а это можно хранить как целое.


Медвежонок Пятачок   (2008-07-24 18:41:00) [6]

зачем там потребовалось ртти в упор не въезжаю.
всего-то надо сохранить 32 байтное значение.


i   (2008-07-24 18:24:00) [7]


> перебором чего?


if [value1] in Myset then Strs.add('value1');

а потом беру Strs.Text и всё.

но интересовал более универсальный метод. спасибо за ссылку выше. изучаю.


oldman   (2008-07-24 16:06:00) [8]


> или только перебором делается?


перебором чего?


Медвежонок Пятачок   (2008-07-24 16:05:00) [9]

var s  : set of char = [];
   s1 : set of char = [];

procedure TForm1.Button1Click(Sender: TObject);
var str : string[32]; i : char;
begin
ZeroMemory(@str[1],32);
Include(s,'z');
Include(s,'x');
Include(s,'c');
Move(s,str[1],32);
Move(str[1],s1,32);
for i := 'a' to 'z' do if i in s1 then ShowMessage(i);
end;


Медвежонок Пятачок   (2008-07-24 16:01:00) [10]

жуть какая.


Leonid Troyanovsky   (2008-07-24 15:51:00) [11]


> i   (24.07.08 15:29)  

> есть ли какой хороший способ загрузки\сохранения множества
> (в строку или число)?

http://groups.google.com/group/fido7.ru.delphi/msg/eb29fb48626c9a5e

--
Regards, LVT.


Медвежонок Пятачок   (2008-07-24 15:31:00) [12]

writebuff


Наверх

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