Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Заменить кусок текста из мемо на свой текст

WebSQLNeederr © (2008-02-14 22:44:00)
Я понимаю, что вопрос тривиальный, но прошу совета как это сделать ... то есть существует текст в мемо и нужно сделать парсер, который бы прошелся по тексту и заменил все искомые куски текста на те что мне нужно.

Amoeba (2008-02-16 20:05:00) [1]

> В наших краях она не произрастает, или не дозревает

Artemisia absentium произрастает (и дозревает) в южных областях.

ASoft (2008-02-16 16:14:00) [2]

> WebSQLNeederr (14.02.08 22:44)

TMemo:
SelStart
SelLength
SetSelTextBuf();
Остается только "пробежаться" по мемо и найти что заменить

DJ_UZer (2008-02-16 04:17:00) [3]
можно с помощью проверки копи, а потом удалить если надо и вставить!
тоесть примерно так:
if copy(r,i,6)='$NAME$' then
begin
delete(r,i,6);
insert(edit1.Text,r,i);
inc(i);
end
else
inc(i);
end;

вот и все!

{RASkov} (2008-02-16 03:09:00) [4]
Нашли о чем поговорить :)

> [2] WebSQLNeederr (15.02.08 00:35)
> copy & pos явно не подходят ...

А если Copy и PosEx ? :)

Германн (2008-02-16 02:39:00) [5]

> KilkennyCat © (16.02.08 02:33) [12]
>
> > [11] Германн © (16.02.08 02:01)
>
> Только в Европе, и только к продаже. Но если ненастоящий
> немнооожечко настоять на полыни... :)

А где ты найдёшь ту полынь? В наших краях она не произрастает, или не дозревает, имхо.

KilkennyCat (2008-02-16 02:33:00) [6]
> [11] Германн © (16.02.08 02:01)

Только в Европе, и только к продаже. Но если ненастоящий немнооожечко настоять на полыни... :) Кстати, на моем написано, что туйон присутствует.Не помню, сколько, ща до дому доеду и посмотрю...

Германн (2008-02-16 02:01:00) [7]

> KilkennyCat © (16.02.08 01:38) [10]
>
> > [9] Германн © (16.02.08 01:34)
>
> действует, как настоящий...

Враньё. Настоящий запрещен ещё в начале прошлого века.

KilkennyCat (2008-02-16 01:38:00) [8]
> [9] Германн © (16.02.08 01:34)

действует, как настоящий... из Чехии, вроде. "Фея Гипно". "Черная дырка" закончился уже давно :(

Германн (2008-02-16 01:34:00) [9]

> KilkennyCat © (16.02.08 01:27) [8]

Скорее всего это не настоящий абсент. Если ты только не делал его сам.

KilkennyCat (2008-02-16 01:27:00) [10]
> [7] Германн © (15.02.08 03:19)

Ну, почти угадал: абсент, который я сейчас пью - зеленый! :)

Германн (2008-02-15 03:19:00) [11]

> ASoft (15.02.08 03:13) [5]

А. Ну да. В BDS есть такое. Значит Косте пока ещё рано "ловить чёртиков зелёных" :)

Германн (2008-02-15 03:14:00) [12]

> KilkennyCat © (15.02.08 02:58) [4]
>
> хе... точно. а мне казалось, и анситекст есть... бредю..
> .
>

Один светлый луч в тёмном питерском царстве был. Но он был очень давно. :)

ASoft (2008-02-15 03:13:00) [13]
AnsiReplaceText(const AText, AFromText, AToText: string): string;
есть так же
AnsiReplaceStr(const AText, AFromText, AToText: string): string;

KilkennyCat (2008-02-15 02:58:00) [14]
хе... точно. а мне казалось, и анситекст есть... бредю...

Германн (2008-02-15 01:45:00) [15]

> А что за AnsiTextReplace, что он делает?
>

Может Константин имел в виду StringReplace?

WebSQLNeederr (2008-02-15 00:35:00) [16]
copy & pos явно не подходят ...

А что за AnsiTextReplace, что он делает?

KilkennyCat (2008-02-14 23:48:00) [17]
Сopy?
Pos?
AnsiTextReplace?

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »