RusFAQ.ru: Программирование на Delphi

/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Delphi

Выпуск № 321
от 11.12.2005, 17:36

Вопрос № 30.873

Подскажите как закодировать: чтобы при нажатии Button в Label записивалась дата и время из Windows

Отправлен: 06.12.2005, 02:05 Вопрос задала: Артемова Марина (статус: Посетитель) Всего ответов: 9 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Bochvarov NikB Здравствуйте, Артемова Марина! procedure tForm1.Button1OnClick(Sender...) begin Label1.Caption:=DateTimeToString(Now); end; Смотри и Date/time routines в Delphi/Help

Ответ отправил: Bochvarov NikB (статус: 4-ый класс) Отправлен: 06.12.2005, 02:53 Оценка за ответ: 5

Отвечает: sir henry Здравствуйте, Артемова Марина! Примерно вот так: Label1.Caption:=DateTimeToStr(Now); Если нужны дата и время по отдельности в своих составляющих (год, месяц, час, минуты и т.п.), то есть процедуры разбиения типа TDateTime на эти составляющие: procedure DecodeDate(Date: TDateTime; var Year, Month, Day: Word); procedure DecodeTime(Time: TDateTime; var Hour, Min, Sec, MSec: Word);

Ответ отправил: sir henry (статус: Академик) Отправлен: 06.12.2005, 04:39

Отвечает: Vbhjndjhtw Здравствуйте, Артемова Марина! Вот исходник. В событии таймера OnTimer выбери ButtonClick. P.S. Исходник работает под Delphi7 Приложение: unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TForm1 = class(TForm) Label1: TLabel; Timer1: TTimer; Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.DFM} procedure TForm1.Button1Click(Sender: TObject); begin Label1.Caption := FormatDateTime('hh:mm:ss',Time); // Label1.Caption := FormatDateTime('tt',Time); // Label1.Caption := FormatDateTime('hh ÷. mm ìèí. ss ñåê.',Time); // Label1.Caption := FormatDateTime('hh:mm:ss am/pm',Time); end; end. --------- Бороться и искать, найти и перепрятать!

Ответ отправил: Vbhjndjhtw (статус: 6-ой класс) Отправлен: 06.12.2005, 07:28

Отвечает: Архангельский Андрей Германович Здравствуйте, Артемова Марина! Label.caption := FormatDateTime('dd" "MMMM" "YYYY"г." HH:MM:ss:zzz',Now); Now - это специальная переменная, которая возвращает текущее время Format - это текстовая строка, которая описывает как его изобразить. См. Help для других вариантов

Ответ отправил: Архангельский Андрей Германович (статус: Студент) Отправлен: 06.12.2005, 10:25

Отвечает: Лучников Юрий Владимирович Здравствуйте, Артемова Марина! Код в приложении... Напишите его в обработчике OnClick кнопки. Объект Label1 должен быть на форме Надеюсь поможет;) Приложение: DateSeparator := '-'; ShortDateFormat := 'Сегодня: m/d/yyyy '; ShortTimeFormat := 'hh:mm:ss'; Label1.Caption := DateToStr(Date); Label1.Caption := Label1.Caption + TimeToStr(Time);

Ответ отправил: Лучников Юрий Владимирович (статус: 3-ий класс) Отправлен: 06.12.2005, 14:48

Отвечает: Vadim Vitomsky Здравствуйте, Артемова Марина! В Delphi есть функция Now : TDateTime, которая возвращает текущие дату и время. Все, что Вам необходимо - преобразовать их в строку в том формате, который Вам нужен. Для этого служат функции DateToStr и TimeToStr, а также ряд других, о которых можно узнать в стандартном хелпе.

Ответ отправил: Vadim Vitomsky (статус: 5-ый класс) Отправлен: 06.12.2005, 14:55

Отвечает: Golden Spider Здравствуйте, Артемова Марина! Попробуйте так Label1.Caption:='Текущее время: '+DateTimeToString(Now); --------- Знания ничто! Хорошие знания Всё!

Ответ отправил: Golden Spider (статус: 3-ий класс) Отправлен: 06.12.2005, 16:29

Отвечает: Denis Hakimov Здравствуйте, Артемова Марина! Используйте функцию преобразования даты в строку DateToStr(Date); Приложение: //обработчик нажатия кнопки procedure TForm1.Button1Click(Sender: TObject); begin Label1.Caption:=DateToStr(Now); end;

