要求出"\"在c:\windows\system中的倒數第幾個位置,用什麼函數?

Question

我想分解出這個字符串中的c:\windows來,用什麼函數呢?

Answer 1

var
  posrition:integer;
  tempstr :String;posrition := 0;
TempStr := 'c:\windows\system';
for i = length('c:\windows\system') downto 1 do
  if TempStr[i] = '\' then
  Begin
    posrition := i;
    break;
  end;

Answer 2

ExtractFilepath('c:\windows\system'); 

Answer 3

function GetCharPos(S:String;C:Char;N:integer):Integer;
//取得S中C第N次出现的位置
var i,j:integer;
    p:array[1..100] of integer;
begin
  for i:=1 to Length(S) do
  if S[i]=C then
  begin
    Inc(j);
    if j=N then
    Result:=i;
  end;
end;  

Answer 4

把上述for i:=1 to Length(S) do
换成for i:=Length(S) downto 1 do
就变成了取得S中C倒数第N次出现的位置。

Answer 5

Sorry,上述语句应先初始化j的值为0即
function GetCharPos(S:String;C:Char;N:integer):Integer;
//取得S中C第N次出现的位置
var i,j:integer;
    p:array[1..100] of integer;
begin
  j:=0;
  for i:=1 to Length(S) do
  if S[i]=C then
  begin
    Inc(j);
    if j=N then
    Result:=i;
  end;
end;