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

Поиск:

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


Delphi developer
****


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

Репутация: 53
Всего: 133
Все, честно, достал! Последний раз я в этой теме. Неужели трудно создать на каждый вопрос отдельную тему?


Цитата(vovan430 @ 14.8.2005, 11:41)
Посмотри пожалуйста я запрграммировал кнопку а работает только вторая половина кода в чём проблема?
Ошибка в 11 строчке. Там нужно Memo2.Text

PS. И того, что код сработал ты не заметишь, т.к. вторая часть кода вернет все то, что сделала первая часть. т.е.
Код
Memo2.Text:=StringReplace(Memo2.Text,'р','м',[rfReplaceAll, rfIgnoreCase]);
...
Memo2.Text:=StringReplace(Memo2.Text,'м','р',[rfReplaceAll, rfIgnoreCase]);




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


физик
***


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

Репутация: 1
Всего: 42
как вариант
Код
for i:=1 to length(Memo1.Lines) do 
begin
if copy(Memo1.Lines,i,1)='а' then Memo2.Lines:=Memo2.Lines+'я';
if copy(Memo1.Lines,i,1)='б' then Memo2.Lines:=Memo2.Lines+'ю';
if copy(Memo1.Lines,i,1)='в' then Memo2.Lines:=Memo2.Lines+'э';
------
if copy(Memo1.Lines,i,1)='э' then Memo2.Lines:=Memo2.Lines+'в';
if copy(Memo1.Lines,i,1)='ю' then Memo2.Lines:=Memo2.Lines+'б';
if copy(Memo1.Lines,i,1)='я' then Memo2.Lines:=Memo2.Lines+'а';
if copy(Memo1.Lines,i,1)=' ' then Memo2.Lines:=Memo2.Lines+' '; // так же прописать для всех остальных знаков препинания.
end;

Добавлено @ 12:01
Poseidon
Цитата(Poseidon @ 14.8.2005, 12:54)
Все, честно, достал! Последний раз я в этой теме.
терпение... ну немного не по правилам, но ведь сам говорил, что ты тут просто так хочешь всем помогать.


Это сообщение отредактировал(а) Femida - 14.8.2005, 12:00


--------------------
Появляюсь редко, но часто метко

Изображать идиота сложнее, чем изображать умного: полезнее и не каждому дано
PM ICQ   Вверх
Poseidon
Дата 14.8.2005, 12:03 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Delphi developer
****


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

Репутация: 53
Всего: 133
Цитата(Femida @ 14.8.2005, 11:59)
терпение... ну немного не по правилам, но ведь сам говорил, что ты тут просто так хочешь всем помогать
Ууууговорил smile
Только вот модераторам явно не понравится. smile


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


физик
***


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

Репутация: 1
Всего: 42
Цитата(Poseidon @ 14.8.2005, 13:03)
Только вот модераторам явно не понравится
это им решать, на то они и модераторы.



--------------------
Появляюсь редко, но часто метко

Изображать идиота сложнее, чем изображать умного: полезнее и не каждому дано
PM ICQ   Вверх
vovan430
  Дата 14.8.2005, 12:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
Femida Извини меня за нелепый вопрос но Dekpgi выдаёт ошибку на for i:=1 точнее на I
PM MAIL WWW   Вверх
mvdr
Дата 14.8.2005, 12:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


физик
***


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

Репутация: 1
Всего: 42
в var i:integer написал?


--------------------
Появляюсь редко, но часто метко

Изображать идиота сложнее, чем изображать умного: полезнее и не каждому дано
PM ICQ   Вверх
vovan430
Дата 14.8.2005, 12:55 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
точно всё понятно спасибо большое
PM MAIL WWW   Вверх
mvdr
Дата 14.8.2005, 12:57 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


физик
***


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

Репутация: 1
Всего: 42
работает?


--------------------
Появляюсь редко, но часто метко

Изображать идиота сложнее, чем изображать умного: полезнее и не каждому дано
PM ICQ   Вверх
vovan430
Дата 14.8.2005, 13:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
не хочу тебя огорчать но нет. вот этот код пишу и не получается проверь у себя пожалуйста
Код

