Как получить рандомный символ из строки TEdit?

[killbond]

Имею такую вот наработку:

function SpeakAblePassWord: string;
var 
   charset : array [0..6] of string;
begin
// ...
   charset[6]:=Form1.Edit2.Text; 
// ...
Result := ''; 
// ...
Result := Result + charset[6][random(Length(charset[6]))+1]; 
// ...
end;

Хочу получить рандомный символ из строки Form1.Edit2.Text но не выходит, а именно: запускаю программу (компилируется без ошибок) выполняю управляющее действие, и программа просто виснет. Помогите исправить? На всякий случай приложу полные исходники.

[Serge_Bliznykov]

попробуйте так:

var 
   charset : array [0..6] of string;
   ss : string; 
begin
// ...
   charset[6]:=Form1.Edit2.Text; 
// ...
  Result := '';
  ss := ''; 
// ...
  if Length(charset[6])>0 then
     Result := ss + charset[6][random(Length(charset[6]))+1]; 
// ...
end;

p.s. а зачем Result := Result + ... если чуть выше в Result занесли пустую строку?!

внимательнее надо быть!!
Красным выделил место, где у вас были ошибки (теперь это уже исправленный код)!

и я бы не давал включить CheckBox7, пока текст с набором своих символом пуст.

  case random(7) of
  0:  if Form1.CheckBox1.Checked then
      Result := Result + charset[0][random(25)+1];
  1:  if Form1.CheckBox2.Checked then
      Result := Result + charset[1][random(25)+1];
  2:  if Form1.CheckBox4.Checked then
      Result := Result + charset[3][random(33)+1];
  3:  if Form1.CheckBox3.Checked then
      Result := Result + charset[2][random(33)+1];
  4:  if Form1.CheckBox5.Checked then
      Result := Result + charset[4][random(10)+1];
  5:  if Form1.CheckBox6.Checked then
      Result := Result + charset[5][random(30)+1];
  6:  if Form1.CheckBox7.Checked then
      Result := Result + charset[6][Random(Length(charset[6]))+1];

[killbond]

Я столько бился над этой ошибкой, переделывал на тот и этот лад, подумывал даже, что Delphi такой... а проблема оказалась лишь в том, что я когда копипастил, торопился и просто пропустил то место, где нужно 7-ой чекбокс вставить.

Serge_Bliznykov, премного благодарен.

[baster128]

Только в начале кода врубите генератор случайных чисел Randomize.

[Serge_Bliznykov]

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

Только в начале кода врубите генератор случайных чисел Randomize.

у него в коде это есть...

Кстати, killbond, я бы рекомендовал Вам вынести Randomize куда-нибудь повыше. Вообще, его достаточно вызвать один раз. Можно на событие создание формы его повесить (Form.. onCreate)

[ChEaTeR-abc]

Знаю, что опоздал немного, но тут пытали и через case сделать и другими способами.К чему столько кода?Вот это поцепить на кнопку и всё готово:

Randomize;
  Label1.Caption:=Edit1.Text[Random(length(Edit1.Text))+1];

[Serge_Bliznykov]

ChEaTeR-abc, Вы не разобрались в теме.
case там совсем для другого...
Если интересно, посмотрите проект от TC