LordMAD Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Vitus_Bering Что за строки в списках? От этого зависит способ подбора hash-функции. Всего записей: 378 | Зарегистр. 01-10-2002 | Отправлено: 12:56 27-01-2006

ShamaN Advanced Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору LordMAD да вроде бы нет А с чего ты взял? Всего записей: 1297 | Зарегистр. 23-09-2004 | Отправлено: 13:02 27-01-2006 | Исправлено: ShamaN, 13:03 27-01-2006

LordMAD Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору ShamaN Цитата: LordMAD да вроде бы нет   А с чего ты взял?   Только что этот самый вопрос был закрыт в другом форуме (http://www.sql.ru/forum/actualthread.aspx?tid=256254) - я предположил, что это спрашивал ты, хотя ник автора вопроса там другой. Всего записей: 378 | Зарегистр. 01-10-2002 | Отправлено: 13:08 27-01-2006

RostY Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Shaman   ошибка, потому что ты в битмап грузиш жрег. попробуй не   Image1.Picture.BitMap.LoadFromStream(BlobStream);   а   Image1.Picture.Graphic.LoadFromStream(BlobStream);   или Image1.Picture.LoadFromStream(BlobStream);   ____ еще кусочек из какой-то рассылки __________       begin        Jpeg :=TJPEGImage.Create;         try        if not ORATable1.FieldByName('pic').isNull then begin             BLStream :=TBLOBStream(ORATable1.CreateBlobStream(ORATable1.FieldByName('pic'), bmRead));              try               BLStream.Position :=0;               try                     Jpeg.LoadFromStream(BLStream);                     Image1.Picture.Assign(JPEG);                 Image1.Picture.SaveToFile('a.jpg');                 ImageEn1.LoadFromFileJpeg('a.jpg');                 ImageEn1.IOParams.JPEG_ColorSpace:=ioJPEG_GRAYLEV;                 ImageEn1.IOParams.JPEG_Quality:=50;                 ImageEn1.IOParams.JPEG_Progressive:=True;                 ImageEn1.SaveToFileJpeg('a.jpg');                except                end;                 finally            BLStream.Free;            end;         end; //if not isNull      finally         Jpeg.Free;      end; Всего записей: 387 | Зарегистр. 11-01-2006 | Отправлено: 13:18 27-01-2006 | Исправлено: RostY, 13:37 27-01-2006

Vitus_Bering Advanced Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору LordMAD Цитата: Vitus_Bering   Что за строки в списках? От этого зависит способ подбора hash-функции.   Строки типа: 'C:\Directory\Doc\file1.txt'. Короче, полные пути до файла.   Всего записей: 936 | Зарегистр. 30-09-2005 | Отправлено: 14:38 27-01-2006

LordMAD Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Vitus_Bering Цитата: Строки типа: 'C:\Directory\Doc\file1.txt'.   Короче, полные пути до файла.   Тогда попробуй использовать в качестве hash'а, например, отсаток от деления суммы все байтов строки на 256, т.е. что-то вроде этого: Код:   function CalcHash(const S: string): Integer; var   P: PChar; begin   Result := 0;   P := PChar(S);   if Assigned(P) then     while P^ <> #0 do     begin       Result := (Result + Ord(P^)) and $FF;      P := CharNext(P);     end; end;   Соответственно, при добавлении строки в список вычисляй результат этой функции для каждой строки. При сравнении сравнивай эти значения и если они совпадают, то сравнивай и сами строки. Всего записей: 378 | Зарегистр. 01-10-2002 | Отправлено: 14:55 27-01-2006

Vitus_Bering Advanced Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору LordMAD Спасибо. Всего записей: 936 | Зарегистр. 30-09-2005 | Отправлено: 15:09 27-01-2006

RostY Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору SERGE_BLIZNUK Цитата: select rowid, fieldname from tab1     что возращает этот запрос?     P.S. Если ты поля  ранее вытащил в DataSet - удали их все оттуда!   1. select возвращает только fieldname.   2. поля в Датасет не вытаскивал.   p.s. когда-то пользовался АДО для доступа к Ораклу - тогда была похожая трабла - ROWID был виден только если его явно вытащить в поля TADOQuery Всего записей: 387 | Зарегистр. 11-01-2006 | Отправлено: 16:13 27-01-2006 | Исправлено: RostY, 16:15 27-01-2006

nvlnik Newbie Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Уважаемые господа! Подскажите как сохранить в текстовый файл информацию в OEM кодировке. Запись идет из memo, текст в котором создается программой и правиться пользователем. Соответственно и в memo, и в файле должна быть кодировка OEM. Всего записей: 26 | Зарегистр. 19-04-2005 | Отправлено: 16:59 27-01-2006 | Исправлено: nvlnik, 17:09 27-01-2006

RostY Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору nvlnik Цитата: Подскажите как сохранить в текстовый файл информацию в OEM кодировке.   используй   The CharToOem function translates a string into the OEM-defined character set. (OEM stands for original equipment manufacturer.) This function supersedes the AnsiToOem function... Всего записей: 387 | Зарегистр. 11-01-2006 | Отправлено: 17:12 27-01-2006

nvlnik Newbie Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Уважаемый Rosty! The CharToOem поможет сохранить в файл, как я понимаю через обработку в буфере. А нет ли более простого варианта? Всего записей: 26 | Зарегистр. 19-04-2005 | Отправлено: 17:38 27-01-2006

ShamaN Advanced Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору LordMAD, спасибо, очень помог на том форуме действительно был хороший ответ.   Всего записей: 1297 | Зарегистр. 23-09-2004 | Отправлено: 19:11 27-01-2006

Arjuna Newbie Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Подскажите VCL для красивого оформления своей программы.   Кто тестировал всякие VCL с поддержкой скинов?   Если можно, ссылочку хотябы дайте нанаиболее понравивщийся VCL...  Желательно на полную бесплатную версию )) Всего записей: 6 | Зарегистр. 27-01-2006 | Отправлено: 19:51 27-01-2006

nvlnik Newbie Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Рекомендую AlphaControls Home page: http://www.alphaskins.com Для Российских пользователей бесплатно. Всего записей: 26 | Зарегистр. 19-04-2005 | Отправлено: 21:02 27-01-2006 | Исправлено: nvlnik, 15:46 28-01-2006

Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Вопросы по Delphi

ShIvADeSt (20-04-2006 01:53): http://forum.ru-board.com/topic.cgi?forum=33&topic=6679#1

Переход по форумам  Закладки   » Компьютеры Цифровое изображение Программы Microsoft Windows UNIX Другие OS Hardware В помощь сисадмину Прикладное программирование Игры Форумные игры   » Интернет Web-программирование В помощь вебмастеру Графика Хостинг Зацените-ка!   » Тематические Ikonboard v.2 Ikonboard v.3 Invision Board Другие форумы PHP-Nuke и другие порталы Мобила   » Общие Спорт Флейм Темы по региональным встречам Музыка и Кино Юмор Литература и Живопись   » Ru.Board Новости Помощь по форуму   » Андеграунд eBookz Варезник Раздачи и акции Мобильный варезник Андеграунд Игры и фильмы   » Специальные Тестирование