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

Поиск:

Закрытая темаСоздание новой темы Создание опроса
> Стандартные Memo, edit, button, timer, Работа с закладкой стандартные обсуждаем 
:(
    Опции темы
vovan430
  Дата 13.8.2005, 12:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
Привет всем помогите мне пожалуйста как запрограммировать button1 чтоб при нажатии на него текст введённый в memo1 менялся на такой-же текст только все буквы А заменялись на буквы Я во втором memo2. Заранее благодарен всем. Задавайте и мне вопросы возможно я отвечу на них.

Это сообщение отредактировал(а) Alex - 13.8.2005, 12:33
PM MAIL WWW   Вверх
Guest
Дата 13.8.2005, 12:24 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
Код

Memo2.Text:=StringReplace(Memo1.Text,'A','Я',[rfReplaceAll, rfIgnoreCase]);
  Вверх
vovan430
Дата 13.8.2005, 12:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
а как чтоб буква а на я б на ю в на э
Добавлено @ 12:36
что то не получается smile а меняется опять на а
PM MAIL WWW   Вверх
vovan430
Дата 13.8.2005, 12:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
Please отпавь мне исходник на почтуотправь исходник пожалуйста smile smile smile smile smile smile smile
PM MAIL WWW   Вверх
vovan430
Дата 13.8.2005, 13:05 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
smile Пожалуйста помогите люди добрые smile

мне нужно чтоб при нажатии на кнопку буквы менялись по алгоритму
а на я
б на ю
в на э
...........
э на в
ю на б
я на а
а у меня получается замена только одной буквы а на я или б на ю а вместе не получается пожалуйста если знаете ответ на мой вопрос помогите я в долгу не останусь то-же помогу.


smile Заранее благодарен smile

PM MAIL WWW   Вверх
vovan430
Дата 13.8.2005, 15:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
Цитата
подскажите как загрузить gif анимашку на форму smile

PM MAIL WWW   Вверх
Poseidon
Дата 13.8.2005, 17:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Delphi developer
****


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

Репутация: 53
Всего: 133
Блин, vovan430, заколебал!


Цитата(vovan430 @ 13.8.2005, 13:05)
мне нужно чтоб при нажатии на кнопку буквы менялись по алгоритму
а на я
б на ю
в на э
Тебе ведь ответили уже!

Код
procedure TForm.Button1Click(Sender:TObject);
begin
Memo2.Text:=StringReplace(Memo1.Text,'а','я',[rfReplaceAll, rfIgnoreCase]);
Memo2.Text:=StringReplace(Memo1.Text,'б','ю',[rfReplaceAll, rfIgnoreCase]);
Memo2.Text:=StringReplace(Memo1.Text,'в','э',[rfReplaceAll, rfIgnoreCase]);
end;

Добавлено @ 17:35
Цитата(vovan430 @ 13.8.2005, 15:40)
подскажите как загрузить gif анимашку на форму
Используй компонент RxGifAnimator из библиотеки RxLib



--------------------
Если хочешь, что бы что-то работало - используй написанное, 
если хочешь что-то понять - пиши сам...
PM MAIL ICQ   Вверх
vovan430
Дата 13.8.2005, 17:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
не получается меняется только буква в на э остальные остаются неизменными smile smile smile smile
PM MAIL WWW   Вверх
vovan430
Дата 13.8.2005, 18:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
а если у меня нету библиотеки RxLib не получится? smile




PM MAIL WWW   Вверх
Poseidon
Дата 13.8.2005, 18:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Delphi developer
****


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

Репутация: 53
Всего: 133
Цитата(vovan430 @ 13.8.2005, 17:49)
не получается меняется только буква в на э остальные остаются неизменными
Хех, точно. А ошибка мелочная. Вот работающий вариант:

Код
procedure TForm.Button1Click(Sender:TObject);
begin
Memo2.Text:=StringReplace(Memo1.Text,'а','я',[rfReplaceAll, rfIgnoreCase]);
Memo2.Text:=StringReplace(Memo2.Text,'б','ю',[rfReplaceAll, rfIgnoreCase]);
Memo2.Text:=StringReplace(Memo2.Text,'в','э',[rfReplaceAll, rfIgnoreCase]);
end;



--------------------
Если хочешь, что бы что-то работало - используй написанное, 
если хочешь что-то понять - пиши сам...
PM MAIL ICQ   Вверх
vovan430
Дата 13.8.2005, 18:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
да-а-а и всё из-за одной цифры. Какая тонкая вещь программирование. Спасибо тебе. Вот ещё подскажи мне пожалуйста как загрузить картинку в statusbar?
PM MAIL WWW   Вверх
Poseidon
Дата 13.8.2005, 18:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Delphi developer
****


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

Репутация: 53
Всего: 133
Млин, не нужно дублировать вопросы в личку и на форуме. Пиши либо там, либо там.

http://vingrad.ru/DELPHI-DLP-000523


--------------------
Если хочешь, что бы что-то работало - используй написанное, 
если хочешь что-то понять - пиши сам...
PM MAIL ICQ   Вверх
vovan430
Дата 14.8.2005, 11:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
Помогите пожалуйста как сделать чтоб при нажатии на BitBtn1 вылазил PrintDialog и при нажатии OK началась распечатка текста который находится в Memo1 и Memo2. smile smile smile
PM MAIL WWW   Вверх
Poseidon
Дата 14.8.2005, 11:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Delphi developer
****


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

Репутация: 53
Всего: 133
Блин, ты видать не читал вот это

Цитата
1) Заголовок сообщения должен кратко отражать суть проблемы, нельзя давать заголовки типа "Помогите", "Срочно нужна помощь", "Есть вопрос", "Очень надо", "Сложный вопрос по программированию" и тому подобное.
...
10) Запрещается создание сообщения с несколькими вопросами. На каждый вопрос должна создаваться отдельная тема. В случае возникновения таких тем, администрация форума оставляет за собой право изменить текст сообщения, удалить его или закрыть тему.
...
12) Перед тем как задать вопрос поищите в соответствующем разделе и FAQ ответ, очень может быть что такой вопрос уже задавался.


