基本问题

Question

将memo中某一行的内容换成需要的内容

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
begin
  memo1.Lines [1] := 'hello';
end;

Answer 2

memo1.lines[TheLineNo] := YourString

Answer 3

var
  iOldSelStart:integer;
  iDeleteNumber:integer
begin
  with Memo1 do
  begin
    if Lines.Count > aNumber then
    begin
      iDeleteNumber := 0;
      iOldSelStart := SelStart;
      for i := 0 to Lines.Count - aNumber - 1 do
      begin
        Inc(iDeleteNumber,Length(Lines[0]) + 2);
        Lines.Delete(0);
      end;
      SelStart := iOldSelStart - iDeleteNumber;
    end;
  end; 
end;