VPF::Строки и алгоритмы - Форум программистов

Yanis

Дата 19.11.2004, 20:53 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

Репутация: 72
Всего: 111

Найти все вхождения подстроки в строку и вставить перед подстрокой либой символ.
Помогите решить задачку.

--------------------

*щёлк*

Pakshin A. S.

Дата 19.11.2004, 20:58 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 5056
Регистрация: 16.2.2003

Репутация: 21
Всего: 61

Код


var
 s:string;
 res:string;
 pod:string;
begin
 res:='';
 while s <> '' do
  begin
   res:=res + Copy(s, 1, Pos(pod, s)-1);
   res:=res + '#';
   Delete(s, 1, Pos(pod, s) + Length(pod)-1);
  end;
end.

Вот...

Alex

Дата 19.11.2004, 21:38 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Экс. модератор
Сообщений: 4147
Регистрация: 25.3.2002
Где: Москва

Репутация: 80
Всего: 162

Код


uses
   StrUtils;
...
procedure TfrmEdit.Button1Click(Sender: TObject);
begin
  Label2.Caption:= AnsiReplaceStr(Label2.Caption, 'о', '1' + 'о');
end;

Перед буквой "о" вставляется "1"

--------------------

Написать можно все - главное четко представлять, что ты хочешь получить в конце.

Yanis

Дата 20.11.2004, 00:36 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

Репутация: 72
Всего: 111

Все надо делать руками.

--------------------

*щёлк*

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »