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

Question

有一個文本框,和一個按鈕,在文本框輸入一個字符串,然後寫一個方法判斷這個字符串是否有效.判斷字符串有效的原則是:1.輸入的字符串長度一定要是15,2.輸入的字符串只能是 0到9和大寫字母A到Z同時滿足以上兩個條件的字符串才算有效.這樣的方法怎麼寫???

Answer 1

呵呵,你用function StrLen(const Str: PChar): Cardinal;判断长度，然后用几个if就可以了嘛
多看看联机帮助

Answer 2

edit1change事件
  if length(edit1)<>15 then
   exit;
   tempstr:=edit1.text;
  for i:=0 to 14 do
  begin
     if ord(tempstr[i]) 设定范围
     then dosomething();
  end;

Answer 3

1.輸入的字符串長度一定要是15,  Length(Trim(Textbox1.text))2.輸入的字符串只能是 0到9和大寫字母A到Z
                             if Not Key in ['0'..'9',#8,#13,'a'..'z']

Answer 4

能不能象java或c那樣寫成一個函數,然後把字符串作為一個參數傳給那個方法,在方法內部做判斷如果符合條件就返回true,否則就返回false,我沒接觸過delphi,不知道delphi裡面能不能寫成這樣一個方法

Answer 5

to eagle_2() :
   在edit的onchange事件中判断肯定是不行的，别忘了还可以从剪贴板粘贴字符串到edit中，如果一下粘贴15个字符以上，你的代码就不会触发的。
还是在外边判断吧

Answer 6

同意 l_xiaofeng(這一生隻為你) ( 再组织一下就行了