Hvordan kan jeg lave en funktion der laver random ord?
Det skal bruges til at lave tilfældige koder med. (hvis det er mulig så må den også godt kunne have mulighed for både at bruge tal og bogstaver i random funktionen).
Altså du vil bare have den til at lave et eller andet tilfældigt tekst, som f.eks. APFKECI8WW9563 eller hvad ??
Isåfald kan jeg sige at det er rigmelig nemt. Her er en godt kommenteret funktion som kan gøre det du vil:
// Funktionen tager længden af outputtet som parameter og giver en String tilbage
function RandomString(Length: Integer): String;
const
// Alle tegnene holdes her! Der kan frit tilføjes, MEN delen der viser
// hvor mange forskellige tegn der er ( 0..37 ) skal opdateres!
Tegn: array [0..37] of Char = ('A', 'B', 'C', 'D', 'E', 'F', 'G',
'H', 'I', 'J', 'K', 'L', 'M', 'O', 'P', 'Q',
'R', 'S', 'T', 'U', 'V', 'W', 'X', 'Y', 'Z',
'Æ','Ø', 'Å', '0', '1', '2', '3', '4',
'5', '6', '7', '8', '9');
var
I: Integer; // Bare en simpel lokal Integer variabel til et for loop
begin
Randomize; // Sørg for at initialisere random number generatoren
for I := 1 to Length do // Kør et loop fra første tegn op til Length
Result := Result + Tegn[Random(High(Tegn))]; // Tilføj et random tegn til result
end;
MH.
The-Freak
Livet er for kort til at kede sig.