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

2009-02-12 10:48:02 783 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

CentOS7下NFS共享报错RPC问题的3种解决方案（含防火墙配置详解）本文详细解析了CentOS7下NFS共享报错RPC问题的3种解决方案，包括防火墙配置详解。从基础连通性检查到RPC服务状态验证，再到精准开放必要端口和SELinux集成，提供全面的排查与解决指南，帮助用户快速解决'No route to host'等常见问题。阅读详情

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

...全文

【Dify精讲】第2章：后端服务架构深度剖析 Dify后端采用Flask应用工厂模式实现模块化开发，通过蓝图架构将API分为控制台、Web应用和服务接口三大模块。其设计亮点包括：1) 应用工厂模式支持多环境配置和独立测试；2) 蓝图分层管理实现API模块化，各模块职责清晰；3) 严格遵循RESTful原则设计API接口；4) 使用Flask-RESTful扩展简化API开发。这种架构既保持了Flask的灵活性，又实现了企业级应用的可维护性，是Flask项目架构的优秀实践案例。阅读详情

pcbaby23

Delphi 5,944 成员 262,941 内容

+ 关注 + 加入社区

切换为时间正序

binaiko 2012-03-26

打赏
举报

不支持中文啊！

dbgchen 2012-03-23

打赏
举报

楼上的好方法

willflyz 2009-02-13

打赏
举报

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



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;

willflyz 2009-02-13

打赏
举报



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;

pcbaby23 2009-02-13

打赏
举报

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

天鸽 2009-02-13

打赏
举报

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

ks_reny 2009-02-13

打赏
举报

學習.

ron_xin 2009-02-13

打赏
举报

uses SysUtils.pas

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

ron_xin 2009-02-13

打赏
举报

uses SysUtils.pas

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

mosaic 2009-02-12

打赏
举报

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

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

相关推荐