Ошибка при обращении к Label при запуске приложения

@Radamant · Регистрация: 13.11.2013

Author24 — интернет-сервис помощи студентам

Ошибка в строке Form1.Label1.Caption:=DateToStr(today);

Ошибка при обращении к Label при запуске приложения

Помогите исправить ошибку

Delphi

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
Var
today: TDateTime;
 
begin
today:=Now;
Form1.Label1.Caption:=DateToStr(today);
 
 
end.

@JIeIIIa · 17.01.2015, 18:33

В событие OnCreate формы перенесите это:

Delphi

1	Form1.Label1.Caption:=DateToStr(today);

@Radamant · 17.01.2015, 19:24 **[ТС]**

Спасибо, помогло!

@Radamant 0 / 0 / 0 Регистрация: 13.11.2013 Сообщений: 34
	17.01.2015, 19:24 [ТС]	3
	Спасибо, помогло! 0