這只是很簡單的增強 POS 功能的 function ，不知有沒人 POST 過類似的    PosEnd 是回傳 SubStr 在 S 最後一次出現的位置，若沒出現回傳 0    PosN 是回傳 SubStr 在 S 第 n 次出現的位置，若出現少於n次回傳 0    PosCount 是回傳 SubStr 在 S 出現的次數    放這些 Function 的 Unit 要加 use StrUtils

function PosEnd(Substr,S: string): Integer;
var
  i : integer;
begin
  i := 0;
  repeat
    result := i;
    i := i   1;
    i := PosEx(SubStr,S,i)
  until i <= 0
end;    function PosN(Substr,S: string; N : Integer): Integer;
var
  i: integer;
begin
  result := 0;
  For i := 1 to N do
  begin
    result := result   1;
    result := PosEx(SubStr,S,result);
  end;
end;    function PosCount(SubStr,S : string) : Integer;
var
  i : integer;
begin
  i := 0;
  result := -1;
  repeat
    result := result   1;
    i := i   1;
    i := PosEx(SubStr,S,i)
  until i <= 0
end;

From Delphi 7 VCL

function PosEx(const SubStr, S: string; Offset: Cardinal = 1): Integer; 
var
  I,X: Integer;
  Len, LenSubStr: Integer;
begin
  if Offset = 1 then
    Result := Pos(SubStr, S)
  else
  begin
    I := Offset;
    LenSubStr := Length(SubStr);
    Len := Length(S) - LenSubStr   1;
    while I <= Len do
    begin
      if S[I] = SubStr[1] then
      begin
        X := 1;
        while (X < LenSubStr) and (S[I   X] = SubStr[X   1]) do
          Inc(X);
        if (X = LenSubStr) then
        begin
          Result := I;
          exit;
        end;
      end;
      Inc(I);
    end;
    Result := 0;
  end;
end;

剛測了一下,好像不是我想要的
我是想要像VB裡面的InStrRev函數
vb.inStr=delphi.pos
so
vb.instrDev=delphi.???
是要自己寫嗎?
我只是單純的要從一檔案字串中分解檔案路徑與檔名
由右邊搜尋"."來取得檔案名稱
所以想寫getFilePath與getFileName函數
不過好幾年沒碰delphi
又跟其他程式混洧
有點寫不出來的感覺..@@

------
力求神乎奇技

測錯了
PostEnd即可
多謝指導

------
力求神乎奇技

從一檔案字串中分解檔案路徑與檔名不用自己寫

ExtractFilePath = 取檔案路徑
ExtractFileName = 取檔案名稱
ExtractFileExt = 取副檔名

其他有關檔案名稱的函數，請用「file name utilities」來搜尋 Help

------
歡迎參訪 "腦殘賤貓的備忘錄" http://maolaoda.blogspot.com/