Delphi 編輯控制項輸入

呵呵，二樓的想法是這樣的：

varisid:boolean;

n:integer;

beginisid:=false;

for n:=1 to length( dobeginif in ['0'..'9'] thenbeginisid:=true;

endelse

beginisid:=false;

break;

end;end;

if isid then

begin 是學號。

endelse

begin 是輸入的名稱。

end;end;

for i:=0 to length( doif in [0..9] 然後在迴圈中檢查輸入字串以確定它是否為數字。

開始程式碼查詢。

endelse

開始程式碼查詢。

end；

您可以通過兩次編輯獲得它，所以何必呢。

在按鍵的事情上，梁扒竊狀態鄭忠處理。

這種情況只能針對數字進行處理。

if key<>#8 then

beginif(key<'0') or (key >'9') then

beginkey :=#

showmessage('只能輸入數字');

end;end;

這種情況只能針對信件處理。

if key<>#8 then

beginif not(((key<='帆鍵頌歌 z') and (key>='a'))or ((key<='z') and (key>='a'))then

beginkey :=#

showmessage('只能輸入字母');

end;end;

內建的編輯小部件似乎沒有此功能。

例如，tlabel 具有要控制的對齊屬性。

如果你想讓 tedit 有這個功能，要麼你自己寫。

要麼有 3 方控制。

例如，raize 中的派系編輯具有 alignment 屬性。

如果你想下到輪子的底部，你就是在與字母作鬥爭。

只需搜尋 raize。

要顯示的數字為：資料

(formatfloat('',data));或。

floattostr(round(data*100)/100);

以上兩者是四捨五入的，但有一件事是辛迪加應該注意的：

以四捨五入為例：round（結果是4，但round（的結果不是5而是4，即5遇到奇數四捨五入，前面遇到偶數; formatfloat 也是如此;

以上兩個是圓的，有一塊銀色的岩石直接截獲：

floattostr(trunc(data*100)/100);

這種方法無論有多少，都會被直接丟棄。

:=floattostr(int(strtofloat( /100);

只要這是懺悔，寬換就可以了，100是兩位小數位，如果想增加小數點後兩位，可以直接修改這個值！

procedure : tobject);

vardt: tdatetime;

beginif trystrtodatetime(,dt) thenshowmessage('是日期型別')

elseshowmessage('不是日期型別');

end;

沒有這個問題！ 不知道你用的是什麼版本，d6、d7、d2005都沒有這個問題！