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

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

Пишешь в дельфе обертку на AnsiReplaceStr добавляешь через AddFunction и дёргаешь её
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.02.2019, 12:57
    #39777223
DimaBr
DimaBr
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Замена текста в Delphi
Код: 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, 13:09
    #39777233
Док
Док
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Замена текста в Delphi
DimaBr,

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

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

Ответ, резюмирую:
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, 14:32
    #39777297
DimaBr
DimaBr
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Замена текста в Delphi
lolamoreMaxInt - неопределенный индетификатор, на что можно заменить?
замени на 100500
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.02.2019, 14:42
    #39777306
Dimonka
Dimonka
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Замена текста в Delphi
Ну чего вы над человеком издеваетесь, расскажите уж про StringReplace() :
Код: pascal
1.
2.
text1 := 'Сегодня Маша пошла гулять';
text2 := StringReplace(text1, 'Маша', 'Лиза', [rfReplaceAll])
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.02.2019, 14:51
    #39777313
Vlad F
Vlad F
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Замена текста в Delphi
Мимопроходящий21.02.2019 12:27, lolamore пишет:
> Пишу в Fastreporte.

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

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


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

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

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

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

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

Ничего такого, так ничего такого. Я к тому, что первоначально озвученная теза вовсе не повод к автоматической абструкции.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Замена текста в Delphi / 18 сообщений из 18, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 400ms
Закрыть
start [/forum/topic.php?fid=58&mobile=1&tid=2039778]:
 0ms
get settings:
 9ms
get forum list:
 15ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 30ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 60ms
get tp. blocked users:
 1ms
others: 267ms
total:  400ms
x
x
Закрыть


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