Old Sen's Tales IT Help

<%# Eval("SDate", "{0:yyyy/MM/dd}") %>
// 0: 表示定義整個括號裡面的第 0 個變數要採用此日期格式。

// 以下為兩個變數的範例。
string s = String.Format("At {0}, the temperature is {1}°C.",
                         DateTime.Now, 20.4);
Console.WriteLine(s);
// Output similar to: 'At 4/10/2015 9:29:41 AM, the temperature is 20.4°C.'

【參考連結】

• asp.net – how to apply particular FORMAT of date by using eval? – Stack Overflow
• c# – What does the 0 in “{0:MM dd yyyy}” do? – Stack Overflow
• String.Format 方法 (System) | Microsoft Docs
• 自訂日期與時間格式字串 | Microsoft Docs
• 標準日期和時間格式字串 | Microsoft Docs

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;

【參考連結】

• case 判斷string的方法 | 三窟

Delphi menus always seem to revert to the default font (8, Tahoma) problem，Some users abroad have asked about this，but there is no solution。Currently, the temporary workaround I can think of is to set up a function key (which can be used as a hotkey)，so that when users encounter a smaller font,，they can manually reset the font size。(During testing, changing the Windows display scaling percentage can make the menu font revert to the default size)

procedure Tmainform.N93Click(Sender: TObject);
begin
  Screen.MenuFont.Size := 12;
  xxxxxx.BringToFront; // 改變畫面焦點，以刷新選單畫面。
end;

【參考連結】

• Delphi VCL force menu repaint – Stack Overflow
• Once in a long while: How to enlarge Delphi MainMenu font and fix missing Menu Checked icons

procedure TfmQAB.FormShortCut(var Msg: TWMKey; var Handled: Boolean);
begin
if (Msg.CharCode = 116)  and (HiWord(GetKeyState(VK_CONTROL)) = 1)  then 
  begin
    ......
  end
end;

【參考連結】

• Catch SHIFT key during menu item selection? – Delphi Tips – CJC Delphi (Cool Delphi Tips)
• GetKeyState:GetKeyState ，This function retrieves the specified virtual key -Chinese Wiki
• DELPHI OnKeyDown,OnKeyPress,Difference between OnKeyDown, OnKeyPress, OnKeyUp_blog by Snowless-CSDN Blog_delphi onkeydown
• Delphi key value table – Taiwan Blog
• How to detect ctrl-t keypress in Delphi – Stack Overflow
• Keyboard key code reference table

var
  vTime, vTime1, vTime2: double;
begin
  vTime1 := GetTickCount();
  vTime2 := GetTickCount();
  vTime := (vTime2 - vTime1) / 1000;
  Showmessage(floatToStr(vTime) + 's');
end;

【參考連結】

• delphi怎样求出两时间之间相差多少秒？-CSDN社区

　　剛剛在調 CSS 語法時，不知道為什麼，解析度模擬成手機解析度後，版型沒有呈現 RWD 該有的效果，一開始以為 @media screen 語法沒有生效，反覆測試後，發現卻是因為 width 語法沒有跟著解析度的比例變動 (已經設成 auto 或用 max-width)。後來試出是要關閉「網頁開發者」模式裡的”觸控模擬”功能，才會正常，目前還不知道為什麼會這樣影響。
繼續瀏覽 »

Today while checking the system logs，I saw a lot of error messages in MariaDB，The content is as follows：

InnoDB: Table mysql/innodb_index_stats has length mismatch in the column name table_name. Please run mysql_upgrade

繼續瀏覽 »

　　SQL Server 預設會吃光作業系統的記憶體，而在 SQL Server 專用的伺服器上，一般也會建議盡量把記憶體都讓 SQL Server 使用，一來提昇效率，二來也降低硬碟的 IO 損耗。不過若有特定的情況需要控制 SQL Server 的記憶體上限，可以藉由 SQL Server Management Studio (SSMS) 來達成。

繼續瀏覽 »

list1 = []
sizeNum = int(input("Please input the size of matrix: "))

for i in range(sizeNum):
    valueNum = int(input("Please input the value: "))
    list1.append(valueNum)

print(list1)

num = int(input("Please input a number: "))

for i in range(2, num):
    for j in range(2, i):
        if (i % j == 0):
            break
        
        if (i == j + 1):
            print(i)