[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);
... 


Спасибо!