fundll4.~dpr

本光盘是《Delphi 7应用教程》一书的配套光盘

library FUNDLL4;

uses
  SysUtils,
  Classes;

{$R *.res}
Function  AlphNum(Parastr:string):Integer;stdcall;
var
  i,num:integer;
  t:string;
begin
  num:=0;
  For i:=1 to  length(Parastr) do
     begin
        t:=copy(Parastr,i,1);
        if (UpperCase(t)>='A')  and (UpperCase(t)<='Z')  THEN
            Num:=Num+1;
     end;
  Result:=num;
end;

Function  DigNum(Parastr:string):Integer;stdcall;
var
  i,num:integer;
  t:string;
begin
  num:=0;
  For i:=1 to  length(Parastr) do
     begin
        t:=copy(Parastr,i,1);
        if (t>='0')  and (t<='9')  THEN
            Num:=Num+1;
     end;
  Result:=num;
end;
Function  HuiWen(str:string):Boolean;stdcall;
 var
   i,j:integer;
begin
   i:=1;j:=length(str);
   while i<j do
      begin
         if copy(str,i,1)=copy(str,j,1)  then
            begin
               i:=i+1;
               j:=j-1;
            end
            else
               break;
      end;
   if i>=j then
       Result:=True
      else
        Result:=False;
end;


Exports
  DigNum,AlphNum,HuiWen;

begin
end.