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

Выпуск № 868
от 15.07.2007, 02:05

Вопрос № 94.427

Здравствуйте! У возникла такая проблемка: мне нужно выполнить действие по прохождению определенного промежутка времени(я его задаю отдельно в минутах),но код таймера обратного отчета получается каким-то корявым хоть и работает:) подскажите, если кто нить делал что похожее каким способом можно организовать этот таймер. заранее спасибо!

Отправлен: 09.07.2007, 07:28 Вопрос задал: Stari (статус: Посетитель) Всего ответов: 3 Мини-форум вопроса >>> (сообщений: 11)

Отвечает: Coupler Здравствуйте, Stari! А зачем делать что-то свое? Есть же стандартный компонент TTimer с закладки System. В свойсте interval задается время в миллисекундах, а событие OnTimer происходит при срабатывании счетчика. Пример использования в приложении. Приложение: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls; type TForm1 = class(TForm) Timer1: TTimer; Edit1: TEdit; Button1: TButton; procedure Timer1Timer(Sender: TObject); procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Timer1Timer(Sender: TObject); begin showmessage ('Timer'); timer1.Enabled:=false; end; procedure TForm1.Button1Click(Sender: TObject); begin timer1.Interval:=strtoint (edit1.Text)*1000*60; timer1.Enabled:=true; end; end.

Ответ отправил: Coupler (статус: Практикант) Ответ отправлен: 09.07.2007, 07:37

Отвечает: Фадеев Юрий Здравствуйте, Stari! Воспользуйтесь TTimer там в параметре interval нужно задать времья, через которое будет віполнятся действие (1секунда=значению 1000), а уже на собітие onTimer пишеш свой код.

Ответ отправил: Фадеев Юрий (статус: 2-ой класс) Ответ отправлен: 09.07.2007, 09:11 Оценка за ответ: 3 Комментарий оценки: в вопросе указано что код на таймере у меня работает и я знаю как с ним обращаться

Отвечает: Louken Здравствуйте, Stari! Тип TDateTime - это обычное вещественное число, его можно сравнивать и выполнять над ними любые (ну почти любые) арифметические операции. Если Вам нужно узнать разницу между двумя временами, то просто произведите вычитание. Приложение: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls; type TForm1 = class(TForm) Label1: TLabel; Edit1: TEdit; Button1: TButton; Timer1: TTimer; procedure Button1Click(Sender: TObject); procedure Timer1Timer(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; TimeEnd: TDateTime; implementation //Сдесь объявлен юнит, в котором находятся много разных методов для работы с датой и временем. uses DateUtils; {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var k: integer; begin //Первый вариант, когда Вы указываете, через сколько минут Ваш таймер должен сработать: k:=strtoint(Edit1.Text); TimeEnd:=IncMinute(Now, k); //Второй вариант, когда Вы указываете, восколько Ваш таймер должен сработать { TimeEnd:=StrToTime(Edit1.Text); TimeEnd:=TimeEnd+Date; //Если время срабатывания меньше текущего времени, то значит указанное время, является временем следующего дня if TimeEnd<Now then TimeEnd:=IncDay(TimeEnd);} //Включаем таймер Timer1.Enabled:=true; end; procedure TForm1.Timer1Timer(Sender: TObject); begin //Выводим сколько осталось времени до срабатывания таймера Label1.Caption:=TimeToStr(TimeEnd-Time); //Сравниваем два времени if Now>=TimeEnd then begin Timer1.Enabled:=false; ShowMessage(''); end; end; end.

Ответ отправил: Louken (статус: 10-ый класс) Ответ отправлен: 09.07.2007, 21:25

Вопрос № 94.431

Здравствуйте уважаемые эксперты! В одной из таблиц моей БД имеется поле с логическим типом данных (истина, ложь), мне нужно, чтобы при нажатии кнопки удалялись строки из таблицы, в которых значения данного столбца равны ложь. Заранее, всем спасибо!

Отправлен: 09.07.2007, 08:04 Вопрос задал: Киселев Сергей Николаевич (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: LanK Здравствуйте, Киселев Сергей Николаевич! Ничего сложного, вопрос только по нажатию какой кнопки? И действительно какая база данных? Например в MSSQL я не нашел такого поля :). А в MySQL пример в приложении. Запрос помещается в компонент TQuery. Приложение: --неправильная таблица ... CREATE TABLE `tempForRusfaq` ( `mk` INT NOT NULL, `boo` BOOL ) --правильная таблица ... CREATE TABLE `tempForRusfaq` ( `mk` INT NOT NULL, `boo` BOOL <b>NOT NULL</b> ) --вставляем данные в неправильную таблицу INSERT INTO tempForRusfaq VALUES(1, true); INSERT INTO tempForRusfaq VALUES(2, true); INSERT INTO tempForRusfaq VALUES(3, true); INSERT INTO tempForRusfaq VALUES(4, false); INSERT INTO tempForRusfaq VALUES(5); --делаем различные выборки SELECT count(*) FROM tempForRusfaq where boo = true; SELECT count(*) FROM tempForRusfaq where boo = false; --если таблица неправильная то для надежности добавляем проверку SELECT count(*) FROM tempForRusfaq where (boo = true) and <b>(boo is not null)</b>; SELECT count(*) FROM tempForRusfaq where (boo = false) and <b>(boo is not null)</b>; --удаляем из правильной таблицы данные DELETE FROM tempForRusfaq where boo = false; --смотрим результат SELECT count(*) FROM tempForRusfaq where boo = false; --------- Пусть все будет хорошо! Давайте жить дружно! :) И будет жить еще лучше!

