Hallo,
ich habe folgendes Problem. Ich verstehe nicht wieso in der Rückgabe bzw. dem Result nicht immer 8 Zeichen bzw. Buchstaben stehen? Sehr oft 8, aber ab und zu gar keine oder nur 3 oder 4... hm... kapiere ich nicht. Ich habe eine Vermutung, dass das irgendwie dann aufkommt, wenn ein Buchstabe mehrmals nacheinander vorkommt, oder irre ich mich da?
Bin für jede Aufklärung dankbar.
Delphi-Quellcode:
function GetPassword(vUpCaseLet: Integer): String;
var
i : Integer;
s1 : String;
const
u : String = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ';
begin
// Großbuchstaben
if vUpCaseLet = 1 then
begin
s1 := '';
for i := 1 to 8 do
begin
s1 := s1 + u[Random(Length(u) + 1)];
end;
end;
Result := s1;
end;