удаление лишних пробелов или знаков '_' из MaskEdit

[Blood_ghosT]

Доброго времени форумчане!
Столкнулся с такой проблемой в MaskEdit, существует такая маска

Maskedit1.EditMask:='9\-\(99999)\-999\-99\-99;1;_';

(это маска обозначает код и номер телефона)!
На кнопке

edit1.Text:=trim(maskedit1.EditText);

Например я ввожу такой код и номер 8-7212-11-11-11 моя маска выдает 8-7212 -11 -11-11! trim не помогает! Пробовал через edit1.Text:=trim(maskedit1.Text); тоже не дало результатов!
Помогите решить данную проблему!

Код может быть как 4 значный так и 3 и 5, а номер как 7 так и 6 и 5!!

[Arigato]

trim обрезает пробелы только по краям строки.
Надо завести новую переменную, пройтись по всем символам исходной строки, если не пробел - добавлять символ в новую строку.

[Blood_ghosT]

Не подскажите как это реализовать!!

[Arigato]

Руками...

[Blood_ghosT]

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

Руками...

Вот как оно оказывается!! Domo Arigato!! То есть спасибо!!

[Arigato]

Как-то так:

new_str = '';
for i := 1 to Length (str) do
  if str[i] <> ' ' then new_str = new_str + str[i];

[Blood_ghosT]

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

Как-то так:

new_str = '';
for i := 1 to Length (str) do
  if str[i] <> ' ' then new_str = new_str + str[i];

Спасибо за помощь!

1 вариант:

var str, str1: string;
i: integer;
begin
str1:=maskedit1.EditText;
str:= '';
for i := 1 to Length (str1) do
  if str1[i] <> ' ' then str:= str + str1[i];
  edit1.Text:=str;

при маске

MaskEdit1.EditMask:='9\-\(99999)\-999\-99\-99;0; ';

2 вариант:

var str, str1: string;
i: integer;
begin
str1:=maskedit1.EditText;
str:= '';
for i := 1 to Length (str1) do
  if str1[i] <> '_' then str:= str + str1[i];
  edit1.Text:=str;

при маске

MaskEdit1.EditMask:='9\-\(99999)\-999\-99\-99;0;_';