哪位朋友帮我解决下下面问题？

Question

function Tcharcode.getcharcode(const getcharcode: WideString): WideString;
var
  q,w,qw :integer;
  hz:string[3];
begin
  if getcharcode <> '' then
  begin
    hz:=getcharcode;
    q:= ord(hz[1]);
    w:= ord(hz[2]);
    if q > 160 then
    q:= q-160
    else
    q:= q-31;
    if w > 160 then
    w:= w-160
    else
    w:= w-31;
    qw := q*100+w;
    result:=format('%4d',[qw]);
  end;
end;  在学习delphi的com组件，运行时，这段代码中的result:=format('%4d',[qw]);  报错 提示[ Undeclared identifier: 'format'，如何处理？
 

Answer 1

引用SysUtils。其实对于函数说没有定义，LZ可以选中函数名，F1，查看需要引用什么单元，然后在适合的地方Use一下就行了