function Randomstring(strLen: Integer): string;
var
ID: string;
begin
ID := 'QWERTYUIOPASDFGHJKLZXCVBNMqwertyuiopasdfghjklzxcvbnm1234567890';
Result := '';
Repeat
Result := Result + ID[Random(Length(ID)) + 1];
until (Length(Result) = strLen)
end;
所有分号只是似乎没什么问题。我在想什么?
这是因为丢失在until
声明的末尾分号:
until (Length(Result) = strLen); // <-- here