Writing at cursorposition in TMemo

[T-bear]

Hi 

How can i write a string variable into a TMemo, at the position of the cursor?

[typo]

Code: [Select]

Memo1.SelText := 'abc';   


[T-bear]

And if i want to insert the text from a Textfile?

Thanks! 

[typo]

You can load the file to a TStringList and set its Text property to the TMemo's SelText property.

[T-bear]

??? How? ??? 

[typo]

Code: [Select]

var
  sl :TStringList;
begin
  sl := TStringList.Create;
  try
    sl.LoadFromFile(UTF8toAnsi('Filename.txt'));
    Memo1.SelText := sl.Text;
  finally
    sl.Free;
  end;
end;