[MeKree]

Доброго времени суток.

Прошу у вас помощь с решение такой проблемы:

Имеем TEdit в котором текст "AAAA-BBBB-CCCC-DDDD", нужно как то удалить это тире (-) чтоб в этом же самом TEdit отсался текст "AAAABBBBCCCCDDDD"

Если я не ошибаюсь то это делается циклом while но что то у меня не получается. Заранее спасибо.

[poli-smen]

Сообщение от MeKree

Имеем TEdit в котором текст "AAAA-BBBB-CCCC-DDDD", нужно как то удалить это тире (-) чтоб в этом же самом TEdit отсался текст "AAAABBBBCCCCDDDD"

Если я не ошибаюсь то это делается циклом while но что то у меня не получается. Заранее спасибо.

Простейший вариант с циклом:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  s: String;
  i: Integer;
begin
  s := Edit1.Text;
  for i := Length(s) downto 1 do
  begin
    if s[i] = '-' then Delete(s, i, 1);
  end;
  Edit1.Text := s;
end;

Или можно воспользоваться стандартной функцией StringReplace, так даже ещё проще:

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit1.Text := StringReplace(Edit1.Text, '-', '', [rfReplaceAll]);
end;

[angvelem]

StringReplace