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


Спасибо!

[friz]

Код:

const   H = ['z','x','c'];
.......................

function ggg(s:string):string;
var i:integer;
begin
 Result:='';
for I := 1 to Length(s) do
begin
  if s[i] in H then Result:=Result+s[i];
end;
end;