"Советы по Delphi. Версия 1.4.3 от 1.1.2001" - читать интересную книгу автора (Озеров Валентин)

Даты

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

Delphi 1

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

Var

 s : string;

begin

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

 Memo1.Lines.Insert(0, s);

 Memo1.SetFocus;

 Memo1.SelStart := Length(s);

 Memo1.SelLength := 0;