日本国产亚洲-日本国产一区-日本国产一区二区三区-日本韩国欧美一区-日本韩国欧美在线-日本韩国欧美在线观看

當前位置:雨林木風下載站 > 技術開發教程 > 詳細頁面

Delphi系列的Y2K問題

Delphi系列的Y2K問題

更新時間:2022-05-08 文章作者:未知 信息來源:網絡 閱讀次數:

Delphi發展至今,已經是第五版本了。盡管各個版本有大大小小的Bug,但疵不掩暇,她還是贏得了廣大程序員和編程愛好者的追隨和愛戴。隨著2000年的逼近, Y2K的一系列問題和各種解決方案也就隨之提到日程上來。對編程者來說,我們現在關心的焦點是:Delphi系列有沒有Y2K問題呢?

---- 答案當然是肯定的。從 Delphi4 起,Inprise 公司就在系統單元 Sysutils. pas(dcu)中增加了TwoDigitCenturyWindow 這一關鍵詞。它表示從當前年份起加到兩位數的年份的數值,缺省為50(年),也就是說允許Y2K拖后50年才發生。可以這樣舉一簡單的例子:

---- 當前日期為 1999年,調用 FormatDatetime(LongdateFormat,'20-11-04') 為 2020年11月4日。而 FormatDatetime(LongdateFormat,'50-11-04') 卻為 1950年 11月4日 而不是 2050 年11月4日。

---- 因此,現在的Y2K問題方案只是在爭取時間,而沒有徹底解決. 理想的解答是到了 2000年,年份的輸入和表示應該是4位數,而不是兩位,這樣才能除去世紀之交的二義性。

---- 沿著這一思路 Delphi5中最重要的插件 MIDAS 3.X(多層分布式應用服務),也是建立在這一時間差基礎之上的,它往往和 BDE 的Y2K 修正日期范圍聯系在一起。需要注意的是:運行時(RTL)控件,Inspire 建議在日期多應用場合,如出生登記,到期付款憑證等事務處理應用時,可根據自己的實際需要來設定(TwoDigitCenturyWindow) 這一初始值,最好實在窗口建立時,及 OnCreate 事件里面設置。Inprise 建議用 100年的世紀窗口(the century window)(相對2000年以前),大部分程序員都喜歡這樣設 TwoDigitYearCenturyWindow := CurrentYear - 1950。

---- 100年的世紀窗口(the century window)應作如下解釋 :

---- 設 TwoDigitCenturyWindow := 20,那么從現在起,時間支持是20年,其中80年應為過去時間。如:當前時間是 1999年,FormatDatetime(LongdateFormat,'18-11-04') 為 2018年11月4日,超過了期限,FormatDatetime(LongdateFormat,'20-11-04') 為 1920年11月4日。

---- 在標準控件中,與日期輸入有關的插件是 TMaskEdit.及其派生的子類。TdateTimePicker 插件在沒有安裝最新的微軟 Visual Dev 6.0 以前,到了2000年2月29日時,不能顯示正確的日期。另外由于操作系統的原因,COMCTL32.DLL如果不更新到 4.72.2106.4 版本(及以后),那么在 NT 4 或視窗 95 操作系統上,TdateTimePicker 將會用1752 替換所有的奇數。

---- 在數據庫控件中,漏斗和過濾(Filter)函數將 '00-1-1' 轉換到 ’1900-1-1', 在用 Locate 指令時,'00-1-1' 到 '99-1-1'期間將被轉換成 '20XX-1-11','30-1-1' 到 '99-1-1' 期間將被轉換到 '19XX-1-1'.原因是 Locate 使用變數(variants)進行定位,日期定位并被沒有通過 Delphi 的運行時庫進行,而是調用了 WIN32 API 函數轉換到日期類型。這是由于 OLE 自動服務器對象的 OLE 字串轉換到日期類型的規則造成的。尤其是當你調VarToDateTime 函數去試圖從一包含日期的字串分離出 TDateTime 類型時。一些數據庫操作在內部使用變體來提取實際數據,TDataset.Locate 和 Tparams 類將依照 OLE 變體轉換規則來實施具體操作,而非通過Delphi的"字串-日期"轉換過程。

---- 因此,Delphi IDE 環境和 DBExplorer 都在安裝時設定了50 年的世紀窗口,其設定對獨立運行的 SQL Explorer.exe 也有效,在數據瀏覽時的"2-4"年份轉換都是這樣設定. 不過,這些值是可以修改的。IDE 的注冊表項為

"HKEY_CURRENTUSER\Software\Borland\Delphi\4.x\
Globals\TwoDigitYearCenturyWindow".
DBExplorer.EXE 的注冊表項為
"HKEY_CURRENTUSER\Software\Borland\Database Explorer\
2.x\DBXForm\TwoDigitYearCenturyWindow".

---- 如果將TwoDigitYearCenturyWindow變為0,那么 Delphi3、Delphi4、Delphi5 對日期的解釋都將一模一樣只處理兩位數年份。
---- J-MIDAS (Java Midas) 和 J-TClientDataSet 是依靠 JBUILDER 引擎對日期格式進行解釋,所以對兩位數的年份,JBUILDER 只保留了 20 年的有效期。

---- 現在回頭來看一下 Delphi 3。由于先天不足,對仍還在使用他的程序員們來說,多少是有些失望。不過,如果進行一番改造,再把 BDE 升級到 5.1 以上,或用 ADO 2.1 代替 BDE,還是可以正常在低檔機上披星戴月,披掛上陣。

