Проблема с Мемо

[boostman]

как считывать с каждой линии в мемо (или надо чето другое?), и на выходе, при сохранении, добавлять свой текст вокруг текста в (в данный момент надо добавлять part x)?? PLAESE HELP!!

[D-mon]

С каждой линии чего(откуда) считать???
И на каком выходе???
И вокруг текста (какого? линии или всего текста)???

Перефразируйте задачу, а то лично я ничего немогу понять...

[boostman]

Короче мне надо сделать так :
[что-то] текст юзера {[что-то]
через едит я мог, а чтоб через мемо и на каждую строчку добавляло [что-то], + еще номер строчки

[D-mon]

Я так понял. Юзер вводит текст, при переходе на новую строку надо на предыдущей поставить в начале стоки номер и обрамить [что-то]??? Првильно?

[boostman]

ДА, помоги плз!

[boostman]

Помагите пжалуйста!!!

[D-mon]

На KeyUp Мемо и будет те счастье...

procedure TForm2.Memo1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 if(Key=13)then
  begin
   Memo1.Lines[Memo1.Lines.Count-1]:='Lines: '+IntToStr(Memo1.Lines.Count-1)+' 111 '+Memo1.Lines[Memo1.Lines.Count-1]+' 111'+#13#10;
   Memo1.Lines.Delete(Memo1.Lines.Count); Memo1.Lines.Delete(Memo1.Lines.Count-1);
  end; // ShowMessage(IntToStr(Memo1.Lines.Count));
end;

[Stilet]

Пробуем так:

procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then begin
if Copy(Memo1.Lines[Memo1.CaretPos.Y],1,5)<>'*****' then
 Memo1.Lines[Memo1.CaretPos.Y]:='*****'+Memo1.Lines[Memo1.CaretPos.Y];
if Copy(Memo1.Lines[Memo1.CaretPos.Y],length(Memo1.Lines[Memo1.CaretPos.Y])-5,5)<>'*****' then
 Memo1.Lines[Memo1.CaretPos.Y]:=Memo1.Lines[Memo1.CaretPos.Y]+'*****';
end;

[boostman]

Неработает

[D-mon]

Что не работает??? У меня работает и код Stilet и мой, не может не работать...