Delphi如何获取一个字符串在另一个字符串中最后一次出现的位置?
Delphi(Pascal) code
uses StrUtils;function ReversePos(SubStr, S: String): Integer;var
i 或脊孝: Integer;begin
i := Pos(ReverseString(SubStr), ReverseString(S));if i>0then i := Length(S)- i- Length(SubStr)+2;
Result := i;end;
调用的例子:
Delphi(Pascal) code
ShowMessage (IntToStr(ReversePos('abc','abc123abc456')));
Delphi(专家调查法)一般指德尔菲法。
德尔菲法,也称专家调查法,1946 年由美国兰德公司创始实行。该方法是由企业组成一个专门的预测机构,其中包括若干专家和企业预测组织者,按照规定的程序,背靠背地征询专家对未来市场的意见或者判断,然后进行预测的方法。
德尔菲法本质上是一种反馈匿名函询法。其大致流程是:在对所要预测的问题征得专家的意见之后,进行整理、归纳、统计,再匿名反馈给各专家,再次征求意见,再集中,再反馈,直至得到衫稿一致的意见。其过程可简单表示如下:
匿名征求野喊专家意见-归纳、统计-匿名反馈-归纳、统计……若干轮后停止。
由此可见,德尔菲法是一种利用函询形式进行的集体匿名思想交流过程。它有三个明显区别于其他专家预测方法的特点,即匿名性、多次反馈、小组的统计回答。