var
Num1,Num2,Num3: Integer;
begin
Num1:=(Pos('a',lowercase(Memo1.Text);
Num2:=(Pos('b',lowercase(Memo1.Text);
Num3:=(Pos('c',lowercase(Memo1.Text);
if (Num1<>0) or (Num2<>0) or (Num3<>0) then
ShowMessage('.......');
end;
Num1,Num2,Num3: Integer;
begin
Num1:=(Pos('a',lowercase(Memo1.Text);
Num2:=(Pos('b',lowercase(Memo1.Text);
Num3:=(Pos('c',lowercase(Memo1.Text);
if (Num1<>0) or (Num2<>0) or (Num3<>0) then
ShowMessage('.......');
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货