Ответ отправил: Denis Hakimov (статус: 5-ый класс) Отправлен: 06.12.2005, 20:40

Отвечает: Schmak Здравствуйте, Артемова Марина! Для определения текущего времени можно использовать переменнные Now - текущая дата и время Time - текущее время Date - текущая дата Для перевода даты в строку соответствующие функции DateToStr, TimeToStr, DateTimeToStr Решить Вашу задачу можно следующим образом: procedure TForm1.Button1Click(Sender: TObject); begin Label1.Caption:=DateTimeToStr(now) end; --------- Не всё то Windows, что висит!

Ответ отправил: Schmak (статус: Студент) Отправлен: 08.12.2005, 14:47

Вопрос № 30.916

Приветсвую! Что-то нет ответов на мои вопросы... Слишком сложные что-ли?? Или я такой вумный :(... попробую "простой" вопрос задать: Есть D5 и D7. Использую DBGrid - MultiSelect = True Но вот не получается, как в виндусе - щелкнул первую запись, нажал shift + щелкнул последнюю запись = выделились все записи между первой и второй. Как исправить или чего дописать в код? P.S. сторонние компоненты использовать низя.

Отправлен: 06.12.2005, 14:53 Вопрос задал: LanK (статус: 3-ий класс) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Лучников Юрий Владимирович Здравствуйте, LanK! Вам следует обратить на поле-множество компонента Options. В частности есть свойство dgMultiSelect которая разрешает множественное выделение;)

Ответ отправил: Лучников Юрий Владимирович (статус: 3-ий класс) Отправлен: 06.12.2005, 15:06

Отвечает: sir henry Здравствуйте, LanK! А я, если честно, первый раз об этом слышу. Решил проверить, может я чего пропустил, однако в VFP та же картина - так как Вы говорите, он не делает. Вы уверены в своем утверждении? Мультиселект работает стандартным для винды способом, т.е. если его включить, то нажимая одновременно шифт+стрелка, то выделяются все соедние поля. Если выключить, то не выделяются. А где, в какой проге Вы видели то, о чем Вы говорите?

Ответ отправил: sir henry (статус: Академик) Отправлен: 06.12.2005, 15:31

Вопрос № 30.921

Я хочу узнать структуру файла форматов MP3, AMR и WAV

Отправлен: 06.12.2005, 15:42 Вопрос задал: E.T.T (статус: Посетитель) Всего ответов: 3 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: sir henry Здравствуйте, E.T.T! www.yandex.ru или www.google.ru Набираете в строке запроса за три захода: - структура файла mp3 - структура файла amr - структура файла wav Вы интернетом умеете пользоваться?

Ответ отправил: sir henry (статус: Академик) Отправлен: 06.12.2005, 16:21

