Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 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;


 
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;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.004 c
4-100120
Crafox
2001-12-04 19:51
2002.01.31
Блокировка сочетаний типа Win+M и т.п.


14-100067
Digitman
2001-12-07 17:41
2002.01.31
Дж.Харриссон - кто он ?


3-99835
Андрей К.
2001-12-25 09:38
2002.01.31
FreeReport для Delphi 6


7-100072
Liroy
2001-10-19 21:26
2002.01.31
Hook, клавиатурный шпион


3-99853
kengura
2001-12-25 18:26
2002.01.31
SQL запросы insert и update и memo поля





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский