[Lekodem]

Подскажите плиз как написать функцию , чтобы код генерировался по порядку.
Например : 0001 , 0002 и далее.
Если есть такой исходник киньте линк.
Зарание благодарю

[NIch]

Какой еще код???
Если просто переменная, то...

Код:

var
 i : integer;
 n : integer;
begin
 for i := 0 to 1000 do
  n := i;
end;

Но что то слишком просто, видимо, что то я не догнал)))

[Lekodem]

Ну мне надо чтобы он и с буквами генил (1a,1b,1c). И выводил этот текст в TextEdit при нажатии кнопки.

[Anchorte]

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

Вот исходник моей программы для генерации всевозможных паролей из заданых символов, длинна генерируемого пароля задаеться от 5 до 20 символов.

[Lekodem]

Да мне нужен генер.
Длина кода 8 символов.

[Anchorte]

Код прошу сильно не судить, писал еще когда только начинал программировать...

[Lekodem]

Спасибо за исходник.
А кодировку я сам если что исправлю.

[Anchorte]

Да незачто...

[Lekodem]

5 - 20 символов вообще реал

[Anchorte]

в свое время писал в зломщик аськи, но не довел до канца...
получилось GenPas 1.0 и GenPas 2.3 + клиент аськи в одном)))

[NIch]

Код:

unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
 i, j, n : integer;
 Number : array [1..24] of Char;//массив букв
begin
Memo1.Clear;//Очистка Memo
//Заполняем массив буквами
 for i := 1 to 24 do
 begin
  n := 64+i;
  Number[i] := Chr(n);
 end;
 n := 1;
//Заполняем список
 for j := 0 to 10 do begin
  for i := 1 to 24 do
   Memo1.Lines.Add(IntToStr(n)+Number[i]);
  inc(n);
 end;
end;

end.

Код заполняет Memo...

[Asinkrit]

Еще один вариант:

Код:

function GeneratePass(const aLength:byte):String;
const
  CSimbols = 'qwertyuiopasdfghjklzxcvbnmQWERTYUIOPASDFGHJKLZXCVBNM1234567890';
var
  i: byte;
begin
  Result:='';
  if aLength > 0 then
    begin
    Randomize;
    SetLength(result, aLength);
    for i:=1 to aLength do
      Result[i]:=CSimbols[Random(Length(CSimbols)-1)+1];
    end;
end;

в CSimbols - символы участвующие в генерации
aLength - длина строки на выходе

[Lekodem]

Asinkrit , реальный код )))