VPF::поиск и замена string данных - Форум программистов

W1zArD

Дата 28.4.2006, 20:40 (ссылка)

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

Загрузка ...

Опытный

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

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

С Edit1 берется Text (Edit1.Text) и в тексте проводится поиск (даже банальным pos), далее если находится символ (например !) он меняется на текст в Edit2. Вот так...
smile

Alex

Дата 28.4.2006, 20:47 (ссылка)

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

Загрузка ...

Эксперт

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

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

http://forum.vingrad.ru/index.php?showtopi...st&p=347814

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

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

DimassS

Дата 28.4.2006, 21:20 (ссылка)

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

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 90
Регистрация: 12.4.2006
Где: Россия, Иркустк

Репутация: 1
Всего: 2

var
str: string;
Len,i:integer;
begin
s:=edit1.text;
len:=length(edit1.text);
for i:=1 to len do
if s[i]='!' then s[i]:=edit2.text;

end;

Думаю так... проверь!

Это сообщение отредактировал(а) DimassS - 28.4.2006, 21:21

zalex

Дата 29.4.2006, 00:53 (ссылка)

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

Загрузка ...

Шустрый

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

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

Код


var s:string;
i:Integer;
begin
s:=Edit1.Text;
For i:=1 to Length(s) do
 if s[i]='!' then begin
                  Insert(Edit2.Text,s,i);
                  Delete(s,i+Length(Edit2.Text),1)
                  end;
Edit2.Text:=s;

Пред пример не смотрел, но ИМХО, в Edit2 мож быть не только один символ.

Yanis

Дата 29.4.2006, 01:22 (ссылка)

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

Загрузка ...

Эксперт

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

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

Код


  if Pos('!', edit1.Text) > 0 then
    edit1.Text := StringReplace(edit1.Text, '!', edit2.Text, [rfReplaceAll]);

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

*щёлк*

Sunvas

Дата 29.4.2006, 07:24 (ссылка)

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

Загрузка ...

Соль и сахар

Профиль
Группа: Участник
Сообщений: 3388
Регистрация: 12.3.2006
Где: Тосно

Репутация: 28
Всего: 89

Цитата(DimassS @ 28.4.2006, 21:20

)

if s[i]='!' then s[i]:=edit2.text;

Интересно, как это у тебя скомпилится?

zalex, твой метод не правильный, ибо если edit2.text будет больше чем 1 символ, то поиск далее фором до конца так и не дойдет! А еще

Цитата(zalex @ 29.4.2006, 00:53

)

Edit2.Text:=s;

вообще-то edit1.text;

Самое правильное решение у Yanis-а.

Это сообщение отредактировал(а) Sunvas - 29.4.2006, 07:31

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

Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их.

W1zArD

Дата 2.5.2006, 04:42 (ссылка)

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

Загрузка ...

Опытный

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

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

спасибо

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