Модераторы: Snowy, MetalFan, bems, Poseidon
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Замена символов в Memo, немогу заменить символ в строке...help 
V
    Опции темы
InseR
Дата 14.12.2007, 11:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
Подскажите пожалуйста,что я делаю не так?Мне нужно чтобы по нажатию кнопки в определенной строке искался символ(например буква 'a') и при нахождении,этот символ должен был заменятся на другой символ(например 'b');
Код

procedure TMain.PerevodClick(Sender: TObject);
var
i:word;
stroka:string;
begin
stroka:=TextMemo.Lines[0]; //Присваиваем переменной значение
while Pos('a',stroka)<> 0 do //Пока существует символ
begin
i:=Pos('a',stroka); // Присваиваем переменной значение
while stroka[i]='a' do //Пока символ равен 'a'
begin
Delete(stroka,i,1); //Удаляем символ
Insert('b',stroka,i); //Вставляем на его место новое значение
end;
end;
end;
PM MAIL   Вверх
volvo877
Дата 14.12.2007, 12:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 9
Всего: 116
InseR, ну, поменял ты в строке символ, а кто назад в мемо будет записывать?

Код

TextMemo.Lines[0] := stroka; // В самом конце процедуры


А вообще, лучше используй 
Код

TextMemo.Lines[0] := StringReplace(TextMemo.Lines[0], 'a', 'b', [rfReplaceAll]);
чем вручную искать...
PM MAIL   Вверх
Sanchezzz
  Дата 14.12.2007, 19:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1670
Регистрация: 19.11.2006
Где: Voronezh

Репутация: 1
Всего: 60
аналогичная функция из модуля strUtils
Код

TextMemo.Lines[0] := AnsiReplaceStr(TextMemo.Lines[0], 'a', 'b'); 




--------------------
Понравился ответ "+" по репе, не забываем закрывать тему, заказы в LS.
PM MAIL Skype GTalk   Вверх
InseR
Дата 16.12.2007, 04:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
volvo877,Sanchezzz,спасибо большое smile 
PM MAIL   Вверх
InseR
Дата 16.12.2007, 15:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
Возник еще вопрос,помогите разобраться в чем ошибка плз...
Есть два поля Memo(topmemo и bottommemo),мне нужно,что бы во второе поле(bottommemo) вписывалось измененное значение из первого поля(topmemo)...
Код

for c:=0 to topmemo.Lines.Count  do
begin
bottommemo.Lines[c]:=AnsiReplaceStr(topmemo.Lines[c],'q','й');
end;
c:=c+1;


При выполнении этого кода,во второе поле копируется значение первого,тоесть копируется 'q',а мне нужно что бы копировалось 'й' и при этом,значение первого поля не изменялось.... smile  smile 
PM MAIL   Вверх
InseR
Дата 17.12.2007, 11:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
Во всем разобрался,помощь уже не требуется smile 
PM MAIL   Вверх
SneG0K
Дата 17.12.2007, 15:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Max Mara
***


Профиль
Группа: Завсегдатай
Сообщений: 1887
Регистрация: 1.12.2007
Где: Wis Dells

Репутация: 3
Всего: 54
Я извиняюсь за тупой вопрос и не в тему, но все-же, что делает этот знак 
Код

<>
 на дельфи???
PM WWW Skype   Вверх
VladBD
Дата 17.12.2007, 20:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: 5
не равно )))
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Для новичков"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Для новичков | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0751 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.