Bei mir heißt der Code für die PWs erstellen so:
Code:
function RandName(Length : Integer):String;
var
i : Byte;
begin
result := '';
SetLength(Result,Length);
for i := 1 to Length do
begin
Result[i] := Char(Random(25)+65);
end;
end;
Wie baue ich da Zahlen mit ein ? Also was muss ich ändern ? Sehe paralellen aber komme nicht an die Lösung
