function1.pas

来自「delphi开发的一个文书理解系统」· PAS 代码 · 共 26 行

unit function1;


interface
//定义扫描函数：
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

implementation

//定义扫描函数：
Function scanner(cfstr:string):string;
  var
    n,i:integer;
    fstr:Array[1..60] of string;
    begin
      n:=StrLen(PChar(string(cfstr)));
      for i:=1 to n do
        fstr[i]:=copy(cfstr,i,1);
        scanner:=fstr[1];
    end;

end.