[Amin_Mansouri]

اینم تابع instr

کد:

fuction InStr(sIni: string; sSubStr: string): Boolean;


var

   iPos: integer;

begin


  iPos := Pos(sSubStr, sIni);
  If iPos <> 0 Then


    Result := True

  Else

    Result := False

end;

برای فراخوانی تابع هم باید اینجوری عمل کنید

کد:

{
    Example Usage:
    
    procedure Example();
    var
        test: string;
    begin
        test := 'ip lorem sum';
        If InStr(test, 'lorem') Then ShowMessage('String found in identifier test');
    end;
    
    Example();
}