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

Вниз

Генератор   Найти похожие ветки 

 
AFFONYA   (2006-09-30 13:11) [0]

Приветствую мастера и тех кто помладьше....
У меня такая проблема .... точнее вопрос ...
Есть допустим какието 3 переменные ...... допустим....
И они у нас равны :
а:="1234567890";
b:="qwertyuiopasdfghjklzxcvbnmЙЦУКЕННГШЩЗХЪЧАРПЛОРЛОфывцукекнггшщзщQWERTYUIOASDF GHJ";
c:="?><,./":;"}{[]=-)(*&^%$#@!+_";

Вопрос как зделать конечную переменную чтоб она у нас была уже с совмещенным текстом всех трех переменных....

R:="12qweQWEВФЫВПРОФЫВАвапро:";"" "; ----- примерно так .....

Зарание спасибо .....


 
Percent   (2006-09-30 13:14) [1]

c:="?><,./":;"}{[]=-)(*&^%$#@!+_";

Весело...

Что значит "совмещенный" текст?
d := a + b + c;
Так?


 
AFFONYA   (2006-09-30 13:36) [2]

Нет надо чтоб попробывал сгенерить разные ваианты.....
Допустим ...
фFвАпП5"
Не более 6 символов...
ЗЫ.....


 
Орион ©   (2006-09-30 13:46) [3]

var
 z, res: string;
 i: Integer;
begin
 z:=a+b+c;
 SetLength(res, 6);
 Randomize;
 for i:=1 to 6 do res[i]=z[Random(Length(z))+1];
end;


 
AFFONYA   (2006-09-30 13:52) [4]

Спасибо за реализованный код бум развивать.....


 
Desdechado ©   (2006-09-30 20:23) [5]

Орион ©   (30.09.06 13:46) [3]
Вообще говоря, вероятность "совмещенного" будет меньше единицы. Т.е. не всегда будут браться символы из каждой из 3 строк, поскольку они разной длины. (хотя и с одинаковой длиной тоже возможны неиспользования символов отдельных строк).
Логичнее было бы выбирать случайное количество символов (пропорциональное длине строки) из случайно выбранной строки.


 
Kolan ©   (2006-09-30 20:40) [6]


> Desdechado ©   (30.09.06 20:23) [5]

Или из каждой в отдельности выбрать символы , составить из них строку, а потом её перемешать.



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

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

Наверх




Память: 0.47 MB
Время: 0.05 c
5-1141101752
FunkyByte
2006-02-28 07:42
2006.10.15
Прерывание работы конструктора


15-1158937103
GanibalLector
2006-09-22 18:58
2006.10.15
Insert startup disk i floppy drive and press F2 to run setup.


3-1155916546
Itoixxx
2006-08-18 19:55
2006.10.15
DBLookUpCoombobox -выделение нескольких значений


1-1157712245
TakTak
2006-09-08 14:44
2006.10.15
поместить в автозагрузку программу.


1-1157331654
dwar
2006-09-04 05:00
2006.10.15
Алгоритм парсинга XML