摘要： function IsNumber(const s: string): Boolean;var i: Integer;begin if IsEmpty(s) or not (Pos('-', s) in[0, 1]) then begin Result := False; Exit; end; Result := True; for i := 1 to Length(s) ... 阅读全文