Функция для удаления из строки лишних символов
Функция для удаления из строки "лишних" символов.
Входные параметры:
· Input - входная строка, которую необходимо очистить от лишних символов
· EArray - строка, содержащая набор разрешенных или запрещенных символов в зависимости от Action
· Action - указывает на то, что из себя представляет массив EArray.
Action может принимать следующие значения:
1. массив EArray представляет собой строку разрешенных символов
2. EArray - массив запрещенных символов.
function strtst(var Input: string; EArray: string;
Action: integer): string;
begin
case Action of
1:
begin
while length(Input) <> 0 do
begin
if pos(Input[1], EArray) = 0 then
delete(Input, 1, 1)
else
begin
result := result + Input[1];
delete(Input, 1, 1);
end;
end;
end;
2:
begin
while length(Input) <> 0 do
begin
if pos(Input[1], EArray) <> 0 then
delete(Input, 1, 1)
else
begin
result := result + Input[1];
delete(Input, 1, 1);
end;
end;
end;
else
MessageBox(0, 'Не корректный вызов функции.', '', mb_ok);
end; end;
|
Пример использования:
1.
s := edit1.text;
s := strtst(s, '0123456789.', 1);
edit1.text := s; |
например на входе: 0.16+
на выходе будет: 0.16
2.
s := edit1.text;
s := strtst(s, '/*-+,', 2);
edit1.text := s;
|
на входе: 0.16+
на выходе будет: 0.16
