Delphi中用状态图对字符串数据进行类型判断

Delphi中用状态图对字符串数据进行类型判断

 

 

在我们写程序时总是会遇到对字符串进行数据类型判断,如:整型，浮点型等。而我们可是用状态图<图1>的方法来对字符串数据进行类型判断。

对字符串进行类型判断我们一般需要对它进行解析，在解析过程中我们需要标识出它现在的状态和下次它可以出现在状态，如整型，浮点型。在解析完后我们可以得出它最后的状态，这样我们对它的类型判断的结果就是它那个最后的状态,通过这个我们可以达到举一反三的效果。

                                                              

                                                                     图1

图中有五个小圆圈表示五种状态（虚线的圆圈表示中间状态，实线圆圈表示最终状态。当然还有一种状态我没有画出来：非数据类型），它们分别是：StateInit(开始)，StateDiag(符号)，stateDot（小数点），StateInt（整型），stateFloat（浮点型），箭头表示字符串的解析流程，长方型表示解析的每个字符。

我们举个例子来说说吧！如字串：”-19.2”。把它解析成‘-’→‘1’→‘9’→‘.’→‘2’。根据图1：开始状态为stateInit，解析第一个字符‘-’ →得到它的状态为StateDiag,

解析第二个字符‘1’ →得到它的状态为StateInt，解析字符‘9’ →得到它的状态为StateInt，解析字符‘。’→得到它的状态为StateFloat→…→得到它最后的状态为StateFloat。这样我们就得到了最终结果：这个字符串对应的是浮点型的数据。下面是Delphi源码<仅供参考>:

{******************************

//author = py

//time = 20/06/04

//function = Is integer(float) or not in string;

*******************************}

unit Pfunction;

 

 

interface

//uses windows;

{*result: 0. Integer

 *        1. float

 *       -1. error}

function isNumberOrFloat(aEnterStr: PChar): Integer;

implementation

 

 

 

 

 

 

function isNumberOrFloat(aEnterStr: PChar): integer;

   function isNumber(aNum: char): boolean;

   begin

      result := false;

      if (aNum >= '0') and (aNum <= '9') then

        result := true;

   end;

   function isSymbol(aNum: char): boolean;

   begin

     result := false;

     if ((aNum = '+') or (aNum = '-')) then

       result := true;

   end;

   function isDot(aNum: char): boolean;

   begin

     result := false;

     if (aNum = '.') then

       result := true;

   end;

type TStateBit = (STATEINIT, STATEINT, STATEDIAG,

          STATEDOT, STATEFLOAT, ERROR);   //static enum

var  mCh: char;          // char of string

     mI: integer;       //circle num

     mInx: integer;    //length of string;

     mState: TStateBit ; //current state

begin

   mInx := Length(aEnterStr);

   mState := STATEINIT;

   result := -1;

 

 

   for mI := 0 to mInx-1 do

   begin

      mCh := aEnterStr[mI];

      case mState of

        STATEINIT:begin

                    if isNumber(mCh) then  begin

                      mState := STATEINT;

                    end

                    else if (isSymbol(mCh)) then begin

                       mState := STATEDIAG;

                    end

                    else if isDot(mCh) then  begin

                       mState := STATEDOT;

                    end

                    else mState := ERROR;

 

 

                  end;

        STATEINT: begin

                    if isDot(mCh) then begin

                      mState := STATEFLOAT;

                    end

                    else if (isNumber(mCh))then begin

                      mState := STATEINT;

                    end

                    else mState := ERROR;

                  end;

        STATEDIAG:begin

                    if isNumber(mCh) then  begin

                       mState := STATEINT;

                    end

                    else if isDot(mCh) then begin

                      mState := STATEDOT;

                    end

                    else mState := ERROR;

                  end;

        STATEDOT: begin

                    if isNumber(mCh) then begin

                      mState := STATEFLOAT;

                    end

                    else mState := ERROR;

                  end;

        STATEFLOAT:begin

                     if isNumber(mCh) then  begin

                       mState := STATEFLOAT;

                     end

                     else mState := ERROR;

                   end;

      end;

   end;

   if (mState = STATEINT) then result := 0

   else if (mState = STATEFLOAT) then result := 1;

end;

 

 

end.