Я пытаюсь вывести информацию в формы 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
Пожалуйста помогите!!!