मेरा डेल्फी xe8 दो बार हुआ है और स्विच किया गया है (एफ 12) एक फॉर्म/यूनिट ग्राफिकल इंटरफ़ेस बनाते समय，डेल्फी डायरेक्ट क्रैश，दो विंडोज रिकॉर्ड होंगे：
स्रोत: आवेदन के त्रुटि
विफल आवेदन नाम: bds.exe
失敗的模組名稱: Castalia220.bpl
स्रोत: विंडोज त्रुटि रिपोर्टिंग
事件名稱: ऐपक्रैश
समस्या हस्ताक्षर:
पी 1: bds.exe
पी 4: Castalia220.bpl
आज मैं डेल्फ़ी को AD से जोड़ने के फ़ंक्शन का परीक्षण करना चाहता हूँ，इंटरनेट पर पढ़ाना，आप "घटक → आयात घटक" का उपयोग कर सकते हैं…" आयात करना，लेकिन वास्तविक ऑपरेशन में，卻出現 “OLE लॉगिन तक पहुँचते समय एक त्रुटि उत्पन्न हुई。” 的錯誤訊息。
त्वरित रिपोर्ट 1920*1080 संकल्प प्लस 125% जब उपरोक्त डिस्प्ले सेटिंग वातावरण होता है，"पूर्वावलोकन प्रिंट" का अनुपात गलत होगा.(बहुत बड़ा या बहुत छोटा)，लेकिन वास्तविक मुद्रण सामान्य है.，अगर आप सही करना चाहते हैं，संकलन परिवेश में त्वरित रिपोर्ट की qrprntr.pas फ़ाइल को संशोधित करना आवश्यक है，इसे ठीक करने के दो तरीके हैं。
एंसन | 
02 12वें, 2025| 
unit unit1;
interface
uses
Windows, Messages....
type
TFormName = (Casefm1, Casefm2, Casefm3);
function xxx(): Boolean;
var
StrFormName: String;
CaseFormName: TFormName;
begin
StrFormName := 'Case' + vFormName;
// 將 FormName(物件) 與 TFormName(值) 做區隔。
// (vFormName為帶有各FormName的字串變數)
CaseFormName := TFormName(GetEnumValue(TypeInfo(TFormName), StrFormName));
case CaseFormName of
Casefm1:
begin
..............
end;
Casefm2:
begin
..............
end;
Casefm3:
begin
...............
end;
संदर्भ [कड़ी]
ऐसा लगता है कि डेल्फी मेनू में हमेशा फोंट होते हैं जो डिफ़ॉल्ट रूप से वापस जाते हैं (8, ताहोमा) समस्या，विदेश से प्रश्न，लेकिन कोई समाधान नहीं。इस समय मैं जिस अस्थायी समाधान के बारे में सोच सकता हूं, वह है फंक्शन की सेट करना (हॉटकी के रूप में सेट किया जा सकता है)，उपयोगकर्ता को छोटे फ़ॉन्ट आकार का सामना करने दें，अपने आप से फ़ॉन्ट आकार रीसेट करें。(परीक्षण के दौरान, विंडोज़ डिस्प्ले आकार प्रतिशत को बदलकर मेनू फ़ॉन्ट को डिफ़ॉल्ट मान में वापस बदला जा सकता है)
procedure Tmainform.N93Click(Sender: TObject); begin Screen.MenuFont.Size := 12; xxxxxx.BringToFront; // 改變畫面焦點，以刷新選單畫面。 end;
संदर्भ [कड़ी]
procedure TfmQAB.FormShortCut(var Msg: TWMKey; var Handled: Boolean);
begin
if (Msg.CharCode = 116) and (HiWord(GetKeyState(VK_CONTROL)) = 1) then
begin
......
end
end;
संदर्भ [कड़ी]
var vTime, vTime1, vTime2: double; begin vTime1 := GetTickCount(); vTime2 := GetTickCount(); vTime := (vTime2 - vTime1) / 1000; Showmessage(floatToStr(vTime) + 's'); end;
संदर्भ [कड़ी]
दो हफ्ते कंपनी के नेटवर्क वास्तुकला प्रमुख मरम्मत से पहले，व्यस्त मधुमक्खी，आप प्रिंट सर्वर का आईपी संशोधित जब，दो बहुत मशीन टेढ़े हैं，पहले मुझे परिवर्तन शुरू करते हैं，बाद में, बेहतर के लिए बदलने के बाद，निष्क्रियता की एक लंबी अवधि बनें，वह तोड़ दूँगा，एक दिन की कोशिश की，अंत में छोड़ दे，मैं एक छोटे से कार्यक्रम को पकड़ा，放在Server讓程式每隔30秒就對print server來ping一下。
