|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Простейшая программа из двух текстовых полей, нужна помощь
Здравствуйте.
Очень нужно в течение четырёх часов написать программу, но я за Delphi последний раз садился лет 5 назад и ничего не помню Буду рад вашей помощи. Суть: в программе исключительно два текстовых поля, никаких кнопок. Мы вставляем в первое поле список Кошка собака мышей Во второе поле вставляем (1) и (2) очень не любят (3). С каждым изменением любого поля должна производиться подстановка и копирование в буфер. То бишь если второе поле пустое и мы вставляем нашу фразу (1) и (2) очень не любят (3). то в буфере у нас мгновенно должно оказаться Кошка и собака очень не любят мышей. Я вообще не помню, какие поля использовать, что писать и на какие события вешать. Нужно, чтобы поддерживалась комбинация Ctrl + A (выделить всё), это очень важно. Заранее благодарю за помощь! |
#2
|
|||
|
|||
ну примерно так
На форме - Memo1, Edit1 и Label1 Кликаешь на Memo1 переходишь в Object Inspector на вкладку Events Дважды кликаешь на OnChange Дельфи должна перейти в редактор кода Там пишешь Код:
procedure TForm1.Memo1Change(Sender: TObject); var R,M,E:String; I:Integer; begin R:=Edit1.Text; for I:=0 to Memo1.Lines.Count-1 do begin M:=Memo1.Lines[i]; E:='('+IntToStr(I+1)+'); R:=StringReplace(R,E,M,[rfReplaceAll]); end; Label1.Caption:=R; end; переходишь в Object Inspector на вкладку Events В строке OnChange нажимаешь стрелочку вниз, и из списка выбираешь Memo1Change должно работать |
#3
|
||||
|
||||
Оффтоп: Василий, чойто ты перемудрил слегонца с заковырками, проверь - не робит твой обработчик
А мона ещё и так З.Ы. Про Ctrl+A сразу не заметил, добавлено Я не понял Вашего вопроса, но всё же Вам на него отвечу! Последний раз редактировалось Alegun, 06.03.2015 в 09:08. |