Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.01.31;
Скачать: CL | DM;

Вниз

Помогите! Не могу разобраться, почему в этой проц. печатается менее 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;


 
Yuraz ©   (2002-01-14 09:56) [1]

333


 
WAM   (2002-01-14 11:28) [2]

Потому что 0 <= Random(n) <= n. А в стринге по нулевому индексу лежит его длина (здесь 16), а 16 - непечатный символ. Надо
j := 1 + Random(y - 1);


 
Nemesis ©   (2002-01-14 11:34) [3]

Randomize отсюда выбрось - лучше его поставить в OnCreate формы (главной). Random зависит и от времени и при такой ситуации будет генерировать одинаковые значения при разных запусках процедуры



Страницы: 1 вся ветка

Текущий архив: 2002.01.31;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.008 c
4-100119
Mikola
2001-12-04 17:11
2002.01.31
Сокеты (Sockets) .Основные принципи роботы с ними. Функции (Win32 API) для роботы с сокетами.


3-99878
victor
2001-12-27 07:43
2002.01.31
Подключение к Interbase 4 под SCO Open Server


14-100058
Seery
2001-12-05 11:12
2002.01.31
Бездарность


6-100020
Unforgiven
2001-11-08 02:36
2002.01.31
Работа с майлслотами


4-100099
VanRain
2001-12-01 15:11
2002.01.31
Инфа по WinAPI