Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Алгоритмы и типы [D7, WinXP]

Perseus © (2010-03-31 22:22:00)
Здравствуйте, помогите пожалуста.
Есть переменная F типа
THashFunction = function (const S : string) : longint;
Допустим что F:=HashBKDR; где
function HashBKDR(const S : string) : longint;
{Note: this hash function is described in "The C Programming Language"
by Brian Kernighan and Donald Ritchie, Prentice Hall}
var
i : integer;
begin
Result := 0;
for i := 1 to length(S) do begin
Result := (Result * 31) + ord(S[i]);
end;
end;
Требуется сохранить F в текстовом файле, и загрузить ее же.
Заранее спасибо. Кстати может кто-нибудь знает хеш функцию, которая бы довала близкие (но не одинаковые) ключи для пожожих сторок, пропорционально проценту их совпадения (требуется для нечеткого сравнения).
(Заранее прошу прощения за тон изложения - я довольно таки начинающий программист пока:)

Gydvin (2010-04-02 02:44:00) [1]
Удалено модератором

Германн (2010-04-02 02:25:00) [2]
Удалено модератором

яяя (2010-04-02 02:16:00) [3]
Удалено модератором

Jeer (2010-04-01 20:05:00) [4]

> Плохиш © (01.04.10 17:45) [16]
>
> А я вообще понял вопрос, как желание сохранить уже откомпилированный
> код функции при выполнении программы, а при следующем выполнени
> считать его и выполнить...

Ну ты и фантазер.

Плохиш (2010-04-01 17:45:00) [5]
А я вообще понял вопрос, как желание сохранить уже откомпилированный код функции при выполнении программы, а при следующем выполнени считать его и выполнить...

Игорь Шевченко (2010-04-01 11:16:00) [6]
Демо © (01.04.10 01:40) [13]

> Т.е. никто не должен вести себя цивилизованно?

Мера цивилизованности у каждого своя

Jeer (2010-04-01 01:43:00) [7]

> Юрий Зотов © (01.04.10 01:26) [10]
> Кроме того, что каждый человек ДОЛЖЕН быть вежливым. И на
> сайте тоже.

Вежливым.. да, неплохо бы..

Демо (2010-04-01 01:40:00) [8]

> Игорь Шевченко © (01.04.10 01:22) [9]
> Юрий Зотов © (01.04.10 01:09) [8] > Потому что ты должен
> понимать> И ты должен это учитыватьЕще раз - на этом сайте
> никто никому не должен.

Т.е. никто не должен вести себя цивилизованно?

Германн (2010-04-01 01:37:00) [9]

> Юрий Зотов © (01.04.10 01:26) [10]
>
>
> > Игорь Шевченко © (01.04.10 01:22) [9]
>
>
> Кроме того, что каждый человек ДОЛЖЕН быть вежливым

Это не совсем то. Вежливость бывает разная. И невежливость тоже.

Германн (2010-04-01 01:36:00) [10]

> Еще раз - на этом сайте никто никому не должен.

Соблюдать правила должен каждый.
Уважать просьбы администрации, конечно, не обязательно, но имхо желательно. Автор того сабжа тоже, конечно, не прав задав свой глупый вопрос в "Основной", но насколько я знаю вопрос почти сразу был перенесен в "начинающим". А вот уже в ней следует избегать жестких высказываний тем, кто знает больше чем автор.
Хотя тёзку я весьма уважаю как специалиста. И насколько мне известно он "учит" не только на форумах. Но наверно не полностью понимает разницу.

Юрий Зотов (2010-04-01 01:26:00) [11]

> Игорь Шевченко © (01.04.10 01:22) [9]

Кроме того, что каждый человек ДОЛЖЕН быть вежливым. И на сайте тоже.

Игорь Шевченко (2010-04-01 01:22:00) [12]
Юрий Зотов © (01.04.10 01:09) [8]

> Потому что ты должен понимать

> И ты должен это учитывать

Еще раз - на этом сайте никто никому не должен.

Юрий Зотов (2010-04-01 01:09:00) [13]
> Jeer © (01.04.10 01:04) [6]

> почему я к ним должен быть менее требователен, чем к себе?

Потому что ты должен понимать, что разница между вами равна пропасти. То, что знаешь и понимаешь ты, человек пока еще не знает. И ты должен это учитывать. И делать соответствующую скидку.

Юрий Зотов (2010-04-01 01:06:00) [14]
> Медвежонок Пятачок © (01.04.10 00:15) [5]

Для того, чтобы чему-то научиться, нужно это делать. Вот он и учится. Все нормально.

Вопрос составлен, конечно, коряво - ну а что Вы хотели? На то он и начинающий. Кстати, если немного подумать, то понять суть проблемы вполне можно. Мы же тут мастера, или только так называемся?

Jeer (2010-04-01 01:04:00) [15]

> А не троллизм ли это? Взвесь объективно.

Да я понимаю, что давно уже не от мира сего мои запросы и требования к окружающим.
Однако, почему я к ним должен быть менее требователен, чем к себе ?

Задумайся, Зотов.

P.S.
И приезжай летом в Калугу :)

Медвежонок Пятачок (2010-04-01 00:15:00) [16]
По-моему, очевидно, что человек, задающий ТАКОЙ вопрос, понять твой ответ просто не сможет

Но зато может догадаться, что нужно наконец научиться спрашивать.

Юрий Зотов (2010-03-31 23:18:00) [17]

> Jeer © (31.03.10 23:12) [3]

Сергей, смысл твоего ответа я понял со второго прочтения. По-моему, очевидно, что человек, задающий ТАКОЙ вопрос, понять твой ответ просто не сможет - а потому истолкует, его, как выступление не по делу (в лучшем случае), или издевательство (в худшем). С соответствующей реакцией.

А не троллизм ли это? Взвесь объективно.

Jeer (2010-03-31 23:12:00) [18]

> Юрий Зотов © (31.03.10 23:07) [2]

Мне просто интересно - кто более адекватен в ответе ?

Юрий Зотов (2010-03-31 23:07:00) [19]
> Perseus (31.03.10 22:22)

Сохранить и загрузить любой текст - не проблема. В том числе, текст функции. Например, через TStringList.

Проблема в другом - ведь эту функцию еще и ВЫПОЛНИТЬ надо. А процессор не умеет выполнять текст, он умеет выполнять только машинные команды. Значит, текст функции придется сначала открмпилировать - и это должна будет сделать Ваша программа. Либо сама, либо запустив внешний компилятор.

Есть вариант попроще - Ваша программа должна содержать в себе интерпертатор. Либо свой, либо чей-то готовый. Свой писать сложно, это задача далеко не для начинающих. А готовый, думаю, можно найти в гугле по ключевым словам Pascal Script.

Jeer (2010-03-31 22:36:00) [20]
Я тут, намедни, ходил по рынку - столько всяких вкусностей !
Купил, однако, по карману и по надобности.

Ферштейн ?

Наверх

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