Отвечает: REFERI Здравствуйте, E.T.T! Смотрите в приложении... Удачи! Приложение: Формат mp3 файла { Byte 1-3 = ID 'TAG' Byte 4-33 = Titel / Title Byte 34-63 = Artist Byte 64-93 = Album Byte 94-97 = Jahr / Year Byte 98-127 = Kommentar / Comment Byte 128 = Genre } type TID3Tag = record ID: string[3]; Titel: string[30]; Artist: string[30]; Album: string[30]; Year: string[4]; Comment: string[30]; Genre: Byte; end; const Genres : array[0..146] of string = ('Blues','Classic Rock','Country','Dance','Disco','Funk','Grunge', 'Hip- Hop','Jazz','Metal','New Age','Oldies','Other','Pop','R&B', 'Rap','Reggae','Rock','Techno','Industrial','Alternative','Ska', 'Death Metal','Pranks','Soundtrack','Euro-Techno','Ambient', 'Trip-Hop','Vocal','Jazz+Funk','Fusion','Trance','Classical', 'Instrumental','Acid','House','Game','Sound Clip','Gospel','Noise', 'Alternative Rock','Bass','Punk','Space','Meditative','Instrumental Pop', 'Instrumental Rock','Ethnic','Gothic','Darkwave','Techno-Industrial','Electronic', 'Pop-Folk','Eurodance','Dream','Southern Rock','Comedy','Cult','Gangsta', 'Top 40','Christian Rap','Pop/Funk','Jungle','Native US','Cabaret','New Wave', 'Psychadelic','Rave','Showtunes','Trailer','Lo-Fi','Tribal','Acid Punk', 'Acid Jazz','Polka','Retro','Musical','Rock & Roll','Hard Rock','Folk', 'Folk-Rock','National Folk','Swing','Fast Fusion','Bebob','Latin','Revival', 'Celtic','Bluegrass','Avantgarde','Gothic Rock','Progressive Rock', 'Psychedelic Rock','Symphonic Rock','Slow Rock','Big Band','Chorus', 'Easy Listening','Acoustic','Humour','Speech','Chanson','Opera', 'Chamber Music','Sonata','Symphony','Booty Bass','Primus','Porn Groove', 'Satire','Slow Jam','Club','Tango','Samba','Folklore','Ballad', 'Power Ballad','Rhytmic Soul','Freestyle','Duet','Punk Rock','Drum Solo', 'Acapella','Euro-House','Dance Hall','Goa','Drum & Bass','Club-House', 'Hardcore','Terror','Indie','BritPop','Negerpunk','Polsk Punk','Beat', 'Christian Gangsta','Heavy Metal','Black Metal','Crossover','Contemporary C', 'Christian Rock','Merengue','Salsa','Thrash Metal','Anime','JPop','SynthPop'); Формат wave файла TWaveHeader = record Marker1: array[0..3] of Char; BytesFollowing: LongInt; Marker2: array[0..3] of Char; Marker3: array[0..3] of Char; Fixed1: LongInt; FormatTag: Word; Channels: Word; SampleRate: LongInt; BytesPerSecond: LongInt; BytesPerSample: Word; BitsPerSample: Word; Marker4: array[0..3] of Char; DataBytes: LongInt; end; Для создания собственного WAV-файла сделайте следующее: DataBytes := Channels; DataBytes := DataBytes * SampleRate; DataBytes := DataBytes * Resolution; DataBytes := DataBytes div 8; DataBytes := DataBytes * Duration; DataBytes := DataBytes div 1000; WaveHeader.Marker1 := 'RIFF'; WaveHeader.BytesFollowing := DataBytes + 36; WaveHeader.Marker2 := 'WAVE'; WaveHeader.Marker3 := 'fmt '; WaveHeader.Fixed1 := 16; WaveHeader.FormatTag := 1; WaveHeader.SampleRate := SampleRate; WaveHeader.Channels := Channels; WaveHeader.BytesPerSecond := Channels; WaveHeader.BytesPerSecond := WaveHeader.BytesPerSecond * SampleRate; WaveHeader.BytesPerSecond := WaveHeader.BytesPerSecond * Resolution; WaveHeader.BytesPerSecond := WaveHeader.BytesPerSecond div 8; WaveHeader.BytesPerSample := Channels * Resolution div 8; WaveHeader.BitsPerSample := Resolution; WaveHeader.Marker4 := 'data'; WaveHeader.DataBytes := DataBytes; Остальная часть файлы является звуковыми данными. Порядок следования: верхний уровень для левого канала, верхний уровень для правого канала и так далее. Для моно или 8-битных файлов сделайте соответствующие изменения. --------- Не судите, да не судимы будете...

Ответ отправил: REFERI (статус: Студент) Отправлен: 06.12.2005, 16:34

Отвечает: Vbhjndjhtw Здравствуйте, E.T.T! Смотри здесь http://www.delphimaster.ru/articles/mp3format/index.html --------- Бороться и искать, найти и перепрятать!

Ответ отправил: Vbhjndjhtw (статус: 6-ой класс) Отправлен: 07.12.2005, 07:05

Вопрос № 30.924

ой! А подскажите, пожалуйста еще!? Есть 2 формы f1 и f2. На них есть запросы f1.q1 и f2.q1. Из главной формы Main я создаю f1 или f2. Потом меняю запрос - SQL, Parametr и т.д. сложно очень строится сам текст запроса. Причем вся начинка (по действиям) одинаковая - мне нужно только менять оформление форм. Но нужно увы именно две формы. Как сделать что-то типа: if cb.Checked then Application.CreateForm(Tf1, f1) else Application.CreateForm(Tf2, f2); if cb.Checked then f1.q1.SQL.Text := 'cccc' else f2.q1.SQL.Text := 'cccc'; и так далее? Наверняка как то поумному можно сделать, а не вставлять 20 раз конструкцию if then? типа найти комопнент TQuery "забрать" на него ссылку и работать уже с ней? Помогите плиз! Спасибо.

