commonunit.pas

来自「学校班级教学管理系统 DELPHI7下的」· PAS 代码 · 共 32 行

unit CommonUnit;

interface
uses
  SysUtils;
  
  function GetCode(Str :String):String;StdCall;
  function Chinese(Str :String):Boolean;StdCall;

implementation

function GetCode(Str :String):String;  //十进制数相加
var
  i, Counti:Integer;
begin
  Counti :=0;
  for i:=1 to Length(Str) do
  begin
    Counti :=Counti + ord(Str[i]);
    Result :=IntToStr(Counti);
  end;
end;

function Chinese(Str :String):Boolean;
begin
  if Length(WideString(Str))<>Length(Str) then
    Result :=False       //输入的是汉字
  else
    Result :=True;
end;
end.