最近在做能做實數運算的小算盤
在小數點的地方小卡住了
以下是試寫的程式，但執行上有錯誤
如下：
procedure Form1.btnDOTClick(Sender: TObject);
begin
x:= strtofloat(edit1.text);
if x=0 then //如果輸入框中為0 那麼將小數點加入0之後
begin
edit1.text:= edit1.text '.';
end
else
edit1.text:= edit1.text '.';
// 目前暫時有bug 尚未解決不能按兩次小數點的問題
// 0. 會被判斷為0 所以再按其他數字鍵會消掉 而無法顯示0.XX--
end;

在 else 後面 要怎麼寫才可以讓小數點 在按第二次以上 有作用但不顯示?

懇請教學 謝謝

很簡單,
只要利用 Pos() 函式去偵測是不是字串有小數點, 如果有不做任何變更, 沒有則加上小數點
if Pos('.',原字串)>0 表示有小數點了
想想看要放在那裡吧?
===================引 用 ep20 文 章===================
最近在做能做實數運算的小算盤
在小數點的地方小卡住了
以下是試寫的程式，但執行上有錯誤
如下：
procedure Form1.btnDOTClick(Sender: TObject);
begin
x:= strtofloat(edit1.text);
if x=0 then //如果輸入框中為0 那麼將小數點加入0之後
begin
edit1.text:= edit1.text '.';
end
else
edit1.text:= edit1.text '.';
// 目前暫時有bug 尚未解決不能按兩次小數點的問題
// 0. 會被判斷為0 所以再按其他數字鍵會消掉 而無法顯示0.XX--
end;

在 else 後面 要怎麼寫才可以讓小數點 在按第二次以上 有作用但不顯示?

懇請教學 謝謝

關於 pos函數
由於是初學者 對於此函數並不熟悉
請問可否舉個範例 讓我看懂
不好意思 勞煩你了 謝謝您的解惑

請擅用搜尋, 這個討論很多可以參考
===================引 用 ep20 文 章===================
關於 pos函數
由於是初學者 對於此函數並不熟悉
請問可否舉個範例 讓我看懂
不好意思 勞煩你了 謝謝您的解惑