Don0Choa
Messages postés104Date d'inscriptiondimanche 29 octobre 2000StatutMembreDernière intervention12 décembre 2005
-
8 août 2003 à 23:00
Don0Choa
Messages postés104Date d'inscriptiondimanche 29 octobre 2000StatutMembreDernière intervention12 décembre 2005
-
11 août 2003 à 12:55
Bonjour,
Voila ce que je voudrais c'est mélanger deux strings par exemple:
str1:='abcd'
str2:='1234'
Je voudrais obtenir qqchose du style '1d4a3cb2' mais de facon tout afait aléatoire..
yvemoreau
Messages postés308Date d'inscriptionmardi 11 juin 2002StatutMembreDernière intervention26 septembre 2008 10 août 2003 à 02:52
function melange(str1,str2:String):String;
var
x:Integer;
begin
randomize;
result:='';
try
while(length(str1)>0)or(length(str2)>0)do
begin
x:=random(2)+1;
case x of
1:if(length(str1)>0)then
begin
x:=random(length(str1))+1;
result:=result+str1[x];