Главная » Статьи » Delphi » Статьи Delphi

Скачивать материалы с сайта, могут только зарегистрированные пользователи.
Для регистрации заполните два поля ниже!

Через минуту Вы получите "Гостевой доступ"




Простой расчет контрольной суммы
Простой расчет контрольной суммы

{ 
Example of calculating a simple checksum.
Beispiel, wie eine einfache Checksumme berechnet werden kann.
}


function CalcStrChecksum(s: string; zerobased: Boolean): Longint;
var
i: integer;
L: integer;
begin
Result := 0;
l := Length(s);
if l > 0 then
begin
for i := 1 to l do
if zerobased then
Inc(Result, Ord(s[i]) - 65)
else
Inc(Result, Ord(s[i]));
end;
end;

Категория: Статьи Delphi | Добавил: c1 (2009 Июль 09)
Просмотров: 645 | Теги: Простой расчет контрольной суммы | Рейтинг: 0.0/0

Выразить благодарность - Поделиться с друзьями!

 

Здесь все о технической стороне 1С!

 

Узнай, как правильно администрировать 1С Предприятие
Регистрируйся на бесплатный 7-ми дневный курс сейчас:

Ваш E-Mail в безопасности



Всего комментариев: 0
avatar