[XeQtR]

Вот нужно я зделал простейший генератор цифр
кол-во цифр - 13
________
но когда кликаю кнопку Генерировать .. он мне выдаёт комбинации типа : 111111111111
888888888888
111111111111
_____________
+надо зделать что бы в этом окошке нельзя было стерать цифры и изменять ...

Код:

var pin: array [1..13] of Integer;
i: Integer;
st: string;
begin
Randomize;
st:='';
for i:=1 to 13 do
pin[i]:=random(10);
for i:=1 to 13 do
st:=st+IntToStr(pin[1]);
edt1.Text:=st;
end;

Admin: Пользуемся тегами!

[march]

Код:

var
 pin: array [1..13] of Integer;
 i: Integer;
 st: string;
begin
 Randomize;
 st:='';
 for i:=1 to 13 do
   pin[i]:=random(10);
 for i:=1 to 13 do
   st:=st+IntToStr(pin[i]);//здесь стоял символ "1"
 edit1.Text:=st;
 edit1.readonly:=true;
end;

оно?

[Bars1992]

У меня тоже бывает место I ставить 1

[XeQtR]

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

Код:

var
 pin: array [1..13] of Integer;
 i: Integer;
 st: string;
begin
 Randomize;
 st:='';
 for i:=1 to 13 do
   pin[i]:=random(10);
 for i:=1 to 13 do
   st:=st+IntToStr(pin[i]);//здесь стоял символ "1"
 edit1.Text:=st;
 edit1.readonly:=true;
end;

оно?

да ! спс ...