Главная страница
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.48 MB
Время: 0.057 c
2-1159379107
dreamse
2006-09-27 21:45
2006.10.15
Как вытащить имя файла из пусти без расширения ?


2-1159503354
Андрей Иванов
2006-09-29 08:15
2006.10.15
Разноцветный DBCtrlGrid


2-1159438865
voffka
2006-09-28 14:21
2006.10.15
Как выбрать каталог???


2-1159357517
Anto}{a
2006-09-27 15:45
2006.10.15
delphi не находит нужного поля


2-1159352100
TrainerOfDolphins
2006-09-27 14:15
2006.10.15
Программное возбуждение событий.