Разное
Последние книги
Самое популярное
Все бесплатно
Все ссылки на файлы, расположенные на страницах сайта, добавлены пользователями и доступны для бесплатного скачивания. За содержание этих файлов администрация сайта ответственности не несет.
Навигация
Вопросы
Delphi - База Знаний: Удалить или оставить симолы
function strtst(var Where: string; ArrayString: string; BlackList: boolean): string;
begin
if BlackList = false then
begin
while length(Where) <> 0 do
begin
if pos(Where[1], ArrayString) = 0 then
delete(Where, 1, 1)
else
begin
result := result + Where[1];
delete(Where, 1, 1);
end;
end;
end;
if BlackList = true then
begin
while length(Where) <> 0 do
begin
if pos(Where[1], ArrayString) <> 0 then
delete(Where, 1, 1)
else
begin
result := result + Where[1];
delete(Where, 1, 1);
end;
end;
end;
end;
