08.01.2010, 01:01
|
|
Познающий
Регистрация: 15.12.2009
Сообщений: 81
С нами:
8634231
Репутация:
24
|
|
Вот набросал процедурку:
Код:
procedure DeleteChars(chars:string; Text:TStrings);
var i:integer;
begin
for i:=1 to length(chars) do
Text.Text:=StringReplace(Text.Text, chars[i], '', [rfReplaceAll, rfIgnoreCase]);
end;
пример использования:
Код:
DeleteChars(Edit1.Text, Memo1.Lines);
при выполнения этого кода все символы, находящиися в Едит1 будут удалены из Memo1 |
|
|