1樓：匿名使用者
十進位制的小數，如果用二進位制來表示，由於二進位制與十進位制的差異，只能用足夠近的二進位制值來表示，不一定非常精準的。
這個問題你只能取一個足夠小的差別範圍來區別了。
procedure tform1.button1click(sender: tobject);
vart1,t2,z1,t3,tm1,q:real;
begin
t1:=strtofloat(edit1.text);
t2:=strtofloat(edit2.text);
z1:=t1+t2;
q:=1e-16;
if (0.025edit3.text:=(floattostr(tm1));
end;
2樓：匿名使用者
procedure tform1.button1click(sender: tobject);
begin
t1:=strtofloat(edit1.text);
t2:=strtofloat(edit2.text);
z1:=t1+t2;
if (0.025edit3.text:=floattostr(tm1);
end;
用 if...or..
end.
3樓：雙雨旋
實際上是你z1的值大於0.04了
關於delphi軟體程式設計出現的問題
4樓：匿名使用者
原因：這個警告只是編譯器告訴你用到了指標型別的操作而已。
只要注意點就沒什麼了。
如果自己程式使用直接 執行 不用去管
你如果不想看到 在選單 project -- 【 options】 中的 compile message 中，將 unsafe 開頭那三項去掉就可以
5樓：匿名使用者
沒什麼，
1、定義的變數沒有使用，建議刪除
2、定義的型別不安全，建議更換3、
6樓：匿名使用者
警告不影響編譯和使用
用delphi程式設計的一個小問題
7樓：
我理解你的意思，你的意思是說，窗體或其他容積（如分組框等）中有好幾個按鈕，每當單擊按鈕時，edit1.text的值就是被單擊按鈕的caption的值。這裡您可以按以下方法做，每個按鈕的單擊事件中均有 edit1.
text :=(sender as tbutton).caption;這樣edit1.
text就是單擊按鈕上的caption了。回答完畢，請看以下例項（3個按鈕，在d7中通過，n個一樣原理）
----------------------------------------
procedure tform1.button1click(sender: tobject);
begin
edit1.text :=(sender as tbutton).caption;
end;
procedure tform1.button2click(sender: tobject);
begin
edit1.text :=(sender as tbutton).caption;
end;
procedure tform1.button3click(sender: tobject);
begin
edit1.text :=(sender as tbutton).caption;
end;
----------------------------------------------
另外，您可以將edit1.text :=(sender as tbutton).caption;自定義一個函式或過程，在每個 button單擊事件中，呼叫即可。
--------------------------------------------
8樓：匿名使用者
理解不了你的問題，你說清楚一點。
-------------------------我想請教（當然沒分了，多包含）sdl0819：每個onclick事件分別用buttoni1.caption、button2.
caption...代替
(sender as tbutton).caption是否功能一樣？
delphi程式設計小問題
9樓：
varform1: tform1;
i: integer;
implementation
procedure tform1.button1click(sender: tobject);
begin
inc(i);//變數i增加1
if i = 1 then //此處也可以用case語句來實現label1.caption := 'hello world'
else if i = 2 then
label1.caption := ''
else if i = 3 then
label1.caption := 'i love delphi'
else
begin
label1.caption := '';
i := 0;
end;
end;
procedure tform1.formcreate(sender: tobject);
begin
i := 0;//初始化變數i為0
end;
end.
懂delphi的進！！！！！！！程式設計有點小麻煩
10樓：匿名使用者
加一個函式吧，你直接把輸入的數字用這個函式判斷，返回1就是素數，0就是非素數
function isprimenum(num: integer): word;
vari: integer;
begin
result := 0;
for i := 2 to num - 1 doif num mod i = 0 thenbegin
result := 1;
break;
end;
end;
delphi程式設計小問題
11樓：姜光睿
sdjhiun
nsad
nodfgno lndfgoisdf
delphi程式設計中的簡單提問
12樓：匿名使用者
在樹控制元件上點滑鼠時候,rt:=gethittestinfoat(x,y); 能返回你滑鼠點的位置資訊.
thittests型別是gethittestinfoat返回的型別,表示滑鼠點的位置.
rt:=gethittestinfoat(x,y); //返回滑鼠點選的位置資訊
if((htonright in rt)and(button=mbleft))then //這句**判斷滑鼠是否點了滑鼠的左鍵,且點在了樹某個節點項的 右邊.
items.delete(getnodeat(x,y)) //如果滿足上面條件,刪除該節點
13樓：班丘曼嵐
能用這段**的人，還是低手？
關於delphi7中dbgrid的問題
1.拖一個panel控制元件，設定align屬性為alclient，然後把dbgrid1放置在panel1上面，先隨便拖出一個你想要的大小,然後連線好你 需要顯示的資料。2.在程式的 implementation部分定義一個stringlist，用來存放變化前的dbgrid1的寬，高，上邊距，左邊距...
python中的小問題，python中的一個小問題
函式遞迴呼叫的終止條件是引數n為0的時候，那你要保證n是整型。階乘本來就是整數的運算。符點數是不精確的，不建議用 來判斷是否和某個值相等，也即是n 0是基本上不會成立的。python中一個小問題 第一行你寫的是tempstr,s打的小寫的。下面成了大寫的 關於python的一個小問題 20 pyth...
vb的小問題，關於vb的小問題
你在做執行程式時，不新增其他的退出按鍵就可以啊！關於vb的小問題 setmynum是一個變數。val表示把括號後面的數轉化為10進位制的數值形式。h是16進位制數字的開頭。寫在 裡面表示加上 h這兩個字元竄。如加號後面的數值 5的話，setmynum就等於val h5 這個意思。號後面的mid su...