SQL Lite

QuickReport - 載入 Qrp 報表文件時，會預先使用預設印表機的紙張格式套用在文件上，與設計的報表格式不符...

 var 

  repReport:TQuickRep;
  iPageHeightPixel, iPageWidthPixel:Integer;
  Meta: TMetafile;
begin
  inherited;
  repReport := TQuickRep.Create(nil);
  repReport.PrevInitialZoom := qrZoomToWidth;   //頁寬
  repReport.PrevShowThumbs := False;            //不顯示簡視欄
  repReport.PrevShowSearch := False;            //不顯示搜尋欄
  repReport.PreviewInitialState := wsMaximized; //最大化
  repReport.ShowProgress := True;
  repReport.PreviewDefaultSaveType := stQRP;

  repReport.Prepare;
  repReport.QRPrinter.Load('Report.qrp');    //載入檔案

  Meta := repReport.QRPrinter.GetPage(1);
  iPageWidthPixel := Meta.Width;    //取得文件記錄中的尺寸 Pixel
  iPageHeightPixel := Meta.Height;  //取得文件記錄中的尺寸 Pixel

  repReport.Page.Orientation := repReport.QRPrinter.Orientation; //報表直/橫向
  repReport.Page.PaperSize := TQRPaperSize.Custom; //報表紙張格式
  repReport.Units := TQRUnit.Pixels;
  repReport.Page.Length := iPageHeightPixel; //設定報表長度
  repReport.Page.Width := iPageWidthPixel;   //設定報表寬度

  repReport.PrinterSettings.PaperSize := TQRPaperSize.Custom;  //報表紙張格式

  repReport.PrinterSettings.PrinterIndex := 1;      //指定印表機
  repReport.PrinterSettings.ApplySettings(repReport.QRPrinter);

  repReport.QRPrinter.PrinterIndex := 1;            //指定印表機
  repReport.QRPrinter.aPrinterSettings.ApplySettings;
  repReport.QRPrinter.PreviewModal;      //預覽文件
end;

QuickReport Prepare / Preview / Print Event觸發的差異

 

面對風險、機遇和挑戰，你為什麽總是賺小虧大？

 

高智商問題：100名囚犯如何用數學拯救自己？

 

透過詢問專業建議，更能具體掌握需要改進細節

 

#CharGPT

在參與考試或競賽後，建立回饋機制對個人成長至關重要。不論最終的成績表現如何，主動向評分委員請益都是提升自我的關鍵步驟。透過詢問專業建議，參賽者能具體掌握需要改進的空間或加強的細節。這種積極的學習態度有助於發現盲點，進而在未來的挑戰中展現更優異的實力。總結而言，將賽後的檢討視為持續進步的契機，是追求卓越不可或缺的過程。

三姬分金

 

三個囚犯

 

三門問題

 

二月為什麼只有28天 !?

 

QuickReport 調整 QRShape 配合 DetailBand 展延

 

procedure TForm1.DetailBand1BeforePrint(Sender: TQRCustomBand; var PrintBand: Boolean);

var h:extended;
begin
  DetailBand1.ExpandedHeight(h);
  QRShape1.Size.Height := h - QRShape1.Size.Top - 1;
end;

光速是如何測量的 !?

 

古人如何測量地球的週長 !?

 

ComboBoxLib

 

 藍寶石

「藍寶石」雖然名字有「藍」字，但實際上藍寶石的顏色不只藍色，這是因為它的命名來自於寶石的礦物成分，而不是顏色。

✅ 原因說明：

1. 藍寶石是「剛玉」（Corundum）的一種

• 剛玉的化學成分是氧化鋁（Al₂O₃）。
• 純淨的剛玉其實是無色透明的。
• 當剛玉中含有不同的微量元素時，會呈現不同的顏色。

2. 顏色來源是微量元素

微量元素 顏色

鐵、鈦         藍色

鉻                 紅色 → 就是「紅寶石」

鐵                 黃色

