[Delphi] Memo с нумирацией строк

[Kolhan]

Проблема вот в чём. Нужно сделать Мемо с нумирацией строк. причём нумировать не в самом Мемо, а как это сделано в любой среде разработок. Нужно использовать какойто дополнительный элемент наверно. Так как в свойствах самого Мемо я не нашёл такого.

[NetSpace]

я вот как строки в Memo делал когда-то...что-то копировал из одного окошка в другое...

i:=0;
   c:=Memo1.Lines.Count;
   Memo2.Clear;
   str1:=Form1.Memo1.Lines.Text;
   while i<c do
   begin
      str1:=Memo1.Lines.strings[i];
      if(Pos(chr(poz),str1)=1)then
      Form1.Memo2.Lines.Add(str1);
      i:=i+1;
   end;

[Utkin]

Это уже обсуждалось. К Мемо довешивается TPanel к примеру и в него выводится все чего хочется. Чтобы приклеить TPanel нужно его родителя объявить ваш Мемо.

[Stilet]

Можно еше прикрепить ListBox, разукрасить его под нелистбокс и выводить в него номера строк:

procedure TForm1.Memo1Change(Sender: TObject);
var i:integer;
begin
ListBox1.Items.Clear;
 for i:=0 to Memo1.Lines.Count-1 do ListBox1.Items.Add(inttostr(i+1));
end;
end.

Ну и прокрутку прикрутить верную.