會出現 'incompatible types' 會錯誤訊息，然後，不能編譯和執行。 看了十幾遍，看不出來問題是什麼？ var i, j: Integer; lb: TLabel; ed: TEdit; cb: TComboBox; maxbedno: integer; linespace: integer; begin maxbedno:=strtoint(edit2.Text); //設定最大床位數量; if (maxbedno<=1 or maxbedno >=12) then exit; //錯誤訊息是停留在這一行

------
有困難就是能力不足，有麻煩就是方法不對... 劣者總是遇到困難，也時常出現麻煩

改成如下試試:

begin
   ...
   if (maxbedno <= 1) or (maxbedno >= 12) then exit;
end;

-- Everything I say is a lie.

原來是這樣，可見和 VB 和 c 語言都不同。 再請問， maxbedno:=strtoint(edit2.Text); 這一行的話， 如果我們給它的是一個「不是數字」的字串，它會出現錯誤，怎麼辦呢？ 也就是說我們要如何測出來它不是一個數字的字串，而不去執行這一行呢？ 假設不用try.... finally

------
有困難就是能力不足，有麻煩就是方法不對... 劣者總是遇到困難，也時常出現麻煩

不想用 try .. except 的話 那得先檢查 Edit1.Text 內每個字元是否為數字囉!    -- Everything I say is a lie.

引言: 原來是這樣，可見和 VB 和 c 語言都不同。 再請問， maxbedno:=strtoint(edit2.Text); 這一行的話， 如果我們給它的是一個「不是數字」的字串，它會出現錯誤，怎麼辦呢？ 也就是說我們要如何測出來它不是一個數字的字串，而不去執行這一行呢？ 假設不用try.... finally

你可以用這樣的一個方法 maxbedno:= StrtoIntDef(edit2.Text,-9876); if maxbedno=-9876 then showmessage('worng number); 原因是 StrtoIntDef()函數轉換如果有問題的整數時, 會以第二組參數值為標準 只要你確定-9876是不可能被keyin的值, 就可以這樣做, 當然你可以自行挑一個隨便的整數值, 不過我還是建議你用 try .... except try maxbedno:= StrtoInt(edit2.Text); except showmessage('worng number'); end;