怎样反向查找字符串中的指定的字符串？

[pcbaby23]

比如一串字符“ab3cdd3450”
我要从最后查找这串里面的第1个“3”在这串字符中的位置，结果应该是第7个才对，函数该怎么写？

[mosaic]

楼主是要自己写这样一个函数，还是要delphi里面的函数？
要是后者，那么SysUtils里面有一个可以反向查找：function StrRScan(const Str: PChar; Chr: Char): PChar;

[ron_xin]

uses SysUtils.pas


Edit1.Text := StrRScan(PChar('ab3cdd3450'), '3');

[ron_xin]

uses SysUtils.pas


Edit1.Text := StrRScan(PChar('ab3cdd3450'), '3');

[ks_reny]

學習.

[天鸽]

StrRScan(PChar('ab3cdd3450'), '3');

[pcbaby23]

这个函数只能查找1个字符，我想要找一串字符就不行了啊，比如要找34呢

[willflyz]

function GetCharPos(SubStr,MainStr:String):integer;
var
  s: String;
  i,Pos1,Pos2: Integer;
begin
  Result := 0;
  for i := Length(MainStr) downto 1 do
    s := s + MainStr[i];
  Pos1 := Pos(SubStr,s);
  Pos2 := Length(MainStr) - Pos1 + 1;
  Result := Pos2;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  s1,s2: String;
  ipos: Integer;
begin
  s1 := '3';
  s2 := 'ab3cdd3450';
  iPos := GetCharPos(s1,s2);
  ShowMessage(IntToStr(iPos));
end;

[willflyz]

上面是找单个字符的,改成下面就可以找字串了,

function GetCharPos(SubStr,MainStr:String):integer;
var
  s1,s2: String;
  i,Pos1,Pos2: Integer;
begin
  Result := 0;
  for i := Length(SubStr) downto 1 do
    s1 := s1 + SubStr[i];
  for i := Length(MainStr) downto 1 do
    s2 := s2 + MainStr[i];
  Pos1 := Pos(s1,s2);
  Pos2 := Length(MainStr) - Pos1 - Length(s1) + 1 + 1;
  Result := Pos2;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  s1,s2: String;
  ipos: Integer;
begin
  s1 := 'd345';
  s2 := 'ab3cdd3450';
  iPos := GetCharPos(s1,s2);
  ShowMessage(IntToStr(iPos));
end;

[dbgchen]

楼上的好方法

[binaiko]

不支持中文啊！