Delphi는 문자열이 제한 이외의 문자를 포함하는지 여부를 판단합니다. 그렇지 않으면 비어 있습니다.

517 단어 delphi
문자열이 제한 이외의 문자를 포함하는지 여부를 판단합니다. 그렇지 않으면 비어 있습니다.
procedure TMainForm.cbSearchExit(Sender: TObject); //      
var
J:Integer;
K:String;
begin
 K := TsEdit(Sender).Text;
for J:=1 to Length(K) do 
begin
if not(K[J] in ['0'..'9','a'..'z','A'..'Z']) then 
begin
TsEdit(Sender).Text:='';
end;
end;
end;

다음 방법으로 부합되지 않는 문자를 돋보이게 할 수 있다
TsEdit(ctl).SelectAll
TsEdit(ctl).SelLength
TsEdit(ctl).SelStart
TsEdit(ctl).SelText

좋은 웹페이지 즐겨찾기