Самый простой путь вставки текста в компонент Memo заключается в посылке ему сообщения EM_REPLACESEL.
{ InsertFileInMemo-- ПРИМЕЧАНИЕ: если вы хотите заменить к настоящему временивыбранный в Memo текст, передайте в параметре ReplaceSelTRUE. FALSE необходим для простой вставки текста... } procedure InsertFileInMemo( Memo: TMemo; FileName: string; ReplaceSel: Boolean );var Stream: TMemoryStream;NullTerminator: Char;begin Stream := TMemoryStream.Create;try{ Загружаем текст... }Stream.LoadFromFile( FileName ); { Добавляем в конец текста терминирующий ноль... }Stream.Seek( 0, 2 );NullTerminator := #0;Stream.Write( NullTerminator, 1 ); { Вставляем текст в Memo... }if not ReplaceSel then Memo.SelLength := 0;SendMessage( Memo.Handle, EM_ReplaceSel, 0,LongInt( Stream.Memory ));finallyStream.Free;end;end; |
- Ed Jordan [001000]