Цитата:
|
Сообщение от cyber922
Ну при запуске программы)
var
s : string;
begin
s := DateToStr( Date ) + ' - ' + TimeToStr(Time);
Memo1.Lines.Insert(0,s);
Memo1.SetFocus;
Memo1.SelStart := Length(s);
Memo1.SelLength := 0;
end;
мне даётся этот код, и с помощью него я должен в memo вывести дату и время
|
Целиком вставь его в FormShow, а onChange убери:
Код:
procedure TForm1.FormShow(Sender: TObject);
var s : string;
begin
s := DateToStr( Date ) + ' - ' + TimeToStr(Time);
Memo1.Lines.Add(s);
Memo1.SetFocus;
Memo1.SelStart := Length(s);
Memo1.SelLength := 0;
end;