strupper怎么用

strupper如何用?
uses SysUtils;
const

  S: PChar = 'A fUnNy StRiNg'
begin
  Canvas.TextOut(5, 10, string(StrLower(S)) + ' ' + string(StrUpper(S)));

end;
不要用strcopy来给赋值,
procedure TForm1.Button5Click(Sender: TObject);
var
  ps:PAnsiChar ;
begin
  ps:='ffffffffff';
  ShowMessage(string(StrUpper(ps)));
end;
这什么这两个都不能用?

[解决办法]
的确,我在delphi6中也遇过,用StrUpper会报内存错,用AnsiUpperCase就没问题了

[解决办法]

Delphi(Pascal) code

procedure TForm1.Button1Click(Sender: TObject);var  pxxxxx: pchar;  s: string;  pttttt: PChar;begin  pubs := 'fff';  s := 'fff';  pxxxxx:= PChar(s);//  GetMem(pxxxxx, Length(s) + 1);//  ZeroMemory(pxxxxx, Length(S) + 1);//  StrCopy(@pxxxxx, @s);  pttttt := StrUpper(pxxxxx);  button1.Caption := pxxxxx;  Caption := pttttt +  s;end;