「諸神黃昏」為何會爆發？誰該為這場北歐神幾乎全滅的悲劇負責？【神話故事集】#31｜奇幻圖書館

 

「自私，從來不是可恥的事，這是人類跟許多神的天性使然，

只是你必須懂得，有人會因為你的自私而蒙受損失，

而你總會因為給他人造成的困擾，

付出你原本最不想付出的代價」

從佛學解讀《西遊記》原著:取經是佛祖布的驚天大局!為何取經團隊是5個人的自我救贖? | 名著解讀(沙僧,唐僧,黑神話悟空,有聲書,讀書,國學)

西遊記的起源 「唐王遊地府」

帝王為啥總要殺有功之臣？美國為啥要對中國搞貿易戰？李永樂老師用數學帶你看清現實（2018最新）

 

曾是神最寵愛的光之天使首領，路西法為何背叛上帝，成為墮落天使？【奇幻百科全書】#19｜奇幻圖書館

 

「關於權威的反思，
所謂的魔鬼與異端真的都是邪惡不堪的存在嗎，
其實很多時候，惡魔只是不被這社會的規則秩序所接受的一方而已吧，
畢竟當你手裡握有權力，要編故事與羅織罪名根本不是什麼困難的事情」

「基本上，當你心中不容其他意見的質疑與挑戰時，
這種想法本身就是一種權威感，
只是差別在你有沒有辦法對質疑你的人做出制裁而已，
儘管我們小心翼翼，不想變成那個墮落天使，
諷刺的是，我們每個人都可能成為別人眼中的路西法，不是嗎」

Delphi 表單建立/釋放時的事件順序

在 Delphi 中，當一個表單 (Form) 被建立時，會依序觸發以下事件：

Constructor (Create):

在這個階段，表單的物件會被建立，但視窗還沒有初始化。
如果使用的是 TForm.Create(nil)，此時還沒有分配 Parent，也沒有顯示。

CreateWnd:

建立表單的 Windows 視窗句柄 (Handle)。
此時可以進行與視窗句柄相關的操作，例如 API 呼叫。

Loaded:

當表單是從 DFM (表單文件) 加載時會觸發。
所有的組件屬性和子組件都已經被初始化。
適合在這裡進行一些屬性設定或初始化動作。

OnCreate (或 FormCreate 事件):

當表單完成建立時觸發。
通常用於初始化變數、設定控制項屬性或載入資料。

OnShow:

當表單即將顯示在螢幕上時觸發。
表單已經可見，但還沒有繪製完全。
適合用於需要在顯示時更新畫面的操作，例如 UI 資料刷新。

OnActivate:

當表單獲得焦點 (成為最上層視窗) 時觸發。
每次表單被切換回來時都會觸發，不只是第一次顯示時。

OnPaint:

當表單需要重繪時觸發。
一般用於自訂繪圖邏輯，例如畫布 (Canvas) 操作。

OnResize (可選，視情況而定):

當表單大小改變時觸發。
可用於調整內部控制項的佈局。

當表單關閉或釋放時，事件順序如下：

OnCloseQuery:

在關閉前詢問是否允許關閉 (CanClose 參數)。
可用於彈出確認視窗或檢查條件。

OnClose:

當表單正在關閉時觸發。
可透過 Action 參數決定是隱藏還是釋放表單。

OnHide:

當表單從螢幕上消失時觸發。

OnDestroy (或 FormDestroy 事件):

在表單物件被釋放前觸發。
通常用於釋放資源、清理記憶體或結束程序。

Destructor (Destroy):

最後的資源釋放動作，然後表單物件從記憶體中移除。

From Char-GPT

判斷環境處於開發狀態

使用 {$IFDEF DEBUG} 編譯條件

在開發過程中，您可以通過設置 DEBUG 編譯器條件來區分開發模式和執行模式。通常在 IDE 中執行程式時，會啟用 DEBUG 模式。
delphi
複製程式碼
procedure CheckMode;
begin
  {$IFDEF DEBUG}
  ShowMessage('目前是開發模式');
  {$ELSE}
  ShowMessage('目前是執行模式');
  {$ENDIF}
end;
注意：您需要在專案的編譯選項中啟用 DEBUG 定義。

判斷 IsDebuggerPresent（Windows 專用）

在 Windows 系統中，可以使用 Windows API 的 IsDebuggerPresent 函數來判斷程式是否被除錯工具附加，這可以間接反映是否處於開發模式。
delphi
複製程式碼
uses
  Winapi.Windows;
function IsDevelopmentMode: Boolean;
begin
  Result := IsDebuggerPresent;
