Удаление из строки не разрешённых символов.

[papa_serg]

Добрый вечер.
Помогите пожалуйста с ф-цией.
Смысл в том, что бы перебрать посимвольно строку, и оставить в ней, только те символы, которые заранее определены.
Что-то вроде:

PHP код:

function cc(s:string):bool;
begin
cc := false;
if s = 'а' then cc := true;
if s = 'б' then cc := true;
if s = 'в' then cc := true;
if s = '3' then cc := true;
if s = '.' then cc := true;
end;

...
for i:= 0 to length(s) do if cc(s[i]) = false then delete(s,i,1);
... 


Спасибо!

[Serge_Bliznykov]

пробуйте

for i:= length(s) downto 1 do
   if not (s[i] in ['а','б','в','3','.']) then Delete(s, i, 1);

[papa_serg]

Спасибо! То что нужно!