ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Замена текста в Delphi
18 сообщений из 18, страница 1 из 1
Замена текста в Delphi
    #39777192
lolamore
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
lolamore
Гость
Добрый день!
Подскажите как прописать процедуру замены слова в тексте (текст большой примерно абзац), который тянется из БД.
Например текст в переменной text1='Сегодня Маша пошла гулять', чтобы стало 'Сегодня Лиза пошла гулять'.
Заменить 'Маша' на 'Лиза'?
Replace функция не работает, пишет неопределенный идентификатор. Пишу в Fastreporte.
Заранее огромное спасибо!
...
Рейтинг: 0 / 0
21.02.2019, 12:27
| Ответить | Цитировать | Написать  
Замена текста в Delphi
    #39777200
Мимопроходящий
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Мимопроходящий
Участник
21.02.2019 12:27, lolamore пишет:
> Пишу в Fastreporte.

научи и меня, бро!
Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
21.02.2019, 12:38
| Ответить | Цитировать | Написать  
Замена текста в Delphi
    #39777207
zinpub
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
zinpub
Гость
Смотри AddFunction....

Пишешь в дельфе обертку на AnsiReplaceStr добавляешь через AddFunction и дёргаешь её
...
Рейтинг: 0 / 0
21.02.2019, 12:45
| Ответить | Цитировать | Написать  
Замена текста в Delphi
    #39777223
DimaBr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DimaBr
Участник
Код: pascal
1.
2.
X := Pos('Маша',S);
if X > 0 then Text := copy(S,1,X-1)+'Лиза' + copy(S,X+4,MaxInt);
...
Рейтинг: 0 / 0
21.02.2019, 12:57
| Ответить | Цитировать | Написать  
Замена текста в Delphi
    #39777233
Фотография Док
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Док
Участник
DimaBr,

Тогда уж лучше PosEx, вдруг там Маша не одна?
...
Рейтинг: 0 / 0
21.02.2019, 13:09
| Ответить | Цитировать | Написать  
Замена текста в Delphi
    #39777237
Мимопроходящий
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Мимопроходящий
Участник
да даже если одна, можно же ДВА РАЗА!
Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
21.02.2019, 13:12
| Ответить | Цитировать | Написать  
Замена текста в Delphi
    #39777252
L_argo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
L_argo
Участник
Вместо Маши можно вставить ссылку на поле БД. И там будет имя из таблицы.
...
Рейтинг: 0 / 0
21.02.2019, 13:36
| Ответить | Цитировать | Написать  
Замена текста в Delphi
    #39777253
lolamore
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
lolamore
Гость
DimaBr,
Получилось!!!!
ОГРОМНОЕ ВАМ СПАСИБО!!!!

Вопрос, уменя только MaxInt - неопределенный индетификатор, на что можно заменить?
...
Рейтинг: 0 / 0
21.02.2019, 13:37
| Ответить | Цитировать | Написать  
Замена текста в Delphi
    #39777259
YuRock
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
YuRock
Участник
lolamoreуменя только MaxInt - неопределенный индетификатор, на что можно заменить?Разве что попробовать заменить русское хэ на латинский икс.
...
Рейтинг: 0 / 0
21.02.2019, 13:47
| Ответить | Цитировать | Написать  
Замена текста в Delphi
    #39777266
lolamore
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
lolamore
Гость
Благодарю за ответы! Очень помогли!

Ответ, резюмирую:
procedure MasterDataOnBeforePrintClient(Sender: TfrxComponent);
var Text: string; i : integer;
begin
Text:= <ADOQuery."client_name">;
i := Pos('ООО',Text);
if i > 0
then
TfrxMemoView(Sender).Text:= copy(Text,1,i-1)+'АО' + copy(Text,i+2,Length(Text))+' '+<ADOQuery."str">
else
TfrxMemoView(Sender).Text:=<ADOQuery."client_name">+' '+<ADOQuery."str">;
end;
...
Рейтинг: 0 / 0
21.02.2019, 13:55
| Ответить | Цитировать | Написать  
Замена текста в Delphi
    #39777297
