![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Подскажите функцию :)
dRake © (2005-07-26 00:26:00)Есть ли стандартная функция поиска с заменой? А то писать неохота :)
Что-то вроде:
SearchAndReplace('Тут %zamena замена', '%zamena', 'произошла');
Результат: Тут произошла замена.
Legion89 (2005-07-28 15:14:00) [1]Есть такой компонент ActionList(вкладка Standart). В нём можно выбрать стандартные действия(New Standart Action). Там сможешь и поиск с заменой найти. А потом вешаешь это действие на кнопку, или куда там надо(св-во Action).
Mamed (2005-07-26 08:12:00) [2]StringReplace(string,oldvalue,nuewvalue,[])
Viktop (2005-07-26 08:05:00) [3]http://www.delphikingdom.com/asp/viewitem.asp?catalogid=1059&mode=print
Fay (2005-07-26 06:18:00) [4]2 dRake © (26.07.05 1:14) [6]
Попробуй поувлекаться дайвингом
dRake (2005-07-26 01:14:00) [5]Aldaris
alex-drob
Ребят я ж написал что кодить неохота, а не то что я не знаю как ее написать :)
Юрий Зотов
спасибо :)
Юрий Зотов (2005-07-26 01:12:00) [6]StringReplace
alex-drob (2005-07-26 01:11:00) [7]
function SearchAndReplace(a,b,c:string):string;
var
f:boolean;
p:integer;
begin
f:=true;
while f do
begin
p:=pos(b,a);
if p>0 then
begin
delete(a,p,length(b));
insert(c,a,p);
end
else
f:=false
end;
Result:=a
end;
Aldaris (2005-07-26 01:07:00) [8]Думаю ты более мене опытный, если нет попроси уточнить.
Могу предложить:
допустим слово из 3-х букв, берем первые 3 буквы делаем проверку;
затем берем еще три буквы (начиная уже не с первого символа а со 2-го включительно, далее с 3-го и таким образом сравнивая с тем что ищем, находим).
Если так непонятно напишу подробнее.
dRake (2005-07-26 00:53:00) [9]ищу слово в тексте
Aldaris (2005-07-26 00:35:00) [10]Я считаю вопрос некоректный, что именно ты ищешь? (файлы на винте, слово в тексте) Прошу уточнить для того чтоб это можно было обдумать.