Ответ отправил: LanK (статус: Студент) Ответ отправлен: 09.07.2007, 13:28

Вопрос № 94.447

Здравствуйте! Скажите пожалуйста, где можно достать картинки, которые используются на панели инструментов в Delphi, для обозначения VCL oбъектов. Заранее спасибо.

Отправлен: 09.07.2007, 10:54 Вопрос задал: _porodox_ (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 3)

Отвечает: Gladiator Здравствуйте, _porodox_! Файлы *.bpl в папке C:Program FilesBorlandDelphi*Bin. Открываешь любой из них программой, умеющей извлекать ресурсы и находишь ресурс типа Bitmap.

Ответ отправил: Gladiator (статус: 10-ый класс) Ответ отправлен: 10.07.2007, 09:28

Вопрос № 94.451

Здравствуйте, уважаемые Эксперты! Возник еще один вопрос :). Кто нибудь писал функцию подсчета рабочих дней в текущем месяце? Вариант 1: Кол-во раб. дней в текущем месяце минус сб, вс. Вариант 2: Кол-во раб. дней в текущем месяце минус сб, вс и минус "стандартные" праздники Н.Г., конституции, 8 марта... ? Дайте пожалуйста код. Спасибо.

Отправлен: 09.07.2007, 11:15 Вопрос задал: LanK (статус: Студент) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 16)

Отвечает: Проходящий Мимо Здравствуйте, LanK! В приложении код, который подсчитывает количество рабочих дней между двумя датами по способу №1. Во втором способе нужно иметь массив праздничных дней, притом, в законодавстве моей страны, если праздничный день попадает на выходные, то они (то есть выходные) переносятся на рабочие дни. Задача требует некоторых размышлений. Приложение: function WorkDayCount(DateFirst, DateLast: TDateTime): Integer; var i: integer; AllDays: word; begin AllDays := DateTimeToTimeStamp(DateLast).Date - DateTimeToTimeStamp(DateFirst).Date + 1; Result := AllDays; for i := 0 to AllDays - 1 do begin if DayOfWeek(DateFirst + i) - 1 in [6, 0] then Result := Result - 1; end; end; --------- Carpe diem!

Ответ отправил: Проходящий Мимо (статус: 9-ый класс) Ответ отправлен: 09.07.2007, 11:48 Оценка за ответ: 5 Комментарий оценки: Огромное спасибо! Жаль, конечно, нет праздников, но в остальном работает отлично. P.S. Вопрос еще не закрыт - может у кого нибудь есть и с праздниками? P.P.S. Еще раз спасибо Проходящий Мимо за рабочий вариант1!

Вопрос № 94.458

Уважаемые эксперты помогите еще одной проблеме, у меня есть допустим 30 слов в memo как сделать чтобы каждое слово начиналось с новой строки, спасибо.

Отправлен: 09.07.2007, 11:54 Вопрос задала: Ирина Горбунова (статус: Посетитель) Всего ответов: 3 Мини-форум вопроса >>> (сообщений: 3)