По-русски это звучит как:
Один топик, один вопрос!
Заголовок темы должен кратко отражать её суть!
Загляни в FAQ!


--------------------
Если хочешь, что бы что-то работало - используй написанное, 
если хочешь что-то понять - пиши сам...
PM MAIL ICQ   Вверх
vovan430
Дата 14.8.2005, 11:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
Посмотри пожалуйста я запрграммировал кнопку а работает только вторая половина кода в чём проблема?
Код

Memo2.Text:=StringReplace(Memo1.Text,'п','н',[rfReplaceAll, rfIgnoreCase]);
Memo2.Text:=StringReplace(Memo2.Text,'р','м',[rfReplaceAll, rfIgnoreCase]);
Memo2.Text:=StringReplace(Memo2.Text,'с','л',[rfReplaceAll, rfIgnoreCase]);
Memo2.Text:=StringReplace(Memo2.Text,'т','к',[rfReplaceAll, rfIgnoreCase]);
Memo2.Text:=StringReplace(Memo2.Text,'ф','з',[rfReplaceAll, rfIgnoreCase]);
Memo2.Text:=StringReplace(Memo2.Text,'х','ж',[rfReplaceAll, rfIgnoreCase]);
Memo2.Text:=StringReplace(Memo2.Text,'ц','д',[rfReplaceAll, rfIgnoreCase]);
Memo2.Text:=StringReplace(Memo2.Text,'ч','г',[rfReplaceAll, rfIgnoreCase]);
Memo2.Text:=StringReplace(Memo2.Text,'ш','в',[rfReplaceAll, rfIgnoreCase]);

Memo2.Text:=StringReplace(Memo1.Text,'б','щ',[rfReplaceAll, rfIgnoreCase]);
Memo2.Text:=StringReplace(Memo2.Text,'в','ш',[rfReplaceAll, rfIgnoreCase]);
Memo2.Text:=StringReplace(Memo2.Text,'г','ч',[rfReplaceAll, rfIgnoreCase]);
Memo2.Text:=StringReplace(Memo2.Text,'щ','б',[rfReplaceAll, rfIgnoreCase]);

Memo2.Text:=StringReplace(Memo2.Text,'д','ц',[rfReplaceAll, rfIgnoreCase]);
Memo2.Text:=StringReplace(Memo2.Text,'ж','х',[rfReplaceAll, rfIgnoreCase]);
Memo2.Text:=StringReplace(Memo2.Text,'з','ф',[rfReplaceAll, rfIgnoreCase]);
Memo2.Text:=StringReplace(Memo2.Text,'к','т',[rfReplaceAll, rfIgnoreCase]);
Memo2.Text:=StringReplace(Memo2.Text,'л','с',[rfReplaceAll, rfIgnoreCase]);
Memo2.Text:=StringReplace(Memo2.Text,'м','р',[rfReplaceAll, rfIgnoreCase]);
Memo2.Text:=StringReplace(Memo2.Text,'н','п',[rfReplaceAll, rfIgnoreCase]);


Добавлено @ 11:49
То есть получается код будет таким?
Код

if printdialog1.execute then 
 PrintStrings(Memo1.Lines);  

Так будет код или нет?
PM MAIL WWW   Вверх
Закрытая темаСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

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

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

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

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

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

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


 




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


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

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