Zitat von
Neutral General:
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