Отвечает: Denisss Здравствуйте, Ирина Горбунова! См. пример в приложении. В примере слова отделяются друг от друга пробелами, но можно сделать и другими символами, либо набором символов (например, добавить константу типа Set of Char с набором символов - признаков окончания слова, - и проверять не (fText^ = ' '), а (fText^ in setofchar)). Удачи! Приложение: procedure TForm1.Button3Click(Sender: TObject); var fText, fRemText: PChar; NewText: TStringList; NewString: String; begin // Получаем текст из Мемо1 fText:= Memo1.Lines.GetText; // Запоминаем позицию первого символа fRemText:= fText; NewText:= TStringList.Create; try // Цикл. Производится, пока не встретим нулевой // символ (признак конца текста) while (fText^ > #0) do begin // Обнаружили пробел if (fText^ = ' ') then // Предыдущий символ не был пробелом if not ((fText - 1)^ = ' ') then begin // Копируем текст в переменную NewString NewString:= Trim(Copy(fRemText, 0, Integer(fText - fRemText))); // Добавляем новую строку NewText.Add(NewString); // Запоминаем позицию (чтобы не брать с собой пробел, берем следующий символ) fRemText:= fText + 1; end else // Если предыдущий символ - пробел и этот символ - тоже, // Запоминаем следующий символ как начало слова fRemText:= fText + 1; // Переходим к следующему символу inc(fText); end; // Копируем слово NewString:= Trim(Copy(fRemText, 0, Integer(fText - fRemText))); // Добавляем NewText.Add(NewString); // Копируем содержимое NewText в Мемо Memo1.Lines.SetText(NewText.GetText); finally // Освобождаем объект NewText, т.к. он нам больше // не нужен NewText.Free; end; end;

Ответ отправил: Denisss (статус: Профессионал) Россия, Москва WWW: Хлама много, по сути ничего... ---- Ответ отправлен: 09.07.2007, 13:02

Отвечает: Sandy Здравствуйте, Ирина Горбунова! В дополнение к ответу Denisss, но с учётом того что в TMemo может быть несколько строк. Приложение: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Memo1: TMemo; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var m:TStringList; c,s:string; r,p,i:integer; begin r:=mrCancel; try try m:=TStringList.Create; for i:=0 to Memo1.Lines.Count-1 do begin s:=Memo1.Lines[i]; p:=Pos(' ', s); while (Length(s)>0) do begin if p=0 then begin m.Add(s); p:=Length(s); end else begin c:=Copy(s, 1, p-1); if c<>'' then m.Add(c); end; Delete(s,1,p); p:=Pos(' ', s); end; end; except r:=MessageDlg('Ошибка', mtError, [mbOK], 0); end; finally if r=mrCancel then begin Memo1.Lines.Clear; Memo1.Lines.Assign(m); m.Free; end; end; end; end.

Ответ отправил: Sandy (статус: 7-ой класс) Ответ отправлен: 09.07.2007, 13:28

