如何在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;
谢谢...
最佳答案
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;
关于delphi - 尝试使用TZDB…如何在delphi 7中进行转换,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/11980753/