如何遍歷Inno Setup中的MULTI_SZ字符串？

Question

如何遍歷Inno Setup Pascal腳本中的MULTI_SZ字符串？ 例如在由RegQueryMultiStringValue

Answer 1

返回的值下面的代碼做到這一點：

var 
    I,StartPos:Integer; 
    MultiSzStr,Element:String; 

... 

    StartPos := 1; 
    for I:= 1 to Length(MultiSzStr) do 
    begin 
    if MultiSzStr[I] = #0 then 
    begin 
     Element := Copy(MultiSzStr, StartPos, I - StartPos); 
     { do something with the element } 
     StartPos := I + 1; 
    end; 
    end;