ПРи присваивании теряются символы

[Radiy]

Весьма странно, почему-то теряются символы.

procedure TForm1.GenClick(Sender: TObject);
begin
i:=1;
randomize;
for gen3:='А' to 'Я' do
begin
gen2[i]:=gen3;
i:=i+1
end;
for i:=1 to 255 do
begin
gen4[i]:=gen2[Random(33)]
end;
Kluch.Text:=gen4;
end;

ПРоверяю кол-во символов gen4 - 255 железно. Проверяю кол-во символов Kluch.Text - всегда разные значения. В чём проблема?
Вот х-ка переменных:

  i:integer;
  gen2,gen4:array[1..255] of char;
  gen3: char;

[Serj0987]

Radiy, объект под название Kluch какого класса?

[Serge_Bliznykov]

gen4[i]:=gen2[Random(33)+1]

[Radiy]

Kluch: TEdit;

Serge_Bliznykov, поправил, ничего не изменилось.

[Stilet]

D6 проверил. Ничего не теряется.
Кстати вот так вот:

procedure TForm1.Button1Click(Sender: TObject);
var  i:integer;
begin
i:=1;
randomize;
for i:=1 to 255 do
begin
gen4[i]:=chr(Random(33)+ord('А'));
end;
Edit1.Text:=gen4;
Caption:=IntToStr(length(Edit1.Text));
end;

Было бы проще.

Да еще... Так на заметку:
Если для эксперимента написать ord('а') тогда проявляется эффект описанный автором - постоянно получается разная длинна строки в Эдите. Это потому что в цикле генерируется в каком-то случае символ #0, а Эдит как и все порядочные контролы считает его концом строки, и отсекает все что за ним.
А поэтому нужно не прибавлять 1 как сказал Серж, а отнимать:
gen4[i]:=chr(Random(33)+ord('а')-1); тогда все ок, в последовательность не попадает символ с номером 256

[Serge_Bliznykov]

Radiy
точне надо gen4[i]:=gen2[Random(32)+1];

И ещё...
1) какая IDE Delphi у Вас? Не Unicode, часом ли?
2) как проверяете? может ошибка в другом месте?
Какая длина получается в Kluch.Text ?
3) проверьте работу проекта из приложения.

Вариант Stilet безусловно красивее и точнее!

[Radiy]

генерируется в каком-то случае символ #0

Когда? Я же проставил только русский алфавит в цикле.

точне надо gen4[i]:=gen2[Random(32)+1];

Благодарственную, всё заработало! Он же бедную "ё" в

'А' .. 'Я'

не считает.

1) какая IDE Delphi у Вас? Не Unicode, часом ли?
2) как проверяете? может ошибка в другом месте?
Какая длина получается в Kluch.Text ?
3) проверьте работу проекта из приложения.

1) Я полный нуб, я не знаю как это сделать
2) Записывал значение длины в другой TEdit.
В Kluch.Text раньше были абсолютно разные числа.
3) В Вашей проге пашет.