用delphi怎麼寫這樣一個方法阿,大家給幫忙解決一下,謝謝了!

[yanglei031]

有一個文本框,和一個按鈕,

在文本框輸入一個字符串,然後寫一個方法判斷這個字符串是否有效.

判斷字符串有效的原則是:

1.輸入的字符串長度一定要是15,

2.輸入的字符串只能是 0到9和大寫字母A到Z

同時滿足以上兩個條件的字符串才算有效.

這樣的方法怎麼寫???

[l_xiaofeng]

1.輸入的字符串長度一定要是15, Length(Trim(Textbox1.text))

2.輸入的字符串只能是 0到9和大寫字母A到Z
if Not Key in ['0'..'9',#8,#13,'a'..'z']

[hustzlq]

这个好难给你代码。
主要是你要会用一些字符串的处理函数　。
第一个原则肯定是有函数的。
第二个原则就可能要用个循环判断了，先一个一个字符取出来做判断，来一个15次的循环。
至于怎样判断一个字符是大写，这个你应该会吧

[yanglei031]

比如寫一個函數,接受一個參數(就是輸入的字符串),然後在函數內部處理這個字符串

滿足條件就返回true,否則返回false

這樣的方法用delphi我不會寫阿