Question

delphi中 怎样截取字符串

就像 caption：= 12/456/78/900。
就像pos('/', caption); 是得到第一个斜杠的位置。
我要得到最后一个斜杠的位置
怎么弄。

Answer 1

我的思路是一直用POS函数，查到一个删除一个/，当没有查到/时，那上一次的pos位置就是最后出现的位置，给你写了个函数，
function PosEnd(const substr,str : string) : integer;
var
tmp : string;
i,j,flag : integer;
begin
flag := -1;
tmp := str;
i := pos(substr,tmp);
while i <> 0 do
begin
delete(tmp,i,1);
inc(flag);
j := i;
i := pos(substr,tmp);
end;
result := j + flag;
end;

调用方法
caption：= 12/456/78/900
i := PosEnd('/',caption) //10

Answer 2

procedure TForm1.Button1Click(Sender: TObject); var wStr: string; wPos1,如果用字符串截取 var SS, S:String; begin SS :=

Answer 3

反序字符串后 取第一个'/'位置nPos 然后用Length(Caption) - nPos + 1 = RealPos

追问

咋样反序 ？
写出代码来看看

追答

在delphi的strUtils单元有函数：
首部 function ReverseString(const AText: string): string;
功能 返回字符串AText的反序
说明 ReverseString('1234') = '4321'
参考 function System.SetLength
例子 Edit3.Text := ReverseString(Edit1.Text);

Answer 4

求子串吗？？