Модераторы: Snowy, MetalFan, bems, Poseidon

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> часы в заголовок, Вывести Текущуюю время и дату в заголово 
:(
    Опции темы
semas
  Дата 31.7.2007, 13:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 10
Регистрация: 31.7.2007

Репутация: нет
Всего: нет
Как можно вывести в текущую время и дату в заголовок окна? 
так чтоб оно постоянно обновлялось 
PM MAIL   Вверх
dumb
Дата 31.7.2007, 13:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


sceloglauxalbifacies
****


Профиль
Группа: Экс. модератор
Сообщений: 2929
Регистрация: 16.6.2006

Репутация: 3
Всего: 158
кидаешь на форму Timer с закладки System. дабл-клик по нему. и пишешь:
Код

procedure TForm1.Timer1Timer(Sender: TObject);
const
{$J+}
  OrgCaption: String = '';
begin
  if OrgCaption = '' then OrgCaption := Caption;
  Caption := OrgCaption + ' - Now ' + FormatDateTime('hh:nn:ss', Now);
end;
PM MAIL   Вверх
Yanis
Дата 31.7.2007, 14:07 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

Репутация: 6
Всего: 111
Цитата(dumb @  31.7.2007,  14:37 Найти цитируемый пост)
{$J+}

А почему не просто var?


--------------------
user posted image *щёлк*
PM MAIL WWW ICQ   Вверх
dumb
Дата 31.7.2007, 14:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


sceloglauxalbifacies
****


Профиль
Группа: Экс. модератор
Сообщений: 2929
Регистрация: 16.6.2006

Репутация: 3
Всего: 158
Цитата(Yanis @  31.7.2007,  14:07 Найти цитируемый пост)
А почему не просто var?

так это... а как ты в локальной переменной сохранишь начальное значение Caption?
PM MAIL   Вверх
W1zArD
Дата 31.7.2007, 20:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 285
Регистрация: 29.1.2006

Репутация: нет
Всего: 3
не проще-ли будет...  smile 

в таймере

Код

Caption:=Format('%s', DateTimeToStr(now)); 


Это сообщение отредактировал(а) Alexeis - 1.8.2007, 00:31
PM   Вверх
TForumUser
Дата 31.7.2007, 21:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 110
Регистрация: 7.7.2007

Репутация: 0
Всего: 0
There is no overloaded version of 'format' that can be called with these arguments

Это сообщение отредактировал(а) TForumUser - 31.7.2007, 21:25
--------------------
Экономте электроэнергию! Выключайте Num Lock!
PM MAIL ICQ   Вверх
W1zArD
Дата 1.8.2007, 01:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 285
Регистрация: 29.1.2006

Репутация: нет
Всего: 3
Код

Caption:=Format('%s', [DateTimeToStr(now)]); 
PM   Вверх
TForumUser
Дата 1.8.2007, 12:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 110
Регистрация: 7.7.2007

Репутация: 0
Всего: 0
В твоем случае оригинальное имя формы затирается и вместо него пишется текущая дата/время.
--------------------
Экономте электроэнергию! Выключайте Num Lock!
PM MAIL ICQ   Вверх
Guedda
Дата 1.8.2007, 13:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Подрывник
****


Профиль
Группа: Завсегдатай
Сообщений: 3137
Регистрация: 27.12.2005
Где: Ростов-на-Дону

Репутация: 1
Всего: 78
Цитата(TForumUser @  1.8.2007,  13:50 Найти цитируемый пост)
В твоем случае оригинальное имя формы затирается и вместо него пишется текущая дата/время.

Код

Caption:= Caption + Format('%s', [DateTimeToStr(now)]); 



--------------------
Ll 2
PM MAIL WWW ICQ Skype GTalk   Вверх
dumb
Дата 1.8.2007, 13:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


sceloglauxalbifacies
****


Профиль
Группа: Экс. модератор
Сообщений: 2929
Регистрация: 16.6.2006

Репутация: 3
Всего: 158
Guedda, так у тебя скоро станет очень-очень длинный заголовок... smile
PM MAIL   Вверх
Rennigth
Дата 1.8.2007, 14:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1708
Регистрация: 21.6.2004
Где: Moscow

Репутация: 15
Всего: 76
dumb, 
Код

const
{$J+}
  OrgCaption: String = '';

не знал о такой хитрости smile
Как я понял память под такую "переменную" резервируется один раз? а где? Если объект порушить память освободиться? Вообщем можно ли это использовать как static переменную? хотя врятли...

З.Ы. что это я? Ща проверим  smile 


--------------------
(* Honesta mors turpi vita potior *)
PM MAIL ICQ   Вверх
Rennigth
Дата 1.8.2007, 15:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1708
Регистрация: 21.6.2004
Где: Moscow

Репутация: 15
Всего: 76
Гы... можно вот так считать количество созданных объектов(хотя есть и другие способы...), но все же приятно smile
Код

unit Unit10;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Types;

type
  TForm10 = class(TForm)
    procedure FormCreate(Sender: TObject);
  end;

  TSomeObject = class(TObject)
  private
  {$J+}
  const
    C_ObjCount: Integer = 0;
  public
    constructor Create;
    destructor Destroy; override;

    class function ObjCount: Integer;
  end;

var
  Form10: TForm10;

implementation

{$R *.dfm}

procedure TForm10.FormCreate(Sender: TObject);
var
  i: Integer;
  lList: TList;
begin
  ShowMessage(IntToStr(TSomeObject.ObjCount));

  lList := TList.Create;
  try
    for i := 0 to 9 do
      lList.Add(TSomeObject.Create);

    ShowMessage(IntToStr(TSomeObject.ObjCount));

    for i := 0 to 9 do
      TObject(lList.Items[i]).Free;

    lList.Clear;
  finally
    lList.Free;
  end;

  ShowMessage(IntToStr(TSomeObject.ObjCount));
end;

{ TSomeObject }

constructor TSomeObject.Create;
begin
  Inc(C_ObjCount);
end;

destructor TSomeObject.Destroy;
begin
  Dec(C_ObjCount);
  inherited;
end;

class function TSomeObject.ObjCount: Integer;
begin
  Result := C_ObjCount;
end;

end.



--------------------
(* Honesta mors turpi vita potior *)
PM MAIL ICQ   Вверх
MetalFan
Дата 1.8.2007, 15:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Аццкий Сотона
****


Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 22
Всего: 128
Борланды не рекомендуют использовать такой способ
Цитата(BDS Help)
In early versions of Delphi and Borland Pascal, typed constants were always writeable, corresponding to the {$J+} state. Old source code that uses writeable typed constants must be compiled in the {$J+} state, but for new applications it is recommended that you use initialized variables and compile your code in the {$J-} state



--------------------
There are always someone smarter than you...
PM MAIL   Вверх
dumb
Дата 1.8.2007, 16:05 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


sceloglauxalbifacies
****


Профиль
Группа: Экс. модератор
Сообщений: 2929
Регистрация: 16.6.2006

Репутация: 3
Всего: 158
Цитата(MetalFan @  1.8.2007,  15:53 Найти цитируемый пост)
Борланды не рекомендуют использовать такой способ
я вот, кстати, видел этот нотайс, и не понял - они призывают просто забыть о такой удобной фишке и тупо пользоваться глобальными переменными или есть какая-то модная замена?
PM MAIL   Вверх
MetalFan
Дата 1.8.2007, 16:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Аццкий Сотона
****


Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 22
Всего: 128
Цитата(W1zArD @  1.8.2007,  01:40 Найти цитируемый пост)
    
Caption:=Format('%s', [DateTimeToStr(now)]); 

скажите, а на кой тут format? для "красоты"?

Добавлено через 43 секунды
Цитата(dumb @  1.8.2007,  16:05 Найти цитируемый пост)
они призывают просто забыть о такой удобной фишке

имхо константа на то и константа, чтобы не изменяться в ходе выполнения программы.


--------------------
There are always someone smarter than you...
PM MAIL   Вверх
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Для новичков"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Для новичков | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.2600 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.