//将edit1中的每个字符串改为首字母大写 procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);begin with Sender as Tedit do if (text = '') or (text[selstart] = ' ') or ( sellength = length( text ) )then if Key in ['a'..'z'] then Key := Upcase(Key)
/*转大写*/ SELECT UPPER(TITLE_EN) FROM ME_EO WHERE ( ISSUE_DATE BETWEEN to_date( '2017-02-04', 'yyyy-MM-DD' ) AND to_date( '2017-02-09', 'yyyy-MM-DD' ) ) ) ORDER BY ATA ASC ; 效果如下: /*转小写*/ SELECT LOWER(TITLE_EN) FROM ME_EO WHERE ( ISSUE_DATE BETWEEN to_