DimaBr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DimaBr
Участник
lolamoreMaxInt - неопределенный индетификатор, на что можно заменить?
замени на 100500
...
Рейтинг: 0 / 0
21.02.2019, 14:32
| Ответить | Цитировать | Написать  
Замена текста в Delphi
    #39777306
Фотография Dimonka
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dimonka
Участник
Ну чего вы над человеком издеваетесь, расскажите уж про StringReplace() :
Код: pascal
1.
2.
text1 := 'Сегодня Маша пошла гулять';
text2 := StringReplace(text1, 'Маша', 'Лиза', [rfReplaceAll])
...
Рейтинг: 0 / 0
21.02.2019, 14:42
| Ответить | Цитировать | Написать  
Замена текста в Delphi
    #39777313
Vlad F
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Vlad F
Участник
Мимопроходящий21.02.2019 12:27, lolamore пишет:
> Пишу в Fastreporte.

научи и меня, бро!

А вот зря, кстати, парни смеетесь. Лет с десяток десять назад здесь заявлялся парнишка, использовавший FR для
проектирования основного интерфейса пользователя. Он даже ссылку на демку давал, я стягивал из интереса,
чтобы отметить/принять к сведению возможность технологического решения. И для себя признал решение вполне
жизнеспособным. Что-то было там в ней на тему типа Мебельная фабрика "Дровишки", - никто больше этого случая
не помнит?
...
Рейтинг: 0 / 0
21.02.2019, 14:51
| Ответить | Цитировать | Написать  
Замена текста в Delphi
    #39777316
DimaBr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DimaBr
Участник
DimonkaНу чего вы над человеком издеваетесь, расскажите уж про StringReplace() :
Код: pascal
1.
2.
text1 := 'Сегодня Маша пошла гулять';
text2 := StringReplace(text1, 'Маша', 'Лиза', [rfReplaceAll])


Прочитай вопрос ТС до конца
...
Рейтинг: 0 / 0
21.02.2019, 14:52
| Ответить | Цитировать | Написать  
Замена текста в Delphi
    #39777322
Sinemurius
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Sinemurius
Участник
В качестве занудства: такие вещи делаются в БД.

К примеру для firebird это будет примерно так:

select replace(myfield,'Маша','Лиза') as NewFieldName from mytable
...
Рейтинг: 0 / 0
21.02.2019, 14:59
| Ответить | Цитировать | Написать  
Замена текста в Delphi
    #39777368
Фотография Dimonka
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dimonka
Участник
DimaBrПрочитай вопрос ТС до конца Непонятно у него о каком "Replace" идёт речь. Если даже он пишет на FastScript, StringReplace там по-моему был.
...
Рейтинг: 0 / 0
21.02.2019, 15:26
| Ответить | Цитировать | Написать  
Замена текста в Delphi
    #39777584
kealon(Ruslan)
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
kealon(Ruslan)
Участник
Vlad FМимопроходящий21.02.2019 12:27, lolamore пишет:
> Пишу в Fastreporte.

научи и меня, бро!

А вот зря, кстати, парни смеетесь. Лет с десяток десять назад здесь заявлялся парнишка, использовавший FR для
проектирования основного интерфейса пользователя. Он даже ссылку на демку давал, я стягивал из интереса,
чтобы отметить/принять к сведению возможность технологического решения. И для себя признал решение вполне
жизнеспособным. Что-то было там в ней на тему типа Мебельная фабрика "Дровишки", - никто больше этого случая
не помнит? ну а что такого, очередной а-ля ворд
...
Рейтинг: 0 / 0
21.02.2019, 20:04
| Ответить | Цитировать | Написать  
Замена текста в Delphi
    #39777597
Vlad F
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Vlad F
Участник
kealon(Ruslan),

Ничего такого, так ничего такого. Я к тому, что первоначально озвученная теза вовсе не повод к автоматической абструкции.
...
Рейтинг: 0 / 0
21.02.2019, 20:31
| Ответить | Цитировать | Написать  
18 сообщений из 18, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Замена текста в Delphi
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=58&msg=39777584&tid=2039778]:
 0ms
get settings:
 10ms
get forum list:
 20ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 162ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 76ms
get tp. blocked users:
 1ms
others: 205ms
total:  497ms
созд. / загр.: 497ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]