procedure test
var
i:integer;
str:string;
begin
str := "Penguin";
i := pos("Pen",str);
if i>0 then begin
//マッチした場合の処理
end;
end;
public void test()
{
string str="Penguin";
i = str.IndexOf("Pen");
if (i>=0){
//マッチした場合の処理
}
}