procedure TForm1.Button1Click(Sender: TObject);
Var
i : Integer;
MySubstr, MyStr : String;
IsExists : Boolean;
begin
MyStr := Edit1.Text
//'135798'
MySubstr := Edit2.Text
//'178'
//
IsExists := False;
for i := 1 To Length(MySubstr) Do
begin
if pos(MySubstr, MyStr)=0 Then
Begin
IsExists := False;
Break;
End
Else
IsExists := True;
End;
//
If IsExists Then showmessage('包含')
else showmessage('未包含');
End;
