delphi如何查找并截取字符串

来源:互联网 发布:黑客帝国 进入矩阵 编辑:程序博客网 时间:2024/06/04 19:23
procedure TForm1.Button1Click(Sender: TObject);var  wStr: string;  wPos1, wPos2: Integer;begin  wStr := '您好!<img src="S1002.jpg"/>天天开心!';  wPos1 := pos('<img', wStr);  wPos2 := pos('/>', wStr);  wPos2 := wPos2 + Length('/>');  caption := copy(wStr, wPos1, wPos2 - wPos1);end;
相关函数 copy,delete,pos和leftstr,RightStr的用法
原创粉丝点击