Delphi两则：1、PDT时间转北京时间，2、条件编译

1、PDT时间转北京时间
   做了个小东西，时间是PDT，而且月份也是英文的。写了个小函数，有用得着的直接copy去:) 
有更好的实现方法，请回复。 

1. uses DateUtils;
3. function ConvertPDTDateTime(Str: string): TDateTime;
4. const
5.   EngMonthName: array[1..12] of string = ('Jan', 'Feb', 'Mar', 'Apr', 'May', 'Jun',
6.                                  'Jul', 'Aug', 'Sep', 'Oct', 'Nov', 'Dec');
8. var
9.   I: Integer;
11.   fs: TFormatSettings;
12. begin
13.   fs.ShortDateFormat := 'mm-dd-yy';
14.   fs.LongDateFormat := 'mm-dd-yyyyy';
15.   fs.DateSeparator := '-';
16.   fs.TimeSeparator := ':';
17.   fs.LongTimeFormat := 'hh:nn:ss';
18.   fs.ShortTimeFormat := 'hh:nn:ss';
21.   fs.TwoDigitYearCenturyWindow := 50;
23.   for I := 1 to 12 do
24.   begin
25.     Str := StringReplace(Str, EngMonthName[I], IntToStr(I), [rfIgnoreCase]);
26.   end;
28.   Result := StrToDateTime(Str, fs);
30.   //PDT是Pacific Daylight Time的简称,意思是太平洋夏令时
31.   //指的是美国西部时间
32.   //-8区 和北京平时差16小时 4－10月夏令时差15小时
33.   if Pos('PDT', Str) > 0 then
34.   begin
35.     if MonthOf(Result) in [4..10] then
36.       Result := IncHour(Result, 15)
37.     else
38.       Result := IncHour(Result, 16);
39.   end;
40. end;

调用方法：ConvertPDTDateTime('Oct-21-08 12:01:10 PDT') 

2、关于条件编译： 
如果你希望使用命令行dcc32.exe编译工程，请cd到dpr所在目录，否则条件变量可能无法生效（至少我{$I xxx.inc}进来的无效。