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

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

Var

s : string ;

begin

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

Memo1.Lines.Insert( 0, s ) ;

Memo1.SetFocus ;

Memo1.SelStart := Length( s ) ;

Memo1.SelLength := 0 ;

« Предыдущая статья