Lao Sen Chang Tan 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 method (System) | Microsoft Docs
• Custom date and time format strings | Microsoft Docs
• Standard date and time format strings | 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 method to judge string | three caves

Delphi menus seem to always have fonts that go back to default (8, Tahoma) The problem，Questions from abroad，but no solution。The temporary solution I can think of at the moment is to set a function key (Can be set as hotkey)，Let user encounter small font size，Reset font size by yourself。(During testing, the menu font can be changed back to the default value by changing the Windows display size percentage)

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

【參考連結】

• Delphi VCL force menu repaint – Stack Overflow
• once in a while: Delphi MainMenu font enlargement and Menu Checked prompt icon missing solution

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 -Encyclopedia Knowledge Chinese Network
• DELPHI OnKeyDown,OnKeyPress,OnKeyUp Difference-CSDN Blog_delphi onkeydown
• delphi key value table – Taiwan tribe
• How to detect ctrl-t keypress in Delphi – Stack Overflow
• Keyboard key code value comparison table

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

【參考連結】

• How does delphi find the difference between two times in seconds?-CSDN community

　　 Just when I adjusted the CSS syntax，I do not know why，After the resolution is simulated as the mobile phone resolution，The version does not show the effect that RWD should have，At first I thought the @media screen syntax did not take effect，After repeated testing，It was found that the width grammar did not follow the resolution ratio change (Already set to auto or use max-width)。Later, I tried to close the "Web Developer" mode”Touch simulation”Features，Will be normal，I don’t know why it affects this way。
Continue browsing »

When checking system records today，See MariaDB has a lot of error messages，Follows：

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

Continue browsing »

SQL Server will run out of operating system memory by default，And on the server dedicated to SQL Server，In general, it is also recommended to use the memory as much as possible for SQL Server，One to improve efficiency，Secondly, it also reduces the IO loss of the hard disk。However, if there are specific circumstances that need to control the memory limit of SQL Server，SQL Server Management Studio (SSMS) To achieve。

Continue browsing »

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)