comm.pas

来自「一个串口通信程序,在上海某展馆中控制模型运动的实例.」· PAS 代码 · 共 23 行

unit comm;

interface

function IsAllNum(s:string):boolean;

implementation

function IsAllNum(s:string):boolean;
var i:integer;
begin
    for i := 1 To Length(s) do
        if (s[i] < '0') or (s[i] > '9') then
        begin
            Result := false;
            Exit;
        end;

    Result := True;
end;

end.