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

string;

 ix: integer;

begin

Result := Format('Неделя=%d ',[week]);

 for ix := 1 to nTeams do begin

  if odd(ix) then Result := Result+' '

  else Result := Result+'v';

  Result := Result+IntToStr(Teams[ix]);

 end;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

nTeams := StrToInt(Edit1.Text);

 if Odd(nTeams) then inc(nTeams); {должны иметь номера каждой группы}

 ListBox1.Clear;

 for ix := 1 to nTeams do Teams[ix] := ix;

 ListBox1.Items.Add(WriteBox(1));

 for week := 2 to nTeams-1 do begin

Teams[1] := Teams[nTeams-1]; {используем Teams[1] в качестве временного хранилища}

  for ix := nTeams downto 2 do if not Odd(ix) then begin

savix := Teams[ix];

   Teams[ix] := Teams[1];

   Teams[1] := savix;

  end;

  for ix := 3 to nTeams-1 do if Odd(ix) then begin

savix := Teams[ix];

   Teams[ix] := Teams[1];

   Teams[1] := savix;

  end;

  Teams[1] := 1; {восстанавливаем известное значение}

  ListBox1.Items.Add(WriteBox(week));

 end;

end;

end.

Mike Orriss

Генерация случайного пароля

The_Sprite советует:

Вам понадобилось, чтобы Ваше приложение само создавало пароли ? Возможно данный способ Вам пригодится. Всё очень просто: пароль создаётся из символов, выбираемых случайным образом из таблицы.

Совместимость: Delphi 5.x (или выше)

Собственно сам исходничек: Пароль создаётся из символов, содержащихся в таблице.

Внимание: Длина пароля должна быть меньше, чем длина таблицы!

// запускаем генератор случайных чисел (только при старте приложения).

procedure TForm1.FormCreate(Sender: TObject);

begin

 Randomize;

end;

function RandomPwd(PWLen: integer): string;

 // таблица символов, используемых в пароле

const StrTable: string =

 '!#$%&/()=?@<>|{[]}\*~+#;:.-_' +

 'ABCDEFGHIJKLMabcdefghijklm' +

 '0123456789' +

 'ДЦЬдцьЯ' + 'NOPQRSTUVWXYZnopqrstuvwxyz';

var

 N, K, X, Y: integer;

begin

 // проверяем максимальную длину пароля

 if (PWlen > Length(StrTable)) then K := Length(StrTable)-1

 else K := PWLen;SetLength(result, K); // устанавливаем длину конечной строки

 Y := Length(StrTable); // Длина Таблицы для внутреннего цикла

 N := 0; // начальное значение цикла

 while N < K do begin // цикл для создания K символов

  X := Random(Y) + 1; // берём следующий случайный символ

  // проверяем присутствие этого символа в конечной строке

  if (pos(StrTable[X], result) = 0) then begin

   inc(N); // символ не найден

   Result[N] :=StrTable[X]; // теперь его сохраняем

  end;

 end;

end;

procedure TForm1.Button1Click(Sender: TObject);

var

 cPwd: string;

begin

 // вызываем функцию генерации пароля из 30 символов

 cPwd := RandomPwd(30);

 // ...

end;

Проверка ISBN

Delphi 1

ISBN (или International Standard Book Numbers, международные стандартные номера книг) - мистические кодовые числа, однозначно идентифицирующие книги. Цель этой статьи заключается в том, чтобы убрать покров таинственности, окружающий структуру ISBN, и в качестве примера разработать приложение, проверяющее правильность создания кода-кандидата на ISBN.

ISBN имеет длину тринадцать символов, которые ограничиваются в использовании символами-цифрами от "0" до "9", дефисом, и буквой "X". Этот тринадцатисимвольный код состоит из четырех частей (между которыми располагается дефис): идентификатор группы, идентификатор издателя, идентификатор книги для издателя, и контрольная цифра. Первая часть (идентификатор группы) используется для обозначения страны, географического региона, языка и пр.. Вторая часть (идентификатор издателя) однозначно идентифицирует издателя. Третья часть (идентификатор книги) однозначно идентифицирует данную книгу среди коллекции книг, выпущенных данным издателем. Четвертая, заключительная часть (контрольная цифра), используется в коде алгоритме другими цифрами для получения поддающегося проверке ISBN. Количество цифр, содержащееся в первых трех частях, может быть различным, но контрольная цифра всегда содержит один символ (расположенный между "0" и "9" включительно, или "X" для величины 10), а само ISBN в целом имеет длину тринадцать символов (десять чисел плюс три дефиса, разделяющих три части ISBN).

ISBN 3-88053-002-5 можно так разложить на части:

Группа:            3

Издатель:          88053

Книга:             002

Контрольная цифра: 5

ISBN можно проверить на правильность кода, используя простой математический алгоритм. Суть его в следующем: нужно взять каждую из девяти цифр первых --">