[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: Пользуемся тегами!