Добавление даты и времени в компонент Memo

Written on 16 Октября 2007. Posted in [Delphi] Пользовательский интерфейс. Элементы управления

{ Следующий код вставляет значение даты/времени в memo-поле. }

Var

s : string ;

begin

s := DateToStr( Date ) + ' ' + TimeToStr( Time ) + ' :' ;

Memo1.Lines.Insert( 0, s ) ;

Memo1.SetFocus ;

Memo1.SelStart := Length( s ) ;

Memo1.SelLength := 0 ;