在另外一个unit中如下写;
unit MyFunction;
interface
uses windows,classes,sysutils,forms,comctrls,db,dbtables,menus;
function TurnExcelCell(a, k: integer): string;
procedure Center(Form:TForm);
implementation
function TurnExcelCell(a, k: integer): string;external 'MComm.dll';
procedure Center(Form:TForm);external 'MComm.dll';
end.
然后在程序中uses这个unit.