----   我們先看一下 Delphi 3 中對年份處理的 EraToYear 函數。該函數返回一符號整形值。定義如下:

function EraToYear(Year: Integer): Integer;
begin
if SysLocale.PriLangID = LANG_KOREAN then
begin
if Year <= 99 then
Inc(Year, (CurrentYear + Abs
(EraYearOffset)) div 100 * 100);
if EraYearOffset > 0 then
EraYearOffset := -EraYearOffset;
end
else
Dec(EraYearOffset);
Result := Year + EraYearOffset;
end;

---- 我們看到,Delphi 對 2000 年并未加以考慮,其中 Year 獲取年份的后兩位。這樣的話,到了2000 年,日期將回到從前。故而,必須將此函數加以修改,以便使我們的日期轉換能通過2000 年。首先,按照 Delphi 一貫的兼容性做法,應該在單元頭部聲明一 TwoDigitCenturyWindow 的 Byte 變量。在單元初試化時(initialization),把其附值為 50。其次,對 EraToYear 做如下改動:
function EraToYear(Year: Integer): Integer;
begin
if SysLocale.PriLangID = LANG_KOREAN then
begin
if Year <= 99 then
Begin
if Year > TwoDigitYearCenturyWindow then
Inc(Year, (CurrentYear + Abs(EraYearOffset))
div 100 * 100)
else
Inc(Year, (2000 + Abs(EraYearOffset))
div 100 * 100);
end;
if EraYearOffset > 0 then
EraYearOffset := -EraYearOffset;
end
else
Dec(EraYearOffset);
Result := Year + EraYearOffset;
end;


---- 然后對 ScanDate 函數做相應的處理,以使其適應 2000 年過度。
function ScanDate(const S: string; var Pos: Integer;
var Date: TDateTime): Boolean;
var
DateOrder: TDateOrder;
N1, N2, N3, Y, M, D: Word;
EraName : string;
EraYearOffset: Integer;

.....

begin
Y := 0;
M := 0;
D := 0;
Result := False;
DateOrder := GetDateOrder(ShortDateFormat);
EraYearOffset := 0;
if ShortDateFormat[1] = 'g' then
// skip over prefix text
begin
ScanToNumber(S, Pos);
EraName := Trim(Copy(S, 1, Pos-1));
EraYearOffset := GetEraYearOffset(EraName);
end
else
if AnsiPos('e', ShortDateFormat) > 0 then
EraYearOffset := EraYearOffsets[1];
if not (ScanNumber(S, Pos, N1) and ScanChar(S,
Pos, DateSeparator) and
ScanNumber(S, Pos, N2)) then Exit;
if ScanChar(S, Pos, DateSeparator) then
begin
if not ScanNumber(S, Pos, N3) then Exit;
case DateOrder of
if not ScanNumber(S, Pos, N3) then Exit;
case DateOrder of
doMDY: begin Y := N3; M := N1; D := N2; end;
doDMY: begin Y := N3; M := N2; D := N1; end;
doYMD: begin Y := N1; M := N2; D := N3; end;
end;
if EraYearOffset > 0 then Y := EraToYear(Y);

{ 在這里 Century Window 發揮作用 }
if Y <= 99 then
Begin
if Y > TwoDigitYearCenturyWindow then
Inc(Y, CurrentYear div 100 * 100)
else
Inc(Y, 2000);
end;
end else
.....


---- 由此,Delphi 3 已經可以渡過 2000 年了,不過,Inprise 建議 Delphi 3 的版本為 3.02。如果是 3.0 極其以下(不支持 MIDAS 1.,X) 象Delphi 1.x(16位)、Delphi 2.x(32位)不如直接升級到 Delphi 4.02. 有條件的愛好者用 Delphi 5 就更好了。

溫馨提示:喜歡本站的話,請收藏一下本站!

本類教程下載

系統下載排行

主站蜘蛛池模板: 欧美成人久久一级c片免费 欧美成人剧情中文字幕 | 久久天天躁夜夜躁狠狠 | 免费观看国产大片资源视频 | 国产日韩高清一区二区三区 | 亚洲最大成人综合网 | 国产欧美日韩不卡在线播放在线 | 青草青99久久99九九99九九九 | 高清成人综合 | 天天操网站 | 普通话对白国产精品一级毛片 | 国产国语特级一级aa毛片 | 欧美操日韩 | 日本免费第一区二区三区 | 亚洲欧美成aⅴ人在线观看 亚洲欧美国产精品 | 国产精品久久久久久免费 | 亚洲欧洲日本在线 | 国产精品成人久久久 | 在线看中文字幕 | 很黄的网站在线观看 | 999久久免费高清热精品 | 久久久精品免费 | 91在线 一区 二区三区 | 成人午夜做爰视频免费看 | 成人影视频 | 国产精品v欧美精品∨日韩 国产精品v欧美精品v日韩精品 | 91精品专区 | 在线观看 a国v | 国产99视频在线观看 | 国产亚洲精品91 | www.久久.com | 国产日产精品_国产精品毛片 | 久久香蕉国产线看观看式 | 性夜影院爽黄e爽痛轻点www | 一级日本高清视频免费观看 | 202z国产高清日本在线播放 | 天天做爽夜夜做爽 | 日韩精品视频在线免费观看 | 岛国在线视频 | 中文字幕第一页国产 | 久久96国产精品 | 初高中生洗澡福利视频网站 |