01.08.2009, 22:42
|
|
Познавший АНТИЧАТ
Регистрация: 05.03.2007
Сообщений: 1,985
С нами:
10097606
Репутация:
3349
|
|
как вариант -
Код:
var
s:string
d:dword;
begin
d:= dword(pointer(@s[1])^);
end;
т.е. цифровое представление первых 4- байт как 1 двойного слова.
диапазон начала может быть от 1 до length(s)-3
Ну или про суммируй все такие 4-ки байт. |
|
|