请教各位:如何删除重复的字符,用FOR循环.谢谢~~

Question

我放置了三个组件,分别是EDIT1.EDIT2.BUTTON1.
我现在想在EDIT1里面输入任意重复的字母,当按下BUTTON1的时候,EDIT2筛选掉输入字符串中出现两次(含两次)以上的字符.例如:EDIT1输入'abcccddefg'
    EDIT2输出'abcdefg'
用FOR循环实现.谢谢大家~~~~

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
  s: String;
begin
  s := '';
  for i := 1 to Length(Edit1.Text) do
  begin
    if Pos(Edit1.Text[i], s) = 0 then
      s := s + Edit1.Text[i];
  end;
  Edit2.Text := s;
end;

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var
    i:integer;
begin
    Edit2.Text:='';
    for i:=1 to Length(Edit1.Text) do
        if Pos(Edit1.Text[i],Edit2.Text)=0 then
            Edit2.Text:=Edit2.Text+Edit1.Text[i];
end;

Answer 3

这段代码是删除连续的重复字符procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
  s: String;
begin
  s := '';
  for i := 1 to Length(Edit1.Text) do
  begin
    if Edit1.Text[i] <> RightStr(s,1) then
      s := s + Edit1.Text[i];
  end;
  Edit2.Text := s;
end;