字串問題

Question

一下忘記刪掉幾個字串怎麼刪.如qwerty,刪掉最後rty幾個,得到qwe.

Answer 1

to zsjzwj
r前面子串的長度不確定的,如任一andefk12rty怎樣呢

Answer 2

var 
  strTemp,strFind:string;
  intFind:integer;
begin
  strTemp:='andefk12rty';
  strFind:='rty';
  intFind:=pos(strTemp,strFind);
  if intFind>0 then Delete(strTemp,intFind,length(strFind));
end;

Answer 3

晕，写错了。。应该是pos(strFind,strTemp);

Answer 4

s:='qwerty';
s:=copy(s,1,length(s)-3)