1樓：臺浦澤
var s,ss:string;
begin
s:=edit1.text;
ss:=edit2.text;
edit3.text:=inttostr(strtoint(copy(s,length(s),1))+strtoint(copy(s,length(s)-1,1))+
strtoint(copy(s,length(ss),1))+strtoint(copy(s,length(ss)-1,1)));
end;
2樓：匿名使用者
function calc(x:integer):integer ;
varm,n:integer;
begin
m:=(x mod 100) div 10;
n:=(x mod 100) mod 10;
result:=m+n;
end;
呼叫的時候就可以直接寫
edit3.text:=inttostr(calc(strtoint(edit1.text))+calc(strtoint(edit2.text)));
delphi7中把edit空間的值讀取出來寫入資料庫
改成下面這樣 varmz string bm string begin mz edit2.text bm edit4.text adoquery1.close adoquery1.sql.clear adoquery1.sql.add update t person set name mz wher...
高手幫忙！在delphi中如何禁止edit在中輸入東西
方法一 判斷是否觸發change事件，如果有內容更改，讓其執行為空操作方法二 判斷是否在上面keydown事件，如果有按鍵，讓其執行其他操作方法三 用訊息傳遞，達到和enabled相同效果！有一個辦法,就是把當前的內容先儲存起來,然後只要有人改變,就還原,要三部曲 一,先定義 全域性變數 vars ...
在Delphi中,怎麼把字串拆分成2019字串
建立一個這樣的函式 function splitstring const source,ch string tstringlist vartemp string i integer begin result tstringlist.create 如果是空自符串則返回空列表 if source or ...