Ctrl+R. Диалог замены в DBGrid.

[artemavd]

Да, не знаю. Я ж говорю, что раньше не работал с ними.

[_Engine_]

Скачай себе IBExpert, для работы с БД Firebird/Interbase - очень удобен.

[Yurk@]

1. открываешь свою БД через IBExpert.
2. жмешь F12 и в окошке вбиваешь приведенный код процедуры.
3. из программы вызывается компонентом FIBStoredProc и его настройкой
P.S: Почитай о хранимых процедурах побольше. У тя много разных проблем решатся сами собой

[artemavd]

Ну, вбил я код. Первый раз выдалась ошибка, что не знает имя таблицы demonds. Я заменил ее на свое название, а потом выдалась другая ошибка:

[_Engine_]

а поле Name есть в твоей таблице?

[_Engine_]

+ В моем случае тебе надо будет подключить UDF

DECLARE EXTERNAL FUNCTION STRREPLACE
    CSTRING(256),
    CSTRING(256),
    CSTRING(256)
RETURNS CSTRING(256)
ENTRY_POINT 'fn_strreplace' MODULE_NAME 'rfunc';

тебе надо вместо t1.name писать t1.path, ну и в update t2.path

[Yurk@]

мой вариант

create or alter procedure P_REPL_TEXT (
    I_FIND_TEXT varchar(20),
    I_REPL_TEXT varchar(20))
as
declare variable T_FULLN_U varchar(20);
declare variable T_STR_AFTER varchar(20) = '';
declare variable T_STR_BEFORE varchar(20) = '';
declare variable T_STR_ID bigint;
declare variable P1 integer;
declare variable P2 integer;
declare CUR cursor for (
    select UNR_RU, FULLN_U
    from P_INDANY
    where FULLN_U like '%' || :I_FIND_TEXT || '%');
begin
OPEN cur;
while (1=1) do
 begin
 FETCH cur INTO t_str_id, t_fulln_u;
 IF (ROW_COUNT = 0) THEN LEAVE;
 p1=position(:i_find_text in t_fulln_u)-1;
 p2=p1+char_length(:i_repl_text)+1;
 t_str_before=substring(t_fulln_u from 1 for p1);
 t_str_after=substring(t_fulln_u from p2 for char_length(:t_fulln_u)-p2+1);
 UPDATE p_indany
 SET fulln_u = :t_str_before||:i_repl_text||:t_str_after
 WHERE unr_ru=:t_str_id;
 end
CLOSE cur;
EXIT;
end