鉻 + 鐵         粉紅色

鎂                 綠色

3. 命名方式

所有不是紅寶石的剛玉（即使不是藍色），在寶石學上都歸類為「藍寶石」的一種。

• 比如：黃色叫「黃寶石」實際上是「黃色藍寶石」。
• 粉色叫「粉紅藍寶石」、綠色叫「綠色藍寶石」。

❗那為什麼紅色的剛玉叫「紅寶石」？

這是因為紅寶石的價值和歷史地位非常特殊，因此被單獨劃分出來。它和藍寶石其實是同一種礦物（剛玉），但名稱上有所區分。

🔍 總結

「藍寶石」是礦物名稱，不代表一定是藍色。

各種顏色的剛玉都可以叫「藍寶石」，除了紅色那種叫「紅寶石」。

因此你會看到粉色、黃色甚至無色的「藍寶石」。

ChatGPT

常用函數

String

System

function Copy(S: String; Index: Integer; Count: Integer): string;

 

System.SysUtils

function StringReplace(const S, OldPattern, NewPattern: string; Flags: TReplaceFlags): string;

function FormatDateTime(const Format: string; DateTime: TDateTime): string;

function FormatFloat(const Format: string; Value: Extended): string;

function FormatCurr(const Format: string; Value: Currency): string;

function Trim(const S: string): string; 

function TrimLeft(const S: string): string; overload;

function TrimRight(const S: string): string; overload;

function QuotedStr(const S: string): string; overload;

 比對字串 (不區分大小寫)

function CompareText(const S1, S2: string): Integer; 

 

function UpperCase(const S: string): string; 

function UpperCase(const S: string; LocaleOptions: TLocaleOptions): string;

function LowerCase(const S: string): string; overload;

function LowerCase(const S: string; LocaleOptions: TLocaleOptions): string;

function Languages: TLanguages;

System.StrUtils

 回傳Text存在於Array裡的索引值 (區分大小寫)

function IndexStr(const AText: string; const AValues: array of string): Integer;

回傳Text存在於Array裡的索引值 (不區分大小寫)

function IndexText(const AText: string; const AValues: array of string): Integer; 

 

function LeftStr(const AText: string; const ACount: Integer): string; overload;

function RightStr(const AText: string; const ACount: Integer): string; overload;

function MidStr(const AText: string; const AStart, ACount: Integer): string; overload;

function ReverseString(const AText: string): string;

function SplitString(const S, Delimiters: string): TStringDynArray;

 

function IfThen(AValue: Boolean; const ATrue: string; AFalse: string = ''): string; overload;  

Integer / Float

System

是否為奇數

function Odd(X: Integer): Boolean;

 

procedure Inc(var X: Integer); 

procedure Inc(var X: Integer; N: Integer);

 

System.SysUtils

function StrToIntDef(const S: string; const Default: Extended): Extended;

function StrToFloatDef(const S: string; const Default: Extended): Extended;

function TryStrToFloat(const S: string; out Value: Extended): Boolean;

function TryStrToCurr(const S: string; out Value: Currency): Boolean;

function TryStrToInt(const S: string; out Value: Integer): Boolean; overload;

 

System.Math

平方

function Power(const Base, Exponent: Double): Double;

 

將變數向上捨入至正無窮大。

function Ceil(const X: Double): Integer; 

 

將變數向負無窮方向舍入。

function Floor(const X: Double): Integer;  

 

Form.Width / 2 回傳浮點數

Form.Width div 2 回傳整數值 (不計小數)

function Max(const A, B: Integer): Integer; overload;

function MaxValue(const Data: array of Double): Double; overload;

function MaxIntValue(const Data: array of Integer): Integer;

function Min(const A, B: Integer): Integer; overload;

function MinValue(const Data: array of Double): Double; overload;

function MinIntValue(const Data: array of Integer): Integer;

function InRange(const AValue, AMin, AMax: Int64): Boolean; overload;

取整數

function Int(const X: Extended): Extended;

