[marquell]

Здравствуйте.

Очень нужно в течение четырёх часов написать программу, но я за Delphi последний раз садился лет 5 назад и ничего не помню Буду рад вашей помощи.

Суть: в программе исключительно два текстовых поля, никаких кнопок. Мы вставляем в первое поле список

Кошка
собака
мышей

Во второе поле вставляем

(1) и (2) очень не любят (3).

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

То бишь если второе поле пустое и мы вставляем нашу фразу

(1) и (2) очень не любят (3).

то в буфере у нас мгновенно должно оказаться

Кошка и собака очень не любят мышей.

Я вообще не помню, какие поля использовать, что писать и на какие события вешать. Нужно, чтобы поддерживалась комбинация Ctrl + A (выделить всё), это очень важно.

Заранее благодарю за помощь!

[icWasya]

ну примерно так
На форме - 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;

затем на форме кликаешь на Edit1
переходишь в Object Inspector на вкладку Events
В строке OnChange нажимаешь стрелочку вниз, и из списка выбираешь Memo1Change
должно работать

[Alegun]

Оффтоп: Василий, чойто ты перемудрил слегонца с заковырками, проверь - не робит твой обработчик


А мона ещё и так

З.Ы. Про Ctrl+A сразу не заметил, добавлено