Отвечает: Примак Руслан Николаевич Здравствуйте, Ирина Горбунова! Повесьте на кнопку Memo1.Lines.Text := StringReplace(Memo1.Lines.Text, ' ', #13, [rfReplaceAll, rfIgnoreCase]); Можете повторить эту замену для каждого символа, разделяющего слова.

Ответ отправил: Примак Руслан Николаевич (статус: 3-ий класс) Ответ отправлен: 09.07.2007, 14:29

Вопрос № 94.505

Доброго времени суток. Помогите, пожалуста, с такой проблемой. Есть функция (не моя и с автором по определенным причинам связи нет), которая якобы возвращает ссылку(pointer) на TStringList.Мне необходимо добавить к нему несколько строк.Вопрос в том как по указателю получить TStringList. Заранее прошу прощение за бредовость вопроса, либо тут что то не так, либо я торможу.

Отправлен: 09.07.2007, 17:51 Вопрос задал: Игорь (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 7)

Отвечает: Sandy Здравствуйте, Игорь! Просто сделайте преобразование типов: TStringList(НеВашаФункция).Add('Некоторая строка'); Только учтите, что эта конструкция не может проверить возвращает ли "НеВашаФункция" действительно ссылку, или "мусор". Для безопасности сделайте обрамление try..except..

Ответ отправил: Sandy (статус: 7-ой класс) Ответ отправлен: 09.07.2007, 18:10

Отвечает: Дмитрий С. Здравствуйте, Игорь! Добавление строк к объекту TStringList можно попробовать сотворить наступным образом (подобно ЛистБокс): StringList1.Items.Add('добавляемая_строка'); Ответ неверный, поскольку у типа Pointer нет никаких свойств Items (читайте вопрос внимательнее - дан не класс TStringList, а тип Pointer, ссылающийся на элемент этого класса). [Denisss] --------- Наши программисты самые программистые программисты!..

Ответ отправил: Дмитрий С. (статус: 2-ой класс) Ответ отправлен: 09.07.2007, 18:39

Вопрос № 94.537

Здравствуйте уважаемые эксперты, подскажите пожалуйсто какой нибудь компонент наподобии кнопки пуск в Vista, т.е. при наведении мыши на кнопку и при щелчке она меняла свое изображение, или как это возможно сделать стандартными компонентами. Спасибо.

Отправлен: 10.07.2007, 01:01 Вопрос задал: Глеб (статус: Посетитель) Всего ответов: 3 Мини-форум вопроса >>> (сообщений: 2)

Отвечает: Coupler Здравствуйте, Глеб! Это можно выполнить с помощью TImage, создав на основе его новый компонент, обрабатывающий события на MouseEnter - когда событие мыши входит в пределы визуального компонента и MouseLeave - когда событие мыши оставляет его пределы (посмотрите статью в delphiworld. А затем устанавливать нужные изображения. Пример с новым компонентом - в прикрепленном файле (delphi 6). Приложение: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, bsImage; type TForm1 = class(TForm) Image1: TbsImage; procedure FormCreate(Sender: TObject); procedure Image1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); procedure Image1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); procedure Image1MouseLeave(Sender: TObject); procedure Image1MouseEnter(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; MUp, MDown, MIn: TPicture; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); begin MUp:=TPicture.Create; MUp.LoadFromFile('up.bmp'); MDown:=TPicture.Create; MDown.LoadFromFile('down.bmp'); MIn:=TPicture.Create; MIn.LoadFromFile('in.bmp'); image1.Picture:=MUp; end; procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin image1.Picture := MDown; end; procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin image1.Picture := MIn; end; procedure TForm1.Image1MouseLeave(Sender: TObject); begin image1.Picture := MUp; end; procedure TForm1.Image1MouseEnter(Sender: TObject); begin image1.Picture := MIn; end; end. Прикреплённый файл: Загрузить >> Срок хранения файла на сервере RusFAQ.ru составляет 30 суток с момента отправки ответа.

Ответ отправил: Coupler (статус: Практикант) Ответ отправлен: 10.07.2007, 05:32

Отвечает: W@NDeReR Здравствуйте, Глеб! Поставте на форму объект SpeedButton с вкладки Additional Загружаете картинку св-во Glyph (например norm.bmp) Остальной код смотрите в приложении. Приложение: //Теперь при наведении мыши меняем картинку (move.bmp) метод OnMouseMove для SpeedButton: procedure TForm1.SpeedButton1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin SpeedButton1.Glyph.LoadFromFile('move.bmp'); end; //метод OnMouseMove для Формы(это сделано для того чтобы когда мыши нет на кнопке картинка //менялась на norm.bmp): procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin SpeedButton1.Glyph.LoadFromFile('norm.bmp'); end; //Теперь при шелчке на кнопку св-во OnMouseDown картинка изменяеться а при отпускании //onMouseUp меняеться на norm.bmp: procedure TForm1.SpeedButton1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin SpeedButton1.Glyph.LoadFromFile('Click.bmp'); end; procedure TForm1.SpeedButton1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin SpeedButton1.Glyph.LoadFromFile('norm.bmp'); end; --------- Опыт — дитя мысли, а мысль — дитя действия. Нельзя учиться по книгам.

Ответ отправил: W@NDeReR (статус: 5-ый класс) Ответ отправлен: 10.07.2007, 14:52

Отвечает: Дмитрий С. Здравствуйте, Глеб! Мне кажется, что такое дело можно сотворить с любой кнопкой, просто обрабатывая событие OnClick или OnMouseMove и т.п. --------- Наши программисты самые программистые программисты!..

Ответ отправил: Дмитрий С. (статус: 2-ой класс) Ответ отправлен: 14.07.2007, 16:06

© 2001-2007, Портал RusFAQ.ru, Россия, Москва. Авторское право: ООО "Мастер-Эксперт Про" Email: support@rusfaq.ru, тел.: +7 (926) 535-23-31 Хостинг: "Московский хостер" Поддержка: "Московский дизайнер" Авторские права | Реклама на портале Версия системы: 4.53 beta от 09.07.2007
RusFAQ.ru | MosHoster.ru | MosDesigner.ru | RusIRC.ru Kalashnikoff.ru | RadioLeader.ru | RusFUCK.ru