請教一下，如何判斷字串中只能為數字及英文字，不能有其他空白鍵，- _ 等字元

in a given for loop judge the expression as
validString := tarString[i] in ['0'..'9', 'a'..'b', 'A'..'B'];
if not validString then break;

------
不論是否我發的文，在能力範圍皆很樂意為大家回答問題。
為了補我的能力不足之處，以及讓答案可以被重複的使用，希望大家能儘量以公開的方式問問題。
在引述到我的文時自然會儘量替各位想辦法，謝謝大家！

Dear 大大:可以寫程式讓我測一下嗎?由於我是初學者所以不是很懂，所以才發問大家的。

['0'..'9', 'a'..'b', 'A'..'B'] 這就是一個Delphi的Set(集合)
這個集合包含了所有你希望使用者可以使用的所有字元
對一個字串利用迴圈從頭跑一遍，如果字串中的任何一個字元不在這個集合裡面，
那麼就是不合法的輸入

iChar in [..]就是說iChar是否在[..]這個集合裡面，它跟>, < 一樣會拋出一個boolean值

或者是0的ASCII碼是48，A應該是65，你可以檢查每個字元是不是在合法的字元範圍內
iChar>=48 or iChar<=57...etc
Chr可以將數字轉成字元，Ord則可以把字元轉成ASCII碼
你可以查查help上這些函式的用法

我打程式碼會比打這些字還要省力的多，但希望你自己去思考

------
不論是否我發的文，在能力範圍皆很樂意為大家回答問題。
為了補我的能力不足之處，以及讓答案可以被重複的使用，希望大家能儘量以公開的方式問問題。
在引述到我的文時自然會儘量替各位想辦法，謝謝大家！

function StringValidOK(s : String): boolean;
var
i: Integer;
begin
StringValidOK:=true;
for i:=1 to Length(s) do
begin
if not (( (s[i]<='z') and (s[i]>='a') ) or ((s[i]<='Z') and (s[i]>='A')) or ((s[i]<='9') and (s[i]>='0'))) then // 只要有一個字元不符合, 驗證失敗
StringValidOK:=false;
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
var
s1, s2 : String;
begin
Memo1.Clear;
s1:='12zsfds';
if StringValidOK(s1) then
Memo1.Lines.Add(s1 ' is OK')
else
Memo1.Lines.Add(s1 ' is not OK');
s2:='12zsfds_';
if StringValidOK(s2) then
Memo1.Lines.Add(s2 ' is OK')
else
Memo1.Lines.Add(s2 ' is not OK');
end;

------
能力不足，求助於人；有能力時，幫幫別人；如果您滿意答覆，請適時結案！

子曰：問有三種，不懂則問，雖懂有疑則問，雖懂而想知更多則問！

嘖..

------
不論是否我發的文，在能力範圍皆很樂意為大家回答問題。
為了補我的能力不足之處，以及讓答案可以被重複的使用，希望大家能儘量以公開的方式問問題。
在引述到我的文時自然會儘量替各位想辦法，謝謝大家！