-1
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;

All the semicolons seem just fine to me. What am I missing?

Remy Lebeau
  • 555,201
  • 31
  • 458
  • 770
RAT-Daddy
  • 45
  • 7
  • This code compiles fine, isn't it? *Questions seeking debugging help ("why isn't this code working?") must include the desired behavior, a specific problem or error and the shortest code necessary to reproduce it in the question itself. Questions without a clear problem statement are not useful to other readers.* – Kromster Feb 08 '19 at 05:33

1 Answers1

0

You are missing a semicolon at the end of the until statement:

until (Length(Result) = strLen); // <-- here
Remy Lebeau
  • 555,201
  • 31
  • 458
  • 770
  • Thanks and yes that may have been an issue but also a component i had was messing with the function, so i used math to generate randomrange integer which did the trick for me. – RAT-Daddy Mar 01 '19 at 18:26