嘗試使用TZDB ...如何在delphi 7

Question

轉換如何轉換在Delphi7的驗證碼...

procedure Tform1.button1.click(sender: tobject); 
var 
    LTZID: string; 
begin 
    // Write each time zone ID on the console 
    for LTZID in TBundledTimeZone.KnownTimeZones(true) do 
    WriteLn(LTZID); 
end; 

謝謝...

Answer 1

procedure Tform1.button1.click(sender: tobject); 
var 
    i: Integer; 
begin 
    // Write each time zone ID on the console 
    for i := Low(TBundledTimeZone.KnownTimeZones(true)) 
     to High(TBundledTimeZone.KnownTimeZones(true)) do 
    WriteLn(TBundledTimeZone.KnownTimeZones(true)[i]); 
end; 

，或者有點優化：

procedure Tform1.button1.click(sender: tobject); 
var 
    KnownTimeZones: TStringDynArray; 
    i: Integer; 
begin 
    // Write each time zone ID on the console 
    KnownTimeZones := TBundledTimeZone.KnownTimeZones(true); 
    for i := Low(KnownTimeZones) to High(KnownTimeZones) do 
    WriteLn(KnownTimeZones[i]); 
end;