[Dimon-zmey]

Я пытаюсь вывести информацию в формы Edit1 и Edit2. Я хочу отнять от значения записанного в реестре текущую дату и время, после чего вывести эту инфу.

Вот код который я написал:

Код:

procedure TForm1.FormActivate(Sender: TObject);
var
reg:TRegistry;

data : integer;
time : integer;
datadata : integer;
timetime : integer;

datacomp : integer;
timecomp : integer;
Begin

 reg:=TRegIniFile.Create;
 reg.RootKey:=HKEY_CURRENT_USER;
 reg.OpenKey('Software\Comp-OFF\Time', false);
 data:=StrToint(reg.ReadString('data-off'));
 time:=StrToint(reg.ReadString('time-off'));
 reg.CloseKey;
 reg.Free;

 datacomp := StrToint(FormatDateTime('yyyymmdd',now));
 timecomp := StrToint(FormatDateTime('hhmm',now));

 datadata := data - datacomp
 timetime := time - timecomp

 Edit1.Text :=  IntToStr(datadata);
 Edit2.Text :=  IntToStr(timetime);
end;

Admin: Пользуемся тегами!

Но он у меня не работает(((
Пишет, что ошибка в timetime := time - timecomp
Пожалуйста помогите!!!

[Asinkrit]

точки с запятой не хватает в обеих строках), да и в ошибке об этом говорится)

[Dimon-zmey]

Сообщение от Asinkrit

точки с запятой не хватает в обеих строках), да и в ошибке об этом говорится)

Спасибо большое за исправление!!! Все заработало!!!