Delphi: 1. PDT time to Beijing time; 2. Conditional compilation

1. PDT time to Beijing Time
We made a little thing, the time is PDT, and the month is also in English. I wrote a small function and copied it directly if necessary :)
There are better implementation methods. Please reply.

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', 'sept', 'oct', 'nov', 'dec ');
8. VaR
9. I: integer;
11. FS: tformatsettings;
12. Begin
13. FS. Define dateformat: = 'Mm-dd-yy ';
14. FS. longdateformat: = 'Mm-dd-yyyyy ';
15. FS. dateseparator: = '-';
16. FS. timeseparator: = ':';
17. FS. longtimeformat: = 'hh: NN: ss ';
18. FS. interval timeformat: = '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 is short for Pacific Daylight Time, which means Pacific Daylight Saving Time.
31. // It refers to the western United States time.
32. // The difference between Zone 8 and Beijing is 16 hours, 4-10 months, and the time difference is 15 hours.
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;

Call method: convertpdtdatetime ('occt-21-08 12:01:10 PDT ')

2. Conditional compilation:
If you want to use the command line dcc32.exe to compile the project, please CD it to the directory where DPR is located, otherwise the condition variable may not take effect (at least I {$ I XXX. inc} entered is invalid.