Подскажите функцию :)

← →
dRake © (2005-07-26 00:26) [0]

Есть ли стандартная функция поиска с заменой? А то писать неохота :)
Что-то вроде:

SearchAndReplace("Тут %zamena замена", "%zamena", "произошла");
Результат: Тут произошла замена.

← →
Aldaris © (2005-07-26 00:35) [1]

Я считаю вопрос некоректный, что именно ты ищешь? (файлы на винте, слово в тексте) Прошу уточнить для того чтоб это можно было обдумать.

← →
dRake © (2005-07-26 00:53) [2]

ищу слово в тексте

← →
Aldaris © (2005-07-26 01:07) [3]

Думаю ты более мене опытный, если нет попроси уточнить.

Могу предложить:
допустим слово из 3-х букв, берем первые 3 буквы делаем проверку;
затем берем еще три буквы (начиная уже не с первого символа а со 2-го включительно, далее с 3-го и таким образом сравнивая с тем что ищем, находим).

Если так непонятно напишу подробнее.

← →
alex-drob © (2005-07-26 01:11) [4]

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;

← →
Юрий Зотов © (2005-07-26 01:12) [5]

StringReplace

← →
dRake © (2005-07-26 01:14) [6]

Aldaris
alex-drob

Ребят я ж написал что кодить неохота, а не то что я не знаю как ее написать :)

Юрий Зотов

спасибо :)

← →
Fay © (2005-07-26 06:18) [7]

2 dRake © (26.07.05 1:14) [6]
Попробуй поувлекаться дайвингом

← →
Viktop (2005-07-26 08:05) [8]

http://www.delphikingdom.com/asp/viewitem.asp?catalogid=1059&mode=print

← →
Mamed (2005-07-26 08:12) [9]

StringReplace(string,oldvalue,nuewvalue,[])

Есть такой компонент ActionList(вкладка Standart). В нём можно выбрать стандартные действия(New Standart Action). Там сможешь и поиск с заменой найти. А потом вешаешь это действие на кнопку, или куда там надо(св-во Action).

Подскажите функцию :) Найти похожие ветки