Free Pascal에서 임의의 문자열을 작성하려면 어떻게합니까?

Question

사용자가 사용자 지정할 수있는 매개 변수가있는 함수 GenChar을 기반으로 길이가 [0 .. 100] 인 임의의 문자열을 반환하는 함수 GenString을 작성하고 싶습니다. 사용자 정의 GenChar 기능에 전달하여 한 사용자가 모든 a s의 문자열을 생성하고자하는 경우, 그는 항상 a을 반환하는 함수에 전달에 의해 다른 사용자가 임의의 알파벳 히브리어 단어를 생성 할 수 있다고 할 수있다

무작위 히브리어 글자를 반환합니다.

보조 정리 1 : 전달 함수 이 반환하는 모든 유형의 배열을 생성하는 함수 GenArray을 작성하고 싶습니다. Free Pascal에서이 작업을 수행 할 수 있습니까?

보조 정리 2 : Free Pascal에 QuickCheck 포트를 연결하려고합니다.

Answer 1

다음은 예입니다. 국제 문자가 언급되었으므로 유니 코드 문자열이 사용됩니다.

//The functions 

type 
    TGenChar = function: widechar; 

function GenString(MaxLength: integer; GenChar: TGenChar): widestring; 
var 
    i: integer; 
begin 
    if MaxLength < 1 then 
    MaxLength:= 1; //minimum length is 1 
    setlength(result, random(MaxLength+1)); 
    for i:= 1 to length(result) do 
    result[i]:= GenChar; 
end; 


//The usage example (remember to call randomize somewhere in your program) 

var 
    SampleCharSet: widestring= 'ABCxyz'; 

function SampleGenChar: widechar; 
begin 
    result:= SampleCharSet[random(length(SampleCharSet))+1]; 
end; 

function GetRandomStringSample: widestring; 
begin 
    result:= GenString(100, SampleGenChar); 
end;