Форум: "Основная";
Текущий архив: 2002.01.31;
Скачать: [xml.tar.bz2];
ВнизПомогите! Не могу разобраться, почему в этой проц. печатается менее 6 букв Найти похожие ветки
← →
Yuraz (2002-01-13 19:03) [0]Код ниже
procedure Rand;
const StrTable: string ="abcdef0123456789";
var
s,t: string;
i,y,j,x: integer;
begin
Randomize;
for x:=0 to 100 do // это сколько всего генераций
begin
s:="";
y := Length(StrTable)+1;
for i:=0 to 5 do // устанавливаем кол-во букв
begin
j:=Random(y);
t:=StrTable[j];
s:=t+s;
end;
Form1.Memo7.Lines.Add(s); // выведем весь список в memo
end;
end;
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.01.31;
Скачать: [xml.tar.bz2];
Память: 0.43 MB
Время: 0.004 c