今天,在製作打包指令碼的時候,遇到了正整型值輸入框中輸入字母或者小數,依然能夠執行的bug。
因此想到對輸入的值進行判斷處理,對不符合條件的輸入值進行警告。
示例**如下:
var
strnumber :string;
number :integer;
;判斷是否為正整數
function ispositiveinteger(strnumber:string):boolean;
begin
if(strtointdef(strnumber, 0) = 0) then
begin
result := false;
end;
result := true;
end;
注釋:
pascal 指令碼: strtointdef
語法:
function strtointdef(s: string; def: longint): longint;
描述:
strtoint 函式轉換字串 s 到乙個數字。如果 s 不能轉換到乙個有效的數字,strtoint 返回 def 中的數字。(引用自innosetup助手)
此處通過設定乙個預設的返回值為0,當輸入的字串不能幹正確轉換時,就返回0值,通過對返回值的判斷,既可以進行是否輸入正確的判斷。
Inno Setup執行SQL指令碼的方法
作為和nsis並立的 兩個最流行的免費windows應用程式安裝包製作工具之一,inno在學習難度上相對要低一些,非常適合對一些簡單的桌面程式打包。但對於較複雜的安裝過程,或者web應用程式來說,我個人覺得不是inno的強項。當然,既然inno內嵌了pascal語言用以擴充套件功能,理論上不是不可以...
Inno Setup 安裝指令碼的初級應用
setup 段 安裝和解除安裝程式的全域性設定,如作者資訊 安裝目錄 壓縮方式 是否解除安裝等。types 段 定義安裝元件的型別,如 完全安裝 最小安裝 選擇安裝 components 段 定義可供選擇安裝的所有元件 tasks 段 定義安裝期間所有由使用者定製的任務。dirs 段 定義使用者想額...
Inno Setup 安裝指令碼的初級應用
1 指令碼範例分析 先來看看一段用inno setup指令碼嚮導建立的基本指令碼的 setup 段 setup defaultdirname adobe premiere 6.5 預設安裝路徑,就是 program files 資料夾 defaultgroupname premiere 6.5 漢化...