end;
procedure CheckMode;
begin
  if IsDevelopmentMode then
    ShowMessage('目前是開發模式')
  else
    ShowMessage('目前是執行模式');
end;

判斷設計時期元件的 ComponentState

如果您正在開發元件，您可以檢查元件的 ComponentState 是否包含 csDesigning 標誌來判斷是否處於設計時期：
delphi
複製程式碼
function IsDesignTime(AComponent: TComponent): Boolean;
begin
  Result := csDesigning in AComponent.ComponentState;
end;
// 使用範例
if IsDesignTime(Self) then
  ShowMessage('目前是開發模式（設計時期）')
else
  ShowMessage('目前是執行模式');
適用場景
檢查程式是否在 IDE 中執行：使用 IsDebuggerPresent 或 {$IFDEF DEBUG}。
檢查元件是否處於設計時期：使用 csDesigning。
請依據您的需求選擇合適的方式。如果需要更多協助，請提供您的具體需求！

from Char GPT

老虎在古代為什麼叫大蟲

在古代，老虎被稱為「大蟲」有幾個原因。首先，這個稱呼與唐朝皇室有關。唐高祖李淵的祖父名叫李虎，為了避諱皇室的名字，李淵下令將老虎改稱為「大蟲」。

此外，「大」這個字在古代是一種對生物的尊稱，而「蟲」在古代漢語中有著廣泛的涵義，不僅指昆蟲，還可以指代大型猛獸。這樣的稱呼也出現在《水滸傳》中，例如武松打虎的故事中，老虎被稱為「大蟲」。

Copilot

Delphi 專案編譯前/後的觸發事件

Project → Options 

如果需要將編譯後的文件複製到其他資料夾，可以參考上圖的作法

在 Post-build events → Commads 填入

XCopy "$(OUTPUTDIR)$(OUTPUTFILENAME)" "C:\Temp" /Y

ADO.Connection 開啟Excel Xlsx文件，「找不到提供者，它可能未被正確安裝」

 

需安裝 Microsoft Access Database Engine 2016 Redistributable，選擇適用於系統/應用程式的版本安裝。

安裝操作32位元版本出現警示訊息，可以使用參數來強制安裝。 

C:\Accessdatabaseengine  /quiet

Flutter

 

Android Studio

Flutter SDK archive

瀏覽器頁面內容另存為圖檔

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.OleCtrls,
  SHDocVw, MSHTML, ActiveX, Vcl.Imaging.jpeg;

type
  TForm1 = class(TForm)
    WebBrowser1: TWebBrowser;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure WebBrowser1DocumentComplete(ASender: TObject;
      const pDisp: IDispatch; const [Ref] URL: OleVariant);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure SaveWebPageAsImage(WebBrowser: TWebBrowser; FileName: string; AFullPage:Boolean=True);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.SaveWebPageAsImage(WebBrowser: TWebBrowser; FileName: string; AFullPage:Boolean=True);
var
  HTMLDocument: IHTMLDocument2;
  HTMLBody: IHTMLElement2;
  ViewObject: IViewObject;
  Bitmap: TBitmap;
  JpegImage: TJpegImage;
  vRect: TRect;
  DC: HDC;
  orgWidth, orgHeight:Integer;
  orgAlign:TAlign;
begin
  if not Assigned(WebBrowser.Document) then
    Exit;
  

  with WebBrowser do
  begin
    Visible := False;
    orgWidth := Width;
    orgHeight := Height;
    orgAlign := Align;
    Align := alCustom;
  end;

  HTMLDocument := WebBrowser.Document as IHTMLDocument2;
  HTMLBody := HTMLDocument.body as IHTMLElement2;

  // Create a bitmap to hold the webpage content
  Bitmap := TBitmap.Create;
  try
    // Get the view object of the document
    if HTMLDocument.QueryInterface(IViewObject, ViewObject) = S_OK then
    begin
      // Get the bounding rectangle of the WebBrowser
      if AFullPage then
      begin
        WebBrowser.Width := HTMLBody.scrollWidth;
        WebBrowser.Height := HTMLBody.scrollHeight+30;
      end;

      vRect := Rect(0, 0, WebBrowser.Width, WebBrowser.Height);
      Bitmap.Width := WebBrowser.Width;
      Bitmap.Height := WebBrowser.Height;

      // Get a device context (DC) for the bitmap canvas
      DC := Bitmap.Canvas.Handle;

      // Draw the content of the WebBrowser into the bitmap
      ViewObject.Draw(DVASPECT_CONTENT, 1, nil, nil, 0, DC, @vRect, nil, nil, 0);
    end;

    // Create a TJpegImage and assign the bitmap to it
    JpegImage := TJpegImage.Create;
    try
      JpegImage.Assign(Bitmap);
      JpegImage.SaveToFile(FileName);
    finally
      JpegImage.Free;
    end;

  finally
    Bitmap.Free;
    with WebBrowser do
    begin
      Width := orgWidth;
      Height := orgHeight;
      Align := orgAlign;
      Visible := True;
    end;
  end;

