Валентин Озеров - Советы по Delphi. Версия 1.4.3 от 1.1.2001

Вот пример этой методики, изложенной на языке функций Delphi:

functionIsISBN(ISBN: String): Boolean;

var

Number, CheckDigit: String;

CheckValue, CheckSum, Err: Integer;

i, Cnt: Word;

begin

{Получаем контрольную цифру}

CheckDigit := Copy(ISBN, Length(ISBN), 1);

{Получаем остальную часть, ISBN минус контрольная цифра и дефис}

Number := Copy(ISBN, 1, Length(ISBN) - 2);

{Длина разницы ISBN должны быть 11 и контрольная цифра между 0 и 9, или X}

if(Length(Number) = 11) and(Pos(CheckDigit, '0123456789X') > 0) then begin

{Получаем числовое значение контрольной цифры}

if(CheckDigit = 'X') thenCheckSum := 10

elseVal(CheckDigit, CheckSum, Err);

{Извлекаем в цикле все цифры из кода ISBN, применяя алгоритм декодирования}

Cnt := 1;

fori := 1 to12 do begin

{Действуем, если только текущий символ находится между "0" и "9", исключая дефисы}

if(Pos(Number[i], '0123456789') > 0) then begin

Val(Number[i], CheckValue, Err);

{Алгоритм для каждого символа кода ISBN, Cnt - n-й обрабатываемый символ}

CheckSum := CheckSum + CheckValue * (11 - Cnt);

Inc(Cnt);

end;

end;

{Проверяем делимость без остатка полученного значения на 11}

if(CheckSum MOD11 = 0) thenIsISBN := True

elseIsISBN := False;

end

elseIsISBN := False;

end;

Это примитивный пример, сильно упрощенный для лучшего понимания алгоритма декодирования кода ISBN. В реальной жизни (приложении) имеется немало мелочей, которые необходимо учесть для нормальной работы. Для примера, описанная выше функция требует от кандидата ISBN строку паскалевского типа с дефисами, разделяющими четыре части кода. В качестве дополнительной функциональности можно проверять кандидата ISBNs на наличие дефисов. Другой полезной вещью могла бы быть проверка на наличие трех дефисов на нужных позициях, а не простая проверка на наличие необходимых одиннадцати символов-цифр.

Nomadicсоветует:

Используй вызов

ExpandEnvironmentStrings(LPCTSTR lpSrc, LPTSTR lpDst, DWORD nSize);

Можно. Попробуйте следующий код:

Proceduresettime(hour, min, sec, hundreths : byte); assembler;

asm

mov ch, hour

mov cl, min

mov dh, sec

mov dl, hundreths

mov ah, $2d

int $21

end;

Proceduresetdate(year : word; month, day : byte); assembler;

asm

mov cx, year

mov dh, month

mov dl, day

mov ah, $2b

int $21

end;

Существует ли возможность определения завершения работы Windows для нормального завершения работы работающего приложения Delphi?

Самым простым решением является создание обработчика события главной формы OnCloseQuery. Данное событие возникает как результат сообщения WM_QUERYENDSESSION, которое посылается всем работающим приложениям Windows в момент инициализации процесса окончания работы Windows. Логическая переменная CanClose, передаваемая обработчику как var-параметр, может позволить программе (и Windows) завершить свою работу, если имеет значение True, значение же False не позволит программе завершить свою работу.

Следующий код демонстрирует как можно воспользоваться данным событием.

Демонстрационный код

procedureTForm1.FormCloseQuery(Sender: TObject; varCanClose: Boolean);

begin

{Спрашиваем пользователя, если инициировано завершение работы.}

ifMessageDlg('Вы уверены?', mtConfirmation, mbYesNoCancel, 0) = mrYes thenCanClose := true {Разрешаем завершение работы.}

elseCanClose := false; {Не разрешаем завершение работы.}

end;

Nomadicрекомендует следующий код:

Все процессы получают сигналы CTRL_CLOSE_EVENT, CTRL_LOGOFF_EVENT и CTRL_SHUTDOWN_EVENT. А делается это (грубо говоря :) так:

BOOL Ctrl_Handler(DWORD Ctrl) {