подскажите идею

@spydark91 · Регистрация: 03.03.2011

Author24 — интернет-сервис помощи студентам

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

Delphi

procedure TForm1.RichEdit2KeyPress(Sender: TObject; var Key: Char);
begin
if Key=#13 then       //äîáàâëÿåì ó êîíåö ñèìâîë åíòåðà
  Infa.Msg:=Infa.Msg+'[;]'  //åñëè íàæàòà êàëûèøà åíòåðà
  else                      //åñëè íå åñíòåð,òî äîáàâëÿåì ñèìâîë
    Infa.Msg:=Infa.Msg+char(Key);
end;

но что делать если после нажатия нескольких раз на ентер,вдруг все удалят по средством бекспейса?
или нажав на ентер и что-то напечатав удалят то,что напечатали и сам енттер?

или еще вариант запоминать позиции где нажали ентар,а потом вставлять туда #13#10,но тогда опять проблема с бекспейсом

@nVz · 23.12.2011, 23:17

если я правильно понял, то так

Delphi

procedure TForm1.Memo1Change(Sender: TObject);
begin
  Memo2.Text:=Memo1.Text;
end;

@Arcor · 24.12.2011, 04:17

Сообщение от spydark91

,а потом вставлять туда #13#10,но тогда опять проблема с бекспейсом

запоминать что ты стираешь
как? например вот так, делаем процедуру на отслеживание нажатия клавиши "стирать", далее отслеживаем куда поставили курсор, запомнили место, когда отпустили "стиралку" запомнили еще 1 переменную, позицию, а в то время когда жали "стиралку", записывали в переменную строку, потом просто прийдется перевернуть, так как стираем задом наперед. Текст же в данном случае с переменной пока никуда не денется, пока не произойдет реакция переделывания основной переменной с текстом. Вот как-то так я бы сделал, хотя я задачу не слишком то и понял для чего это нужно

@spydark91 · 24.12.2011, 14:20 **[ТС]**

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

Добавлено через 35 секунд
может есть еще какие-нибудь идеи?а то так слишком мудрено,мне кажется можно как то иначе..только как?

Добавлено через 51 минуту
придумал,буду передавать построчно))

@Arcor 5705 / 2296 / 466 Регистрация: 20.11.2009 Сообщений: 7,720 Записей в блоге: 1
	24.12.2011, 04:17	3
	Сообщение от spydark91 ,а потом вставлять туда #13#10,но тогда опять проблема с бекспейсом запоминать что ты стираешь как? например вот так, делаем процедуру на отслеживание нажатия клавиши "стирать", далее отслеживаем куда поставили курсор, запомнили место, когда отпустили "стиралку" запомнили еще 1 переменную, позицию, а в то время когда жали "стиралку", записывали в переменную строку, потом просто прийдется перевернуть, так как стираем задом наперед. Текст же в данном случае с переменной пока никуда не денется, пока не произойдет реакция переделывания основной переменной с текстом. Вот как-то так я бы сделал, хотя я задачу не слишком то и понял для чего это нужно 0

@spydark91 86 / 86 / 13 Регистрация: 03.03.2011 Сообщений: 1,873
	24.12.2011, 14:20 [ТС]	4
	нужно это для того,чтобы отобразить текст точно также,как он был послан из мемо,а посылвется он в виде строки Добавлено через 35 секунд может есть еще какие-нибудь идеи?а то так слишком мудрено,мне кажется можно как то иначе..только как? Добавлено через 51 минуту придумал,буду передавать построчно)) 0