end;

procedure TForm1.WebBrowser1DocumentComplete(ASender: TObject;
  const pDisp: IDispatch; const [Ref] URL: OleVariant);
begin
  SaveWebPageAsImage(TWebBrowser(ASender), 'c:\temp\test.jpg');
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  WebBrowser1.Silent := True;
  Webbrowser1.Navigate('https://www.google.com.tw');
end;

end.

Delphi 在桌面產生捷徑

uses
  Windows, SysUtils, ComObj, ShlObj;

procedure CreateShortcutOnDesktop(const TargetPath, ShortcutName: string);
var
  WSHShell: Variant;
  Shortcut: Variant;
  DesktopPath: array[0..MAX_PATH] of Char;
begin
  // 初始化 WSHShell
  WSHShell := CreateOleObject('WScript.Shell');
  // 獲取桌面路徑
  SHGetSpecialFolderPath(0, DesktopPath, CSIDL_DESKTOP, False);
  // 創建捷徑對象
  Shortcut := WSHShell.CreateShortcut(IncludeTrailingPathDelimiter(DesktopPath) + ShortcutName + '.lnk');
  // 設置捷徑目標路徑和描述
  Shortcut.TargetPath := TargetPath;
  Shortcut.Description := 'Shortcut to ' + ShortcutName;
  // 保存捷徑
  Shortcut.Save;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  // 創建 A.EXE 的捷徑到桌面
  CreateShortcutOnDesktop('C:\path\to\A.EXE', 'A.EXE Shortcut');
end;

Exception EInOutError in module xxx.exe at 0000854A. File access denied.

 

啟動程式遇到以上的錯誤訊息，資料夾必須開放存取權限，資料夾內的文件必須取消唯讀屬性。

SQL 十進位轉分數

取最大公因數 

Create FUNCTION dbo.GCD(@a INT, @b INT)
RETURNS INT
AS
BEGIN
    --最大公因數
    WHILE @b != 0
    BEGIN
        DECLARE @temp INT;
        SET @temp = @b;
        SET @b = @a % @b;
        SET @a = @temp;
    END
    RETURN @a;
END;

十進位轉分數

Create function dbo.DecimalToFraction (@decimal_value DECIMAL(18, 2))

returns NVARCHAR(50) AS

BEGIN

    DECLARE @whole_part INT;

    DECLARE @fraction_part DECIMAL(18, 2);

    DECLARE @numerator INT;

    DECLARE @denominator INT;

    DECLARE @gcd_value INT;

    DECLARE @fraction_string NVARCHAR(50);

    -- 取得整數部分和小數部分

    SET @whole_part = FLOOR(@decimal_value);

    SET @fraction_part = @decimal_value - @whole_part;

    -- 初始分母为100，以处理小数部分的十分位

    SET @denominator = 100;

    -- 将小数部分转换为分数的分子  0.75 * 100

    SET @numerator = @fraction_part * @denominator;

    -- 确保分子和分母为整数

    SET @numerator = ROUND(@numerator, 0);

    SET @denominator = ROUND(@denominator, 0);

    -- 求分子和分母的最大公因数

    SET @gcd_value = dbo.GCD(@numerator, @denominator);

    WHILE @gcd_value > 1

    BEGIN

        SET @numerator = @numerator / @gcd_value;

        SET @denominator = @denominator / @gcd_value;

        SET @gcd_value = dbo.GCD(@numerator, @denominator);

    END;

    -- 将整数部分和分数部分组合成分数形式

    if @numerator<>0

    begin

      SET @fraction_string = CONCAT(@whole_part, '-', @numerator, '/', @denominator);

    end

    else

    begin

      SET @fraction_string = @whole_part

    end

    return @fraction_string;

END;

SQL 英呎轉分數

取最大公因數

Create FUNCTION dbo.GCD(@a INT, @b INT)

RETURNS INT
AS
BEGIN
    --最大公因數
    WHILE @b != 0
    BEGIN
        DECLARE @temp INT;
        SET @temp = @b;
        SET @b = @a % @b;
        SET @a = @temp;
    END
    RETURN @a;
