请问在DELPHI中有没有将字符串转化为大写的函数！是不是UCASE不行

Question

同上

Answer 1

ansiuppercase(const s:string):string;
uppcase,strupper,参数不同

Answer 2

这是我做的编辑器里的实现:procedure TForm1.N8_old_old_oldClick(Sender: TObject);
//转换成大写
var
  ResultStr: String;
begin
  if RichEdit1.SelLength>0 then
    begin
      ResultStr:= UpperCase(RichEdit1.SelText);
      RichEdit1.SelText:= ResultStr;
    end
  else
    begin
      ResultStr:= UpperCase(RichEdit1.Text);
      RichEdit1.Clear;
      RichEdit1.Text:= ResultStr;
      RichEdit1.SelStart:= RichEdit1.GetTextLen;
      RichEdit1.SelLength:= 0;
      RichEdit1.Perform(EM_SCROLLCARET, 0, 0);
    end;
end;

Answer 3

uses SysUtils,StrUtils;
你到这个单元中去看看,里面有很多关于String 的标准例程

Answer 4

wideUpperCase()
这个函数可以字符都转为大写字母。而UpperCase()只能针对7个字符。