Random для символов

[Манжосов Денис :)]

Ну я чесное слово вообще понять не могу что происходит

[Ozerich]

Скинь или тут или в личку исходник.Я подправлю.
Уже у самого голова пухнет.Надо спать идти

[Манжосов Денис :)]

блиин, всё я разобрался, ошибка в проекте была, всё спасибо!

[Ozerich]

Ну наконецто!!!

[Gorychev]

Блин были проблеммы со связью...

Неплохо б проверку на эдит поставить на ввод разрешенных символов например так

procedure TGenerateForm.Edit_SizePassKeyPress(Sender: TObject; var Key: Char);
begin
 case Key of
        '0'..'9',#8: ;  //цифры и <Backspace>
         else Key:= Char(0); // остальные запрещены
  end;
end;

да и количество символов в пароле нужно ограничить разумным числом...

[Манжосов Денис :)]

Каким к примеру? 99 разве много?
К примеру 30? Пускай пользователь я думаю сам вводит.

[Gorychev]

Манжосов Денис без обид, но код написан нелепо.
Поясню свою точку зрения.

1.

procedure TGenerateForm.FormCreate(Sender: TObject);
begin
Randomize;
 GenerateFile := TStringList.Create;
 BorderIcons := [];
 BorderStyle := bsSingle;
 Caption := 'Генератор';
 Color := RGB(0,150,0);
 Position := poScreenCenter;
 Edit_SizePass.Text := '';
 Edit_SizePass.MaxLength := 2;
 bt_Generate.Caption := 'Генерировать';
 bt_Exit.Caption := 'Закрыть';
 bt_Copy.Caption := 'Копировать пароль';
end;

Зачем писать руками если можно выставить все в инспекторе обьектов.

2.

GenerateFile := TStringList.Create;

Обьект создали, а уничтожать не надо? Непонятно вообще его назначение? Дописать новую строчку с паролем в текстовой файл можно и не считывая сначала весь файл в TStringList потом добавляя к нему новую строку и записывая обратно.

3. Проверять наличие файла надо и непонятно почему при возможном возникновении исключения вы все равно пытаетесь в файл чтото впихнуть.

try
   with GenerateFile do
    begin
     LoadFromFile('Generate.txt');
     Add(Label_Password.Caption);
     SaveToFile('Generate.txt');
    end;
   except On EFOpenError do
   GenerateFile.SaveToFile('Generate.txt');
   end;

4. Пароли нужно шифровать.

5. Почему все переменные глобальные?

6. У вас в Edit_SizePassKeyPress при нажатии ENTER вызывается процедура нажатия на кнпоку

if Key = #13 then bt_GenerateCLick(Sender);

Лучше сделать отдельную процедуру и вызывать ее из Button.Clik и из KeyPress

Надеюсь что все выше сказанное будет адекватно вами воспринято.

ЗЫ существуют стандарт именования обьектов, компонентов, модулей и тд. называется "Угорская нотация именования". Поищите в сети если интересно. Могу скинуть файлик, но на украинской мове.

[Манжосов Денис :)]

Ваши пожелания восприняты мной нормально.
Ответы на вопросы:
1. Привык всё писать в OnCreate в инспекторе мне не нравится, мне кажется что так быстрее загружается код, если его самому вставить.
2. Создал там я просто в этом коде строчку удалил, а в норм.версии Free для TStringList есть.
3. Переделаю код.
4. Шифровать не умею.
5. Разве скорость работы программы изменится, если поместить переменные в Private?
6. Сегодня же создам отдельную процедуру и переделаю код.
Спасибо за замечания, но всё же ответьте на мои вопросы, которые я до этого задал(в этом сообщении).

[Gorychev]

5. Разве скорость работы программы изменится, если поместить переменные в Private?

Private тут не причем.
С точки зрения надежности программы и удобства отладки, лучше пользоваться локальными переменными (которые объявляются внутри функции). Уменьшается расход выделенной памяти под приложение, т.к. локальные пер-ные создаются только на время действия процедуры, а глобальные "живут" в течении всего времени работы программы.
У вас все переменные глобальные (описаны вне функции или процедуры). Ее значение может быть изменено в любой процедуре или ф-ции программы отсюда - значение трудно отследить - программа тяжела в отладке.
Прочитайте главу ~ "Область видимости(действия) переменных" такая глава должна быть в каждом самоучителе по делфи.

Что до инфы о шифровании, такого добра в сети просто завались, от самых простых до сложных алгоритмов,
Когдато шифровал с помощью операции xor..