ZUfälligen Zahlencode erzeugen

[ByStones2]

HI,
könnte mir jemand ein kleines Programm schreiben, mit dem man einen zufälligen Zahlencode mit 16 Stellen erzeugt ???
Es geht mir mehr um den Quellcode als um dass Programm. Falls es so etwas schon in Open Source gibt bitte ich um Entschuldigung.

Danke schon im Vorraus
ByStones

Edit unter beachtung der :dp: :
Könnte mir jemand den Quelltext posten, kein Programm schreiben. :-D

[fwsp]

bedien mal deine hilfe und such mal nach

Delphi-Quellcode:

random();

[Neutral General]

Naja das Problem ist das in den Forenregeln steht das hier niemand Programme für andere schreibt :dp:
Außerdem musst du wie gesagt nur random benutzen um damit eine zufällige Zahl zu erzeugen. Zum Beispiel:

Delphi-Quellcode:

randomize;
random(8999999999999999) + 1000000000000000;

Müsste wenn ich nicht grad auf der Leitung stehe eine Zahl zwischen 1000000000000000 und 9999999999999999 erzeugen.

Gruß
Neutral General

[fwsp]

das

Delphi-Quellcode:

randomize;

aber nur einmal im programm aufrufen, am einfachsten im Create.

[ByStones2]

Zitat:

Zitat von Neutral General

Naja das Problem ist das in den Forenregeln steht das hier niemand Programme für andere schreibt :dp:
Außerdem musst du wie gesagt nur random benutzen um damit eine zufällige Zahl zu erzeugen. Zum Beispiel:

Delphi-Quellcode:

randomize;
random(8999999999999999) + 1000000000000000;

Müsste wenn ich nicht grad auf der Leitung stehe eine Zahl zwischen 1000000000000000 und 9999999999999999 erzeugen.

Gruß
Neutral General

Ich hab deine Methode mal probiert, geht auch super, aber:
Die ersten paar Zahlen sind immer 10000 oder 99999 ???
Hier ein paar Codes:
999998955621035
1000000431484914
999998790337024
1000000151007239

[freak4fun]

Ich würde eine Funktion draus machen, die immer nur eine Zahl (0..9) ausgibt und an andere dran hängt. So ist auch die Länge immer gleich. ;)

Delphi-Quellcode:

function MeineZufallszahlen(ALänge: Integer): Integer;

MfG
freak

[_frank_]

Zitat:

Zitat von Neutral General

Delphi-Quellcode:

random(8999999999999999) + 1000000000000000;

würde das lieber so machen (hat den Vorteil, dass man auch anderere zeichen verwenden kann und nicht so schnell an Typ-Grenzen stößt):

Delphi-Quellcode:

function generateRandomStr(len:integer):string;
var i:integer;
    s:string;
const
    AllowedChars='0123456789';
begin
  result:='';
  for i:=1 to len do
  begin
    result:=result+AllowedChars[random(length(AllowedChars))+1];
  end;
end;

wie gesagt, das randomize im Formcreate nicht vergessen.

HTH Frank