procedure TForm1.Button1Click(Sender: TObject);
var
S: string;
begin
S := 'jfkdjfksjf';
while Pos('d', S) > 0 do
Delete(S,Pos('d', S),1);
ShowMessage(s);
end;
var
S: string;
begin
S := 'jfkdjfksjf';
while Pos('d', S) > 0 do
Delete(S,Pos('d', S),1);
ShowMessage(s);
end;
唉, 我以为Delete会返回S的值,搞了老半天
真哀