再次调用

编写一个名称为MyClass一个类,在该类中编写一个方法,名称为CountChar,返回值为整型,参数两个,第一个参数可以
是字符串、整数、单精度、双精度,第二个参数为字符,方法功能返回第二个参数在第一个参数中出现次数。如CountChar("6221982",'2')返回值为3。
继续在该类中编写一下方法,名称为Reconvert,参数一个,但可以是字符串、整数、单精度、双精度,方法功能返回参数的逆序。如Reconvert(6221982)返回值为2891226。
using System;
using System.Collections.Generic;
using System.Collections;
using System.Linq;
using System.Text;

namespace test
{
    class Program
    {
        static void Main(string[] args)
        {
           string str=@"c:\program files\Maths\all.dat";
           myclass t = new myclass();
           Console.WriteLine(t.CountChar(str,'a'));
           t.Reconvert(str);
           Console.ReadKey();
        }
        
    }
    class myclass
    {
        public int CountChar(string str, char a)
        {
            int sum = 0;
            foreach (char i in str)
            {
                if (i == a)
                    sum++;
            }
            return sum;
        }
        public void Reconvert(string str)
        {
            char[] strS = str.ToCharArray();
            for (int i = strS.Length-1; i >= 0; i--)
            {
                Console.Write(strS[i]);
            }
        }
    }
}


再次给分,DLL调用DLL

11-28

library Projecttest;rnrnusesrn SysUtils,rn Classes,rn Unit1 in 'test\Unit1.pas' Form1;rnrntypern TmyInc=procedure(var i:integer);stdcall;rn TmyDec=procedure(var i:integer);stdcall;rn TmyBox=procedure(msg:string);stdcall;rn//保存各个子动态库的函数名rnvarrn dll_first_one,dll_first_two,dll_first_three,dll_first_four,dll_first_five:array of string;rn dll_first_one[1] := ['inc','dec'];rn dll_first_two[1] := ['inc','dec'];rn dll_first_three[0] := ['box'];rn$R *.resrnfunction select_dll(const str:array of string; tol:integer):integer;rnvarrn getfunctin: array of ^Pointer; //保存函数指针rn dll_array: array of string; //保存数组rn SaveExit: Pointer; //保存点rn i,j,k,a: integer;rn var_dll,msg: string;rn Moudle: THandle;rn myinc: TmyInc;rn mydec: Tmydec;rn mybox: Tmybox;rn dllpath: string;rnbeginrn for i:=0 to length(str) dorn case i ofrn 0:rn beginrn var_dll:='project2.dll';rn dll_array: = dd_first_one[1];rn end;rn break;rn 1:rn beginrn var_dll := 'project2.dll';rn dll_array: = dll_first_two[1];rn end;rn break;rn 2:rn beginrn var_dll := 'project3.dll';rn dll_array := dll_first_three[0];rn end;rn break;rn end;rn a:=0;rn msg:='dll';rn dllPath:=ExtractFilePath(Application.ExeName)+var_dll;rn moudle := loadlibrary(var_dll);rn if moudle > 31 thenrn //showmessage('装载动态库'+var_dll+'失败!')rn //elsern beginrn for j:=0 to length(dll_array) dorn k:=j;rn getfunction[k]:=GetProcAddress(moudle,dll_array[j]);rn end;rn freelibrary(moudle);rnend;rnexpoprtsrn select_dll;rnrnrnend.rn上面的是我想通过平台调用这个dll,具体的实现是通过这个DLL调用其他的dll,rn我这方法行吗那里要改进呀?rn

没有更多推荐了,返回首页

私密
私密原因:
请选择设置私密原因
  • 广告
  • 抄袭
  • 版权
  • 政治
  • 色情
  • 无意义
  • 其他
其他原因:
120
出错啦
系统繁忙,请稍后再试

关闭