取小數

function Frac(const X: Extended): Extended;

判斷正/負號

function Sign(const AValue: Integer): TValueSign; 

Array中的平均值

function Mean(const Data: array of Single): Single;

function IfThen(AValue: Boolean; const ATrue: Integer; const AFalse: Integer = 0): Integer; overload;

Datetime

System.DateUtils

function IsPM(const AValue: TDateTime): Boolean; 
function IsAM(const AValue: TDateTime): Boolean;
function IsValidDate(const AYear, AMonth, ADay: Word): Boolean;
 
傳回指定 TDateTime 值所在年份的週數。
function WeeksInYear(const AValue: TDateTime): Word;
 
傳回指定年份的週數。
function WeeksInAYear(const AYear: Word): Word;       
 
傳回指定 TDateTime 值所在年份的天數。
function DaysInYear(const AValue: TDateTime): Word; 
 
傳回指定年份的天數。
function DaysInAYear(const AYear: Word): Word; 
 
傳回指定月份的天數。
function DaysInMonth(const AValue: TDateTime): Word;
 
傳回指定年份的指定月份的天數。
function DaysInAMonth(const AYear, AMonth: Word): Word;

 

function Today: TDateTime;
function Yesterday: TDateTime;
function Tomorrow: TDateTime;

 

function YearOf(const AValue: TDateTime): Word;
function MonthOf(const AValue: TDateTime): Word;
function WeekOf(const AValue: TDateTime): Word;           
function DayOf(const AValue: TDateTime): Word;
function HourOf(const AValue: TDateTime): Word;
function MinuteOf(const AValue: TDateTime): Word;
function SecondOf(const AValue: TDateTime): Word;
function MilliSecondOf(const AValue: TDateTime): Word;
function StartOfTheMonth(const AValue: TDateTime): TDateTime;
function EndOfTheMonth(const AValue: TDateTime): TDateTime;
function StartOfAMonth(const AYear, AMonth: Word): TDateTime;
function EndOfAMonth(const AYear, AMonth: Word): TDateTime;
function StartOfTheWeek(const AValue: TDateTime): TDateTime; 
function EndOfTheWeek(const AValue: TDateTime): TDateTime;  
function StartOfAWeek(const AYear, AWeekOfYear: Word;const ADayOfWeek: Word = 1): TDateTime;
function EndOfAWeek(const AYear, AWeekOfYear: Word;const ADayOfWeek: Word = 7): TDateTime;
 
function YearsBetween(const ANow, AThen: TDateTime): Integer;
function MonthsBetween(const ANow, AThen: TDateTime): Integer;
function WeeksBetween(const ANow, AThen: TDateTime): Integer;
function DaysBetween(const ANow, AThen: TDateTime): Integer;
function HoursBetween(const ANow, AThen: TDateTime): Int64;
function MinutesBetween(const ANow, AThen: TDateTime): Int64;
function SecondsBetween(const ANow, AThen: TDateTime): Int64;
function MilliSecondsBetween(const ANow, AThen: TDateTime): Int64;

 

function IncYear(const AValue: TDateTime; const ANumberOfYears: Integer = 1): TDateTime; inline;

function IncWeek(const AValue: TDateTime;const ANumberOfWeeks: Integer = 1): TDateTime; inline;

指定天數偏移的日期 

function IncDay(const AValue: TDateTime; const ANumberOfDays: Integer = 1): TDateTime; inline;
 
function IncHour(const AValue: TDateTime; const ANumberOfHours: Int64 = 1): TDateTime; inline;
function IncMinute(const AValue: TDateTime; const ANumberOfMinutes: Int64 = 1): TDateTime; 

function IncSecond(const AValue: TDateTime; const ANumberOfSeconds: Int64 = 1): TDateTime;

function IncMilliSecond(const AValue: TDateTime; const ANumberOfMilliSeconds:Int64 = 1): TDateTime;

File/Fold

System.SysUtil

資料夾是否存在.

