ReSQL.ru
     
powered by simpleCommunicator - 2.0.59     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Вызов функции - Процедурой на таймере
17 сообщений из 17, страница 1 из 1
Вызов функции - Процедурой на таймере
    #40071777
alex_od_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alex_od_
Участник
Привет парни... Похожая тема уже решалась десяток лет назад ... и все равно грабли есть но уже другие..)))
Подскажите где косяк...


Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
function PeriodTime(const AFrom, ATo: TTime): Boolean;
var
  LFrom: TTime;
  LTo: TTime;
  LNow: TTime;
begin
  LFrom := Frac(AFrom);
  LTo := Frac(ATo);
  LNow := Frac(Now);
 if LFrom < LTo then begin
   Result := (LFrom <= LNow) and (LNow <= LTo);
   end else begin
   Result := (LFrom <= LNow) or (LNow <= LTo);
   end;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
   if PeriodTime then begin   // вываливается ошибка [Error] Unit1.pas(52): Not enough actual parameters
     LabelTime.Caption := 'Панель Включена';
  end else begin
     LabelTime.Caption := 'Панель Отключена';
  end;
end;
...
Рейтинг: 0 / 0
20.05.2021, 21:51
| Ответить | Цитировать | Написать  
Вызов функции - Процедурой на таймере
    #40071779
Фотография Victor Cookin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Victor Cookin
Участник
alex_od_,

А там написано англиским по белому - не хватает параметров. В вашей функции PeriodTime 2 параметра, а Вы не передаёте ни одного.
...
Рейтинг: 0 / 0
20.05.2021, 21:55
| Ответить | Цитировать | Написать  
Вызов функции - Процедурой на таймере
    #40071780
rgreat
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
rgreat
Участник
Хех.

if PeriodTime then begin

Где параметры времени передаваемые в функцию PeriodTime ?
...
Рейтинг: 0 / 0
20.05.2021, 21:55
| Ответить | Цитировать | Написать  
Вызов функции - Процедурой на таймере
    #40071783
alex_od_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alex_od_
Участник
с параметрами тоже самое... прикрутил дататаймпицкеры

Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
function PeriodTime(const AFrom, ATo: TTime): Boolean;
var
  LFrom: TTime;
  LTo: TTime;
  LNow: TTime;
begin
  LFrom := Frac(AFrom);
  Form1.dtpStart.Time := LFrom;
  LTo := Frac(ATo);
  Form1.dtpEnd.Time := LTo;
  LNow := Frac(Now);
  Form1.dtpNow.Time := LNow;
  if LFrom < LTo then begin
   Result := (LFrom <= LNow) and (LNow <= LTo);
   end else begin
   Result := (LFrom <= LNow) or (LNow <= LTo);
   end;
end;
...
Рейтинг: 0 / 0
20.05.2021, 22:12
| Ответить | Цитировать | Написать  
Вызов функции - Процедурой на таймере
    #40071787
Фотография Victor Cookin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Victor Cookin
Участник
alex_od_,

Timer1Timer где? На него ж ругань была
...
Рейтинг: 0 / 0
20.05.2021, 22:15
| Ответить | Цитировать | Написать  
Вызов функции - Процедурой на таймере
    #40071788
rgreat
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
rgreat
Участник
Victor Cookin,

Чет сегодня день богатый на странные топики.

...
Рейтинг: 0 / 0
20.05.2021, 22:18
| Ответить | Цитировать | Написать  
Вызов функции - Процедурой на таймере
    #40071789
alex_od_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alex_od_
Участник
Victor Cookin,

так вот он

Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
procedure TForm1.Timer1Timer(Sender: TObject);
begin
   if PeriodTime then begin
     LabelTime.Caption := 'Панель Включена';
  end else begin
     LabelTime.Caption := 'Панель Отключена';
  end;
end;
...
Рейтинг: 0 / 0
20.05.2021, 22:22
| Ответить | Цитировать | Написать  
Вызов функции - Процедурой на таймере
    #40071790
alex_od_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alex_od_
Участник
rgreat,

Магнитные бури... сам себе удивляюсь
...
Рейтинг: 0 / 0
20.05.2021, 22:23
| Ответить | Цитировать | Написать  
Вызов функции - Процедурой на таймере
    #40071791
alex_od_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alex_od_
Участник
alex_od_
Victor Cookin,

так вот он

Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
procedure TForm1.Timer1Timer(Sender: TObject);
begin
   if PeriodTime then begin
     LabelTime.Caption := 'Панель Включена';
  end else begin
     LabelTime.Caption := 'Панель Отключена';
  end;
end;

...
Рейтинг: 0 / 0
20.05.2021, 22:24
| Ответить | Цитировать | Написать  
Вызов функции - Процедурой на таймере
    #40071793
Фотография defecator
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
defecatorПривилегированный пользователь
Модератор форума
alex_od_
alex_od_
Victor Cookin,

так вот он

Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
procedure TForm1.Timer1Timer(Sender: TObject);
begin
   if PeriodTime then begin
     LabelTime.Caption := 'Панель Включена';
  end else begin
     LabelTime.Caption := 'Панель Отключена';
  end;
end;



прости, но ты тупой

Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
procedure TForm1.Timer1Timer(Sender: TObject);
begin
   if PeriodTime(начало периода, конец периода) then begin
     LabelTime.Caption := 'Панель Включена';
  end else begin
     LabelTime.Caption := 'Панель Отключена';
  end;
