Советы по Delphi. Версия 1.4.3 от 1.1.2001

Озеров Валентин

var

Teams: Array[1..maxTeams] of integer;

 nTeams, ix, week, savix: integer;

function WriteBox(week: integer): string;

var

str: 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 символов