function DirectoryExists(const Directory: string; FollowLink: Boolean = True): Boolean;

檔案是否存在

function FileExists(const FileName: string; FollowLink: Boolean = True): Boolean;

檔案放置的資料夾

function ExtractFileDir(const FileName: string): string;

檔案放置的路徑

function ExtractFilePath(const FileName: string): string;

檔案放置的磁碟代號

function ExtractFileDrive(const FileName: string): string;

檔案名稱

function ExtractFileName(const FileName: string): string;

變更副檔名

function ChangeFileExt(const FileName, Extension: string): string;

檔案是否唯讀

function FileIsReadOnly(const FileName: string): Boolean;

檔案設定唯讀

function FileSetReadOnly(const FileName: string; ReadOnly: Boolean): Boolean;

刪除檔案

function DeleteFile(const FileName: string): Boolean;

檔案名稱更名

function RenameFile(const OldName, NewName: string): Boolean;

檔案搜尋

function FileSearch(const Name, DirList: string): string;

目前的使用路徑

function GetCurrentDir: string;

設定目前的使用路徑

function SetCurrentDir(const Dir: string): Boolean;

建立資料夾(樹狀)

function ForceDirectories(Dir: string): Boolean;

建立資料夾

function CreateDir(const Dir: string): Boolean;

移除資料夾

function RemoveDir(const Dir: string): Boolean;

MARVEL《奇異博士》DOCTOR STRANGE

 

康斯坦丁：驅魔神探 (Constantine, 2005)

 在電影《康斯坦丁：驅魔神探》（Constantine, 2005）中，**加百列（Gabriel）**是一位墮落的天使，在電影後段她與主角約翰·康斯坦丁（John Constantine）對峙時，說出了一段令人印象深刻的話。

在劇情高潮時，加百列透露她的動機是要「讓人類值得神的愛」，而她的方法是讓人類經歷痛苦與苦難，從而讓人類變得「純潔」和「強大」，這樣才「配得上」天堂的愛。她認為神對人類太過仁慈，而這份仁慈讓人類墮落。

這段經典對白類似如下（非官方翻譯）：

「你們這些人類得到了天堂的愛，卻不珍惜。你們浪費了那份恩典。我要讓你們經歷真正的痛苦，真正的挑戰，這樣你們才能變得配得上祂的愛。」

英文原文大致為：

"You don’t deserve to be saved. You get everything handed to you. Love, salvation. It’s a gift that’s been wasted on you. So I’m going to help you earn it. I’m going to bring you pain. I'm going to bring you horror, so that you can finally be worthy of God's love."

這段話表現了加百列以自以為是的「正義」名義做出極端行為的扭曲心理，也點出了電影中神祕主義與人性救贖的主題。

ChatGPT

世界正在無限循環，你要做的只有這件事 | 老高與小茉 Mr & Mrs Gao

 

「如果這個世界不存在絕對的東西的話，人就沒有相信的東西了，
所謂的"信仰"、所謂的"標準"，這些都是絕對的，我們才去信它，
我們不能信一個不絕對的東西，
就好比說原則也好、信念也好都是這種東西，
雖然它是個理想化的東西，但是，由於我們相信它，
我們才能在這個世界上存活...
如果你不相信努力就有回報，你是不會努力的，
雖然我們努力了不一定有回報，
但是根本上你是相信努力會有回報你才在努力，
這就是你相信的東西，這就是你的信念，
也正因為有這個信念，我們才會忍受現在的一些痛苦，忍受現在的折磨，
去為我們的目標而努力。」

「命運之愛是指，你要發自內心的愛你自己的命運，
不管它是幸福還是不幸的，
因為只有命運是屬於你自己的，
你不愛你的命運，它就不愛你
你愛它，它就愛你...
命運是不能改變的，但內心是可以改變，
你想法是可以改變，
這個事你永遠都要經歷，不過巡迴多少次人生你都要經歷，
但是你的想法可以改變。」

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

 

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

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

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

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