集合類型是否適合循環迭代？

Question

有以下枚舉：

TDays = (tdSunday, tdMonday, tdTuesday, tdWednesday, tdThursday, tdFriday, tdSaturday); 

而下面的組枚舉：

TChoosenDays = set of TDays; 

現在，定義以下數組：

var 
    ArrayStringDaysAcronym : array [TDays] of String = ('SD', 'MD', 'TU', 'WE', 'TH', 'FR', 'ST'); 

假設我已經聲明爲一個變量：

var 
    Foo: TChoosenDays; 
begin 
    Foo:= [tdSunday, tdMonday, tdTuesday]; 

如何迭代集合中的所有成員？

注：以下不編譯，我知道我可以使用數組而不是「set」，是唯一的方法嗎？

function ConcatAcronyms: String; 
var 
    Item: TDays; 
begin 
    Result:= ''; 
    for Item:= Low(Foo) to High(Foo) do 
    begin 
    Result:= Result + '; '+ ArrayStringDaysAcronym[Item]; 
    end; 
end;  

Answer 1

是的。由於您使用的是D6，因此您可以這樣做：

function ConcatAcronyms: String; 
var 
    Item: TDays; 
begin 
    Result:= ''; 
    for Item:= Low(TDays) to High(TDays) do 
    begin 
    if Item in Foo then begin 
     if Result <> '' then 
     Result := Result + ';' // assuming you don't want Result to start with a ';' 
     Result:= Result + ArrayStringDaysAcronym[Item]; 
    end; 
    end; 
end;