1樓：匿名使用者
procedure : tobject);
varcount: integer;
thesame: boolean;
beginthesame :=false; /假設不一樣。
for count :=0 to - 1 doif = then
thesame :=not thesame;
if not thesame then /判返/掘神飢如果瞎森不一樣就新增。
end;
2樓：匿名使用者
需要友握那麼復好吵慶雜嗎碰帆？ 就一行**。 procedure : tobject);
beginwith do if indexof(<0 then add(;
end;
3樓：匿名使用者
在事敗洞件中新增代旦仿碼模枯纖 procedure : tobject; var key: char);var i: integer; find: boolean;
begin find:= false; for i:= 0 to - 1 do begin if = then begin find:
true; break; end; end; if not find then ;end;
4樓：匿名使用者
天哪。納睜。使用如果返回胡茄禪-1則說明不存在，如果存在，則返回所在的index。。。又必要弄那麼復褲塵雜麼。。 巨汗。。
delphi問題，求delphi判斷數字格式的方法
5樓：網友
在edit的keypress事件寫**：
procedure : tobject; var key: char);
beginif not(key in ['0'..'9',#8])then
請輸入數字！','提示',64);
key:=#
end;end;
6樓：網友
一句**搞定：
setwindowlong(, gwl_style,getwindowlong(, gwl_style) or es_number);
將**放在窗體建立事件，就是：oncreate
7樓：網友
很簡單，d2009的edit控制項有乙個屬性。
numbersonly
這個屬性設定為true，就只能輸入數字咯。
d2009以前的版本如果沒有這個屬性，你大概只能使用一樓的方法了。
delphi判斷問題
8樓：網友
procedure : tobject);
beginif '開始' then
begin='停止' ;
false ;
endelse if '停止' then
begin//
'開始';true;
end;//
end;
關於delphi中如何判斷的問題
9樓：網友
可以用strtointdef(,-1)，這樣就算型別不對，也不會出現錯誤，只是把錯誤的結果變成-1，同樣可以進行比較，比如：
if ( and (strtointdef(，-1)>=800000000) and (strtointdef(，-1)<=899999999) then
怎樣在delphi裡實現資料上傳前的判斷資料合法?
10樓：快樂居家美食
在ado控制項的beforescroll裡面添上判斷的**。
delphi發展怎麼樣，delphi 這幾年發展的怎麼樣了
什麼樣的公司，還在用delphi，主要是來維護的吧 要不就是和工控類相關的，不可否認delphi 工控 不適為一個ok組合。delphi入門容易，成為高手難，需要深入研究vcl，具有真正oop的程式設計思想 學會抽象 但不論學哪門語言，uml都是需要補充的一門工具。感覺本身不矛盾，可以用自己的時間學...
Delphi怎麼遍歷Groupbox中Checkbox哪個選中，並取得他們的Caption值
用一個string 變數 接收 遍歷下checkbox 選中就加上 不選就跳過 用 raize控制元件好了 rzcheckgroup控制元件 vari integer str string begin str for i 0 to rzcheckgroup1.items.count 1 do beg...
delphi2007怎麼破解或註冊
你在那個tweaks 中有幾個可以選擇的，全部打上上對勾，然後點ok，我也不懂什麼意思，反正全選上就可以用。試試。為什麼 delphi 2007 再次安裝 無法註冊 1 用虛擬光碟機daemon tools載入檔案。2 執行開始安裝，安裝過程中保持聯網狀態。3 安裝完成後，啟動一次delphi 20...