Как добавить в Tmemo?

[Hottabych]

Вопрос такой: Как в TMemo добавить текст, но не просто добавить (Lines.Add('xxx')), а добавить в определенную строку (например [3]).
Буду премного благодарен!

[Abbatik]

Memo1.Lines.Insert[INDEX](s: string);

[Hottabych]

Такая фишка не работает:

procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.Lines.Insert(3, 'rrrrr');
end;

Может чо нить в свойствах компонета смотреть?

[Abbatik]

если у тебя в memo меньше строк чем индекс, то он не вставит. Он вставляет только а место существующей строки, а существующую сдвигает вниз!

[-=<[Evklidd]>=-]

По-моему можно проще: Memo1.Lines[i] := 'ваша строка'; где i - номер вашей строки.

[Alter]

Ничего лучше пока нет, но и это пойдёт :

.......................................................................................
var
  Form1: TForm1;
  Procedure AddN(Lst :TStrings; Indx :LongInt; Txt :String);

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var Ind :LongInt;
begin
 Ind := StrToInt(Edit1.Text);// берём индекс
 AddN( Mem1.Lines, Ind, Edit2.Text );
end;

Procedure AddN(Lst :TStrings; Indx :LongInt; Txt :String);
Var I, II :LongInt;
begin // Индексы идут с НУЛЯ !
 IF Indx=Lst.Count-1 Then
   Lst.Strings[ Indx ] := Txt
  ELSE
 //--------------------------------------
 IF (Indx>=0)And(Indx<=Lst.Count-1)And(Lst.Count>0) Then // Строк достаточно
  Lst.Strings[ Indx ] := Txt
 //--------------------------------------
  ELSE
 IF (Indx>Lst.Count-1) Then  // Строк меньше индекса
 begin

  II := Lst.Count;

  IF II<=0 Then // строк нет
  Begin
    For I:=0 To Indx Do
     Lst.Add( '' );
    Lst.Strings[ Indx ] := Txt;
  end
   ELSE
  IF (Indx>II-1)And(II>0) Then // индекс больше колл-ва строк, и строки есть несколько
  Begin
    For I:=II-1 To Indx-1 Do
     Lst.Add( '' );
    Lst.Strings[ Indx ] := Txt;
  end;
 //--------------------------------------
 end;
end;

.............................................................................................

end.

[Stilet]

По-моему можно проще: Memo1.Lines[i] := 'ваша строка'; где i - номер вашей строки.

Нет тек не получится если i> количества строк.
Все гораздо проще. Вот процедура которая вставляет текст из Эдит1 в любую позицию по номеру из Эдит2. Причем если позиция будет больше количества строк, вставляемая строка все равно станет на свое место, но перед ней будет несколько пустых строк

procedure TForm1.Button1Click(Sender: TObject);
var a,b:integer;
begin
 a:=StrToInt(Edit2.Text);
while a>ListBox1.Items.Count do ListBox1.Items.Text:=ListBox1.Items.Text+#10#13;
ListBox1.Items.Insert(a,Edit1.Text);
end;

[-=<[Evklidd]>=-]

тогда так можно:
procedure TForm1.Button1Click(Sender: TObject);
var
k, i: integer;
for k:= 0 to i do
begin
Memo1.Lines.Add(' ');
end;
Memo1.Lines[i]:= 'строка';
i - номер вашей строки

[Hottabych]

Спасибо всем, но я сделал так же как написал -=<[Evklidd]>=-