請問如何實現在memo裏當輸入: 1. 第一個字如果是小階(e.g. 'a'),把這個轉成大階(e.g.'A') 2. Space之後的第一個字是大階 例子: i am a boy. she is girl 轉成 I Am A Boy. She Is Girl    註: 我要的是輸入時已可以自動轉換，不是輸入完成後才轉換

var
  PrevKeyIn: Char = ' ';    procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);
begin
  if PrevKeyIn = ' ' then begin
    if Key in ['a'..'z'] then
      Key := Chr(Ord(Key) - 32);
  end;      PrevKeyIn := Key;      if Key = #13 then
    PrevKeyIn := ' ';
end;

輸入的時候，第一個字會大寫，順便處理了換行時的情況 不過，沒有處理當使用者按下 BackSpace 的情況