老虎在古代為什麼叫大蟲

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

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

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;

//新增

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);

DialogLib.pas 記錄

 

InputBox

EditConnectionString

FindDialog / ReplaceDialog

OpenDialog / SaveDialog

Waiting Form

CustomMemoLib.pas 記錄