END;

英吋轉分數

Create function dbo.FeetToFraction (@decimal_value DECIMAL(18, 2))

returns NVARCHAR(50) 

AS

BEGIN

    --英呎轉分數

    declare @Int int;

    DECLARE @whole_part DECIMAL(18, 2);

    DECLARE @fraction_part DECIMAL(18, 2);

    DECLARE @numerator DECIMAL(18, 2);

    DECLARE @denominator DECIMAL(18, 2);

    DECLARE @gcd_value DECIMAL(18, 2);

    DECLARE @fraction_string NVARCHAR(50);

    -- 取得整數部分和小數部分

SET @Int = FLOOR(@decimal_value); --整數

    SET @fraction_part = @decimal_value - @Int; --小數

    -- 初始分母為16

    SET @denominator = 16;

    -- 將小數部份乘以 0.75 * 12

    SET @numerator = @fraction_part * 12;

    -- 取相乘後的整數

    SET @whole_part = FLOOR(@numerator); --整數

    SET @fraction_part = @numerator - @whole_part; --小數

    Set @fraction_part = FLOOR(@fraction_part * @denominator)

    -- 求分子和分母的最大公因数

    SET @gcd_value = dbo.GCD(@fraction_part, @denominator);

    WHILE @gcd_value > 1

    BEGIN

        SET @fraction_part = @fraction_part / @gcd_value;

        SET @denominator = @denominator / @gcd_value;

        SET @gcd_value = dbo.GCD(@fraction_part, @denominator);

    END;

    -- 組合成分數

    if convert(int, @fraction_part) <> 0 

    begin

      SET @fraction_string = CONCAT(@Int, ''' ' ,

  convert(int, @whole_part), '-', 

    convert(int, @fraction_part), '/', convert(int, @denominator),'"');

    end

    else

    begin

      SET @fraction_string = CONCAT(@Int, ''' ' ,

  convert(int, @whole_part), '"');

    end

    

    Return @fraction_string;

END;

DBGrid FixedCols Selution

 DBGrid FixedCols Selution

type

  TFixDBGrid = class(TDBGrid)

protected
  function  SelectCell(ACol, ARow: Longint): Boolean; Override;

public

  property FixedCols;

end;
...
...
function TFixDBGrid.SelectCell(ACol, ARow: Longint): Boolean;
Begin
     Result := Inherited SelectCell(ACol, ARow);
     If ACol < FixedCols Then
        Result := False;
End;
...

...

參考轉: https://delfusa.main.jp/delfusafloor/archive/www.nifty.ne.jp_forum_fdelphi/samples/00715.html

 蟾宮折桂

蟾宮，指月亮。折桂，比喻科舉及第。參見「折桂」條。蟾宮折桂相傳月中有桂樹，用以比喻科舉登第。元．施惠《幽閨記》第一一齣：「胸中書富五車，筆下句高千古，鎮朝經暮史，寐晚興夙，擬蟾宮折桂雲梯步。」《孽海花》第五回：「舉人是月宮裡管的，祇要吳剛老爹修桂樹的玉斧砍下一枝半枝，肯賜給我們爺，我們爺就可以中舉，名叫蟾宮折桂。」

https://dict.idioms.moe.edu.tw/idiomView.jsp?ID=11566&webMd=2&la=0

PDF Explained (PDF 解析)

 

PDF Explained

轉自 : https://zxyle.github.io/PDF-Explained/

DBGridLib.pas 記錄

 

System.Generics.Collections.TDictionary

 System.Generics.Collections.TDictionary

uses System.Generics.Collections;

...

 var dicDoctionary: TDictionary<String, String>   //Key, Value

//宣告

dicDoctionary :=  TDictionary<String, String>.Create;

//  建立時指定 TIgnoreCaseStringComparer.Ordinal (不分大小寫)

dicDoctionary := TDictionary<String, String>.Create(TOrdinalIStringComparer.Create);  //不分大小寫

//新增

dicDoctionary.Add(Key, Value);

//刪除

dicDoctionary.Remove(Key);

//新增或取代Value

dicDoctionary.AddOrSetValue(Key, Value);

//比對Key是否存在

dicDoctionary.ContainsKey(Key);

//比對Value是否存在

dicDoctionary.ContainsValue(Value);

//數量

dicDoctornary.Count;

//取值

var sValue:String;

dicDoctionary.TryGetValue(Key, sValue);

//

var sKey, sValue:String;

for sKey in dicDoctionary.Keys do

begin

  dicDoctionary.TryGetValue(sKey, sValue);

  ...

end;