Как вставить содержимое файла в текущую позицию курсора в компоненте TMemo 2

Delphi , Компоненты и Классы , TMemo и TRichEdit

Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

procedure TForm1.Button1Click(Sender: TObject);
 var
   sl: TStringList;
 begin
   sl := TStringList.Create;
   try
     sl.LoadFromFile('c:\afile.txt');
     Memo1.SetSelTextBuf(PChar(sl.Text));
   finally
     sl.Free;
   end;
 end;

Статья Как вставить содержимое файла в текущую позицию курсора в компоненте TMemo 2 раздела Компоненты и Классы TMemo и TRichEdit может быть полезна для разработчиков на Delphi и FreePascal.

Комментарии и вопросы

:: Главная :: TMemo и TRichEdit ::