Отправлен: 06.12.2005, 16:57 Вопрос задал: LanK (статус: 3-ий класс) Всего ответов: 5 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Архангельский Андрей Германович Здравствуйте, LanK! А кто мешает посадить Query на главную форму и работать с ним из любого количества форм? Непонятна твоя задача - и офрмление формы можно менять динамически, и к одному коннекту можно присобачить несколько Query с разными запросами. Если насчет 20 штук If сложно, то используй Case

Ответ отправил: Архангельский Андрей Германович (статус: Студент) Отправлен: 06.12.2005, 17:14

Отвечает: Полищук Владислав Игоревич Здравствуйте, LanK! Сделайте базовую форму для этих двух, потом var xForm:TBaseForm; begin if cb.Checked then xForm:=f1 else xForm:=f2; xForm:=q1.SQL.Text := 'cccc'; и т.д. Если что не понял - спрашивай. --------- Чтобы вчера не случилось, радуйся новому дню

Ответ отправил: Полищук Владислав Игоревич (статус: 2-ой класс) Отправлен: 06.12.2005, 17:28

Отвечает: Маренич Владимир Здравствуйте, LanK! Можно завести глобальную переменную и работать с ней: var glq: TQuery; Приложение: var glq: TQuery; ... f cb.Checked then begin Application.CreateForm(Tf1, f1) glq:=f1.q1; end else begin Application.CreateForm(Tf2, f2); glq:=f2.q1; end; .... glq.SQL.Text := 'cccc';

Ответ отправил: Маренич Владимир (статус: 9-ый класс) Отправлен: 06.12.2005, 17:29

Отвечает: sir henry Здравствуйте, LanK! Не вижу здесь ничего непонятного. Просто вместо двух IF используйте одно и ограничте группу функций скобками Begin .. End. У форм можно убрать видимость (Visible:=False) и открывать его в своей конструкции либо, если Вы не хотите создавать формы с самого начала, нужно в опциях проекта убрать их автосоздание. If cb.Checked Then begin f1.Visible:=True; f1.q1.SQL.Text:='ccc'; End Else Begin f2.Visible:=True; f2.q1.SQL.Text:='ccc'; End; Либо второй вариант, с созданием: If cb.Checked Then begin f1:=TForm1.Create(Self); f1.Show; f1.q1.SQL.Text:='ccc'; End Else Begin f2:=TForm2.Create(Self); f2.Show; f2.q1.SQL.Text:='ccc'; End; Правда у меня есть смутные подозрения, что Вы слишком заумно описали вопрос. Если я ответил не то, что Вы ожидали, то уточните его.

Ответ отправил: sir henry (статус: Академик) Отправлен: 06.12.2005, 17:33

Отвечает: Tsechoev Bagaudin Здравствуйте, LanK! Вообще в Делфи есть невидимая форма DataModule, все свои запросы кладешь туда. В юниты форм 1 и 2 подключаешь юнит DataModule. Все свои компоненты на формах увязываешь через DataSource с соответствующими компонентами Query. А формировать запрос можешь прямо при создании формы 1 или 2. Вот и все. --------- Есть только одно зло - невежество, и только одно благо - знания

Ответ отправил: Tsechoev Bagaudin (статус: Студент) Отправлен: 06.12.2005, 18:08

© 2001-2005, Портал RusFAQ.ru, Россия, Москва. Идея, дизайн, программирование: Калашников О.А. Email: adm@rusfaq.ru, Тел.: +7 (926) 535-23-31 Авторские права | Реклама на портале

hotlog_js="1.0"; hotlog_r=""+Math.random()+"&s=314124&im=101&r="+escape(document.referrer)+"&pg="+ escape(window.location.href); document.cookie="hotlog=1; path=/"; hotlog_r+="&c="+(document.cookie?"Y":"N"); hotlog_js="1.1";hotlog_r+="&j="+(navigator.javaEnabled()?"Y":"N") hotlog_js="1.2"; hotlog_r+="&wh="+screen.width+'x'+screen.height+"&px="+ (((navigator.appName.substring(0,3)=="Mic"))? screen.colorDepth:screen.pixelDepth) hotlog_js="1.3" hotlog_r+="&js="+hotlog_js; document.write("")

---

Subscribe.Ru Поддержка подписчиков Другие рассылки этой тематики Другие рассылки этого автора

Подписан адрес: Код этой рассылки: comp.soft.prog.delphiplus Архив рассылки

Отписаться Вспомнить пароль

---

В избранное