Перебор

[tyumencev2004]

Хочу организовать перебор кучи сочетаний букв (англ) и точек с нижним подчёркиванием + тире + цифр.
Ну как кучи.. Просто я хочу от 1 до 5ти символов брать список...
П.С.: пробовал в потоках: та же трабла... Что не так?
Вот что написал: http://rghost.ru/private/7YtnLNpyq/0...0a110fc3b27bac
Или...

unit Unit1;

interface

uses
  Windows, SysUtils, Variants, Classes, Controls, Forms, StdCtrls,
  ExtCtrls, ComCtrls,myUnit;

type
  TForm1 = class(TForm)
    Button2: TButton;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
  public
  end;

var
  Form1: TForm1;
  lst:TStringList;

implementation

{$R *.dfm}

procedure OneSteal;
var
  i:Integer;
begin
try
for i:=48 to 122 do
lst.Add(chr(i));
except
end;
end;

procedure TwoSteal;
var
  a,b:Integer;
begin
try
for a:=48 to 122 do
for b:=48 to 122 do
lst.Add(chr(a)+chr(b));
except
end;
end;

procedure ThreeSteal;
var
  a,b,c:Integer;
begin
try
for a:=48 to 122 do
for b:=48 to 122 do
for c:=48 to 122 do
lst.Add(chr(a)+chr(b)+chr(c));
except
end;
end;

procedure FourSteal;
var
  a,b,c,d:Integer;
begin
try
for a:=48 to 122 do
for b:=48 to 122 do
for c:=48 to 122 do
for d:=48 to 122 do
lst.Add(chr(a)+chr(b)+chr(c)+chr(d));
except
end;
end;

procedure FiveSteal;
var
  a,b,c,d,e:Integer;
begin
try
for a:=48 to 122 do
for b:=48 to 122 do
for c:=48 to 122 do
for d:=48 to 122 do
for e:=48 to 122 do
lst.Add(chr(a)+chr(b)+chr(c)+chr(d)+chr(e));
except
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
try
OneSteal;
TwoSteal;
ThreeSteal;
FourSteal;
FiveSteal;
finally
lst.SaveToFile('Logins.txt');
MyInfoMSG('All OK, nicks saved to file!','')
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Halt;
end;

end.

[Utkin]

А че за трабла? Симпатичный китайский код.
Мне так не интересно, но просто для справки - а где создается lst? Просто код выглядит симпатично, тут вот в var объявляем что у нас будет список, а списка нет. Ну типа вот я вот завел кошелек для денег, потом иду тратить в магазин, а там продавец мне у виска пальцем крутит и объясняет, что хоть кошелек и есть (секция Var), а деньги туда все равно класть я должен.

[tyumencev2004]

Сообщение от Utkin

А че за трабла? Симпатичный китайский код.
Мне так не интересно, но просто для справки - а где создается lst? Просто код выглядит симпатично, тут вот в var объявляем что у нас будет список, а списка нет. Ну типа вот я вот завел кошелек для денег, потом иду тратить в магазин, а там продавец мне у виска пальцем крутит и объясняет, что хоть кошелек и есть (секция Var), а деньги туда все равно класть я должен.

Т.е. всё таки функция lst.Create(); не бесполезна?
Китаянь т.к. это было написано на коленке.....
Сейчас попробую с потоками...

[Serge_Bliznykov]

Сообщение от tyumencev2004

Т.е. всё таки функция lst.Create(); не бесполезна?

Это Вы бред написали.
создание объекта lst выглядит примерно так:

lst := TStringList.Create;

[tyumencev2004]

Сообщение от Serge_Bliznykov

Это Вы бред написали.
создание объекта lst выглядит примерно так:

lst := TStringList.Create;

Спасибо!
А программа мне и в этом виде подойдёт..)
Для людей которые жаждут как же я её доделал: https://rghost.ru/private/8QWJTqcgy/...7a85234b43fab5
Пароль: programmersforum.ru

[Serge_Bliznykov]

раз проблема решена - тему закрываем?

[tyumencev2004]

Сообщение от Serge_Bliznykov

раз проблема решена - тему закрываем?

Закрывай. П.С.: сделал lst:=nil во всех потоках что бы не жрало память.