2019年3月13日 星期三

Delphi 備忘錄


Chr(13) 代表換行;有時候在程式碼中,會有些字串希望可以換行,就可以使用Chr(13);也可以在程式碼中直接加上#13#10可以換行,例如:'ABCD'+#13#10+'EFGH'。
Chr(9) 代表Tab鍵,也可以輸入#9。

如果想在一個字串中加入單引號,必須打上兩個單引號,例如:'Hello~ 我是''王小明'''。

內建函數
1. IntToStr 數字轉字串;範例:IntToStr('2019') + 'Hello~'。
2. quotedstr 在字串前後加上單引號;範例:quotedstr('Hello~')。
3. Format 字串格式化;範例:Format('Hello 我是%s,我的專長是%s',['王小明','程式設計']),輸出的結果:Hello 我是王小明,我的專長是程式設計。
4. Exit 中斷執行。

快捷鍵
Delphi 7開發環境
Shift + Ctrl + U或 I   選取程式碼在按下快捷鍵,可增減縮排。



2019/10/02
InputQuery函數的提示文字有缺字
參考資料:inputbox的提示字字數會少SHOW出來
在程式碼中使用InputQuery函數,只要提示的字數到一定的長度,中文字就會有缺字的情況發生,要解決這個問題只要在FormCreate事件中設定DefFontData.Name為新細明體即可,程式碼如下。
procedure TfrmTEST1.FormCreate(Sender: TObject);
begin
  ....
  DefFontData.Name := '新細明體';
  ....
end;