如何在Free Pascal中創建一個隨機字符串？

Question

我想編寫一個函數GenString，它返回一個長度爲[0 .. 100]的隨機字符串，這個字符串基於用戶可以自定義的參數化函數GenChar。

也就是說，如果一個用戶希望生成所有a s的字符串，他能做到這一點通過傳遞，它總是返回a的功能，而另一個用戶可以生成隨機字母希伯來語單詞通過傳遞一個自定義GenChar功能它會返回隨機的希伯來字母。

引理1：我想寫一個函數GenArray，該函數生成任何類型的數組，其中返回的是傳入函數GenThing : sometype。這可以在Free Pascal中完成嗎？

引理2：我正在嘗試的是將QuickCheck端口轉換爲Free Pascal。

Answer 1

下面是一個例子。由於提到了國際字符，因此使用Unicode字符串。

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