procedure TForm1.Button1Click(Sender: TObject);
begin
for i:=1 to length(Memo1.Lines.Text) do
begin
if copy(Memo1.Lines.Text,i,1)='à' then Memo2.Lines.Text:=Memo2.Lines.Text+'ÿ;
if copy(Memo1.Lines.Text,i,1)='á' then Memo2.Lines.Text:=Memo2.Lines.Text+'þ;
if copy(Memo1.Lines.Text,i,1)='â' then Memo2.Lines.Text:=Memo2.Lines.Text+'ý;
if copy(Memo1.Lines.Text,i,1)='ã' then Memo2.Lines.Text:=Memo2.Lines.Text+'ü;
if copy(Memo1.Lines.Text,i,1)='ä' then Memo2.Lines.Text:=Memo2.Lines.Text+'û;
if copy(Memo1.Lines.Text,i,1)='å' then Memo2.Lines.Text:=Memo2.Lines.Text+'ú;
if copy(Memo1.Lines.Text,i,1)='¸' then Memo2.Lines.Text:=Memo2.Lines.Text+'ù;
if copy(Memo1.Lines.Text,i,1)='æ' then Memo2.Lines.Text:=Memo2.Lines.Text+'ø;
if copy(Memo1.Lines.Text,i,1)='ç' then Memo2.Lines.Text:=Memo2.Lines.Text+'÷;
if copy(Memo1.Lines.Text,i,1)='è' then Memo2.Lines.Text:=Memo2.Lines.Text+'ö;
if copy(Memo1.Lines.Text,i,1)='é' then Memo2.Lines.Text:=Memo2.Lines.Text+'õ;
if copy(Memo1.Lines.Text,i,1)='ê' then Memo2.Lines.Text:=Memo2.Lines.Text+'ô;
if copy(Memo1.Lines.Text,i,1)='ë' then Memo2.Lines.Text:=Memo2.Lines.Text+'ó;
if copy(Memo1.Lines.Text,i,1)='ì' then Memo2.Lines.Text:=Memo2.Lines.Text+'ò;
if copy(Memo1.Lines.Text,i,1)='í' then Memo2.Lines.Text:=Memo2.Lines.Text+'ñ';
if copy(Memo1.Lines.Text,i,1)='î' then Memo2.Lines.Text:=Memo2.Lines.Text+'ð';
if copy(Memo1.Lines.Text,i,1)='ï' then Memo2.Lines.Text:=Memo2.Lines.Text+'ï';
if copy(Memo1.Lines.Text,i,1)='ð' then Memo2.Lines.Text:=Memo2.Lines.Text+'î';
if copy(Memo1.Lines.Text,i,1)='ñ' then Memo2.Lines.Text:=Memo2.Lines.Text+'í';
if copy(Memo1.Lines.Text,i,1)='ò' then Memo2.Lines.Text:=Memo2.Lines.Text+'ì';
if copy(Memo1.Lines.Text,i,1)='ó' then Memo2.Lines.Text:=Memo2.Lines.Text+'ë';
if copy(Memo1.Lines.Text,i,1)='ô' then Memo2.Lines.Text:=Memo2.Lines.Text+'ê';
if copy(Memo1.Lines.Text,i,1)='õ' then Memo2.Lines.Text:=Memo2.Lines.Text+'é';
if copy(Memo1.Lines.Text,i,1)='ö' then Memo2.Lines.Text:=Memo2.Lines.Text+'è';
if copy(Memo1.Lines.Text,i,1)='÷' then Memo2.Lines.Text:=Memo2.Lines.Text+'ç';
if copy(Memo1.Lines.Text,i,1)='ù' then Memo2.Lines.Text:=Memo2.Lines.Text+'æ';
if copy(Memo1.Lines.Text,i,1)='ù' then Memo2.Lines.Text:=Memo2.Lines.Text+'¸';
if copy(Memo1.Lines.Text,i,1)='ú' then Memo2.Lines.Text:=Memo2.Lines.Text+'å';
if copy(Memo1.Lines.Text,i,1)='û' then Memo2.Lines.Text:=Memo2.Lines.Text+'ä';
if copy(Memo1.Lines.Text,i,1)='ü' then Memo2.Lines.Text:=Memo2.Lines.Text+'ã';
if copy(Memo1.Lines.Text,i,1)='ý' then Memo2.Lines.Text:=Memo2.Lines.Text+'â';
if copy(Memo1.Lines.Text,i,1)='þ' then Memo2.Lines.Text:=Memo2.Lines.Text+'á';
if copy(Memo1.Lines.Text,i,1)='ÿ' then Memo2.Lines.Text:=Memo2.Lines.Text+'à';
end;
end;
end.
PM MAIL WWW   Вверх
mvdr
Дата 14.8.2005, 13:07 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


физик
***


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

Репутация: 1
Всего: 42
у меня здесь Delphi нет,
что пишет? На что жалуется?


--------------------
Появляюсь редко, но часто метко

Изображать идиота сложнее, чем изображать умного: полезнее и не каждому дано
PM ICQ   Вверх
vovan430
Дата 14.8.2005, 13:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
жалуется на первую строку после второго Begin в частности на if
PM MAIL WWW   Вверх
mvdr
Дата 14.8.2005, 13:13 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


физик
***


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

Репутация: 1
Всего: 42
и что говорит?
Если прописано все нормально, т.е. без ошибок, лишних точек, запятых... то должен пройти


--------------------
Появляюсь редко, но часто метко

Изображать идиота сложнее, чем изображать умного: полезнее и не каждому дано
PM ICQ   Вверх
vovan430
Дата 14.8.2005, 13:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
А ты не знаешь как запрограммировать кнопку чтоб при нажатии открывался PrintDialog и началась печать?
PM MAIL WWW   Вверх
mvdr
Дата 14.8.2005, 13:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


физик
***


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

Репутация: 1
Всего: 42
vovan430, давай уже в отдельную тему.
Раз, два, три - нарушать можно, но 4 - не хорошо


--------------------
Появляюсь редко, но часто метко

Изображать идиота сложнее, чем изображать умного: полезнее и не каждому дано
PM ICQ   Вверх
vadims
Дата 14.8.2005, 13:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: нет
Всего: 17
Sorry, но видется Знак2


--------------------
Cpu not found ! Press any key for software emulation.
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.1921 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


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

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