如何避免scrollbar的輸入都沒有東西，不是０喔，是都沒有埴入數值時而當掉的情形。 ex: ScrollBar1.Position:=StrToInt(Edit1.Text); 當edit1.text輸入都沒有東西時會出現error. 謝謝解答喔～～～ 新手上路

------
新手上路

Hi jchuang,

procedure TForm1.Button1Click(Sender: TObject);
var
  POS : Integer;
begin
  If TryStrToInt(Edit1.Text,POS) then
    ScrollBar1.Position := POS;
end;

---------------------------------- 小弟才疏學淺，若有謬誤尚請不吝指教 ----------------------------------

------
Fishman

Hi jchuang 你好: ScrollBar1.Position:=StrToIntDef(trim(Edit1.Text), 0); 我不是高手, 高手是正在銀幕前微笑的人.

------


我不是高手, 高手是正在銀幕前微笑的人.

這個問題，其實最終在於程式設計時的思維 Edit1.txt 如果是你自己於程式設計時用的，那你應該要養成習慣給予初始直(因為你要將之轉成數字型態)，並由你自己來維護其內容 如果你要給人輸入的，那你應該要檢查其內容，因為除了使用者有時會輸入數字以外符號(不管有意或無意)，用 EditMask 會比較方便，不然在 OnExist 上，做輸入的檢查也可以，看是要自動忽略數字以外的符號，還是要提醒使用者，只能輸入數字，在輸入其他符號時要求重新輸入 調整你設計的思維，精進設計時的思考 可以讓你少問很多較無意義的問題，這樣就會減少你所浪費的時間 可以較快完成你所要的結果，最後你的功力會更強 因為工具是可以學習的，也常常在變 但一個好的設計思考是學不到的，常常要靠經驗才會得到