Показать сообщение отдельно
  #5  
Старый 01.07.2012, 11:54
dagi88 dagi88 вне форума
Прохожий
 
Регистрация: 01.07.2012
Сообщения: 5
Репутация: 10
По умолчанию

Цитата:
Сообщение от RusMaXXX
попробуй это:

Код:
procedure TForm1.Button1Click(Sender: TObject);
var
  ATime: TSystemTime;
begin
  with ATime do
  begin
    wYear := 1980;
    wMonth := 7;
    wDay := 12;
    wHour := 17;
    wMinute := 25;
    wSecond := 0;
    wMilliseconds := 0;
  end;
  SetLocalTime(ATime);
end;
этот код меняет все значения, а мне нужно чтобы менялся только год
Ответить с цитированием