Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Вызов функции - Процедурой на таймере / 17 сообщений из 17, страница 1 из 1
20.05.2021, 21:51
    #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:55
    #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, 22:12
    #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:15
    #40071787
Victor Cookin
Victor Cookin
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вызов функции - Процедурой на таймере
alex_od_,

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

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

...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.05.2021, 22:22
    #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:23
    #40071790
alex_od_
alex_od_
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вызов функции - Процедурой на таймере
rgreat,

Магнитные бури... сам себе удивляюсь
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.05.2021, 22:24
    #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:29
    #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:42
    #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:45
    #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:56
    #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
| Ответить | Цитировать | Написать  
21.05.2021, 00:31
    #40071806
ъъъъъ
ъъъъъ
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вызов функции - Процедурой на таймере
rgreat
Victor Cookin,

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



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

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


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