字符串操作

Question

假设有一字符串‘asd12345’,如何用循环取出字串，第一次取‘sd12345’，第二次取‘ad12345’，第三次‘as12345’，第n次就去掉字符串的第n个。
在线求解，请指点！

Answer 1

有一个字符串s，用一个循环来取出字串，每次都只删除一个字符，i=1时删除s[1],i=2时删除s[2]，……i=n时删除s[n],

Answer 2

for 循环，中间加if语句判断

Answer 3

procedure TForm1.Button1Click(Sender: TObject);
var
  s,ss:string;
  i,j:Integer;
begin
  s:='asd12345';
  i:=Length(s);
  if i=0 then
    Exit;
  for j:=1 to i do
  begin
    ss:=Copy(s,1,j-1)+copy(s,j+1,i-j);
    self.ListBox1.Items.Add(ss);
  end;
end;

Answer 4

//引用 StrUtils单元
procedure TForm1.Button1Click(Sender: TObject);
var
  s:string;
  i:integer;
begin
  s:='asd12345';
  for i:=1 to length(s) do
    showmessage(StuffString(s,i,1,''));
end;