RandomStr 缺少运算符或分号错误答案

【问题标题】：RandomStr Missing Operator or Semicolon errorRandomStr 缺少运算符或分号错误
【发布时间】：2019-02-04 21:51:14
【问题描述】：

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;

我觉得所有的分号都很好。我错过了什么？

【问题讨论】：

这段代码编译得很好，不是吗？寻求调试帮助的问题（“为什么这段代码不起作用？”）必须包括所需的行为、特定的问题或错误以及在问题本身中重现它所需的最短代码。没有明确问题陈述的问题对其他读者没有用处。

标签： delphi-10-seattle delphi-10.3-rio

【解决方案1】：

until 语句末尾缺少分号：

until (Length(Result) = strLen); // <-- here

【讨论】：

谢谢，是的，这可能是个问题，但我的一个组件也弄乱了函数，所以我用数学来生成随机范围整数，这对我有用。