J
Jenky.w
Unregistered / Unconfirmed
GUEST, unregistred user!
procedure TForm1.Button1Click(Sender: TObject);
var
ff:char;
begin
ff:=edit1.Text;//这句通不过呀!!!!!!!!!!!!!!!!!!!!!
if not (ff in ['S','N','D'] then
begin
showmessage('你只能输入S、N、D这三个字符!!');
Exit;
end;
end;
var
ff:char;
begin
ff:=edit1.Text;//这句通不过呀!!!!!!!!!!!!!!!!!!!!!
if not (ff in ['S','N','D'] then
begin
showmessage('你只能输入S、N、D这三个字符!!');
Exit;
end;
end;