简单问题 分该你拿

Question

function TDocmedfrm.ExportData(Filename: TFileName): Boolean;
var
  Extract:String;
begin
  Result:=False;
  Extract:=Uppercase(ExtractFileName(FileName));
  case Extract of
  '.XLS': ExportGrid4ToEXCEL(Filename,cvMed,True,True);
  '.TXT': ExportGrid4ToTEXT(Filename,cvMed,True,True);
  '.XML': ExportGrid4ToXML(Filename,cvMed,True,True);
  '.HTM': ExportGrid4ToHTML(Filename,cvMed,True,True);
  else
    Application.MessageBox('未知类型','系统提示',MB_OK+MBICONWARNING);
    Exit;
  end;
  Result:=True;
end;>>>  case Extract of  这行编译时总有错误提示：Ordinal type required
这是哪里不对呀？ 请指点！

Answer 1

Case SelectorExpression of
这里SelectorExpression是任何一个有序类型的表达式（字符串无效）