end;
...
Рейтинг: 0 / 0
20.05.2021, 22:29
| Ответить | Цитировать | Написать  
Вызов функции - Процедурой на таймере
    #40071795
alex_od_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alex_od_
Участник
defecator
alex_od_
пропущено...

прости, но ты тупой

Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
procedure TForm1.Timer1Timer(Sender: TObject);
begin
   if PeriodTime(начало периода, конец периода) then begin
     LabelTime.Caption := 'Панель Включена';
  end else begin
     LabelTime.Caption := 'Панель Отключена';
  end;
end;



Согласен, ступил.... Спасибо Огромное и Удачи Вам...

Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
procedure TForm1.Timer1Timer(Sender: TObject);
begin
   if PeriodTime(dtpStart.Time, Form1.dtpEnd.Time) then begin
     LabelTime.Caption := 'Панель Включена';
  end else begin
     LabelTime.Caption := 'Панель Отключена';
  end;
end;
...
Рейтинг: 0 / 0
20.05.2021, 22:42
| Ответить | Цитировать | Написать  
Вызов функции - Процедурой на таймере
    #40071796
YuRock
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
YuRock
Участник
defecator
alex_od_
пропущено...

прости, но ты тупой

Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
procedure TForm1.Timer1Timer(Sender: TObject);
begin
   if PeriodTime(начало периода, конец периода) then begin
     LabelTime.Caption := 'Панель Включена';
  end else begin
     LabelTime.Caption := 'Панель Отключена';
  end;
end;

Так тоже не компилится.
[Error] Unit1.pas(263): Illegal character in input file: 'í' ($ED)
...
Рейтинг: 0 / 0
20.05.2021, 22:45
| Ответить | Цитировать | Написать  
Вызов функции - Процедурой на таймере
    #40071797
alex_od_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alex_od_
Участник
YuRock
defecator
пропущено...

прости, но ты тупой

Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
procedure TForm1.Timer1Timer(Sender: TObject);
begin
   if PeriodTime(начало периода, конец периода) then begin
     LabelTime.Caption := 'Панель Включена';
  end else begin
     LabelTime.Caption := 'Панель Отключена';
  end;
end;

Так тоже не компилится.
[Error] Unit1.pas(263): Illegal character in input file: 'í' ($ED)


Все работает, Вот код... Всем еще раз Спасибо...

Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DateUtils, ComCtrls, ExtCtrls, StdCtrls, Buttons;

type
  TForm1 = class(TForm)
    dtpStart: TDateTimePicker;
    dtpEnd: TDateTimePicker;
    Timer1: TTimer;
    LabelTime: TLabel;
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

function PeriodTime(const AFrom, ATo: TTime): Boolean;
var
  LFrom: TTime;
  LTo: TTime;
  LNow: TTime;
begin
  LFrom := Frac(AFrom);
  LTo := Frac(ATo);
  LNow := Frac(Now);
  if LFrom < LTo then begin
   Result := (LFrom <= LNow) and (LNow <= LTo);
   end else begin
   Result := (LFrom <= LNow) or (LNow <= LTo);
   end;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
   if PeriodTime(dtpStart.Time, dtpEnd.Time) then begin
     LabelTime.Caption := 'Панель Включена';
  end else begin
     LabelTime.Caption := 'Панель Отключена';
  end;
end;


end.
...
Рейтинг: 0 / 0
20.05.2021, 22:56
| Ответить | Цитировать | Написать  
Вызов функции - Процедурой на таймере
    #40071806
ъъъъъ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ъъъъъ
Гость
rgreat
Victor Cookin,

Чет сегодня день богатый на странные топики.



Товарищ вчера код показал: меняет побайтно файл и всякий раз проверяет, как изменится CRC. Ну, исследует.
Меняет всякий раз на значение 0x01h. "А если там уже была единичка?" - спрашиваю. "Какая разница. Я же внес значение, значит, изменил файл."
...
Рейтинг: 0 / 0
21.05.2021, 00:31
| Ответить | Цитировать | Написать  
Вызов функции - Процедурой на таймере
    #40071816
white_nigger
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
white_nigger
Участник
ъъъъъ
Товарищ вчера код показал: меняет побайтно файл и всякий раз проверяет, как изменится CRC. Ну, исследует.
А чего он хочет добиться? По стандартным crc всё давно расписано, а алгоритм самопального расчета, он хрен так восстановит
...
Рейтинг: 0 / 0
21.05.2021, 01:42
| Ответить | Цитировать | Написать  
Вызов функции - Процедурой на таймере
    #40071824
ъъъъъ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ъъъъъ
Гость
white_nigger
А чего он хочет добиться?

Выяснить, какие области структуры можно менять, чтобы приложение, эсплуатирующее файлы такой структуры, не [сразу] заметило изменения.
...
Рейтинг: 0 / 0
21.05.2021, 02:35
| Ответить | Цитировать | Написать  
Вызов функции - Процедурой на таймере
    #40071829
white_nigger
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
white_nigger
Участник
ъъъъъ
Выяснить, какие области структуры можно менять, чтобы приложение, эсплуатирующее файлы такой структуры, не [сразу] заметило изменения.
Аааа... очередной кулхацкер))
...
Рейтинг: 0 / 0
21.05.2021, 03:15
| Ответить | Цитировать | Написать  
17 сообщений из 17, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Вызов функции - Процедурой на таймере
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]