VPF::Pointer - Форум программистов

Basя

Дата 25.3.2003, 21:46 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Привет!

procedure Pro(i: Integer);
begin
i:= i + 1;
end;

.....
SetTimer(handle, 1, 1000, @Pro);
....

Как передать i в проседуру Pro?

Спасибо!

Step

Дата 25.3.2003, 21:54 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

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

Репутация: нет
Всего: 25

функция онтаймер

pro(значение или переменная)

SetTimer(handle, 1, 1000, nil);

--------------------

- Дурак учится на своих ошибках, умный на чужих.
- умные учатся у дураков

Nick Mitin

Дата 26.3.2003, 02:15 (ссылка)

(нет голосов)

Загрузка ...

Новичок

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

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

насколько я понимаю в вашем случае нужно сделать i глобальной переменной и не передавать ничего функции Pro.

Возможно я чего-то не понял, но если i - не глобальная переменная то функция Pro не имеет смысла.

<Spawn>

Дата 26.3.2003, 02:24 (ссылка)

(нет голосов)

Загрузка ...

Око кары:)

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

Репутация: 44
Всего: 64

i можно было бы использовать в качестве глобальной переменной, если бы процедура Pro не принимала этого параметра, а в этом случае, если я правильно помню, то глобальная переменная будет проигнорирована, так как совпадают названия переменных (глобальной и для функции).
i Передать в Pro довольно просто:

var
NewI:integer;

begin
NewI:=1;
Pro(NewI);
end;
что бы у этой процедуры был смысл нужно передать переменную по ссылке, то есть Pro(var i:integer)

Это сообщение отредактировал(а) <Spawn> - 26.3.2003, 02:25

--------------------

"Для некоторых людей программирование является такой же внутренней потребностью, подобно тому, как коровы дают молоко, или писатели стремятся писать" - Николай Безруков.

Nick Mitin

Дата 26.3.2003, 02:37 (ссылка)

(нет голосов)

Загрузка ...

Новичок

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

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

Вот примерный код того, что вам нужно. Есть форма с кнопкой. Кнопка включает и выключает таймер

Код



var
  Form1: TForm1;
  FTimerHandle: THandle = 0;
  I: Integer = 0;
  FEnable: Boolean = False;

implementation

[i]{$R *.dfm}[/i]

procedure MyTimerProc(AHandle: THandle; AMessage: Cardinal; AEventID: Cardinal; ATime: Cardinal); stdcall;
begin
  Inc(I);
end;

function ToggleTimer(AEnable: Boolean; AHandle: THandle = 0; AEventID: Cardinal = 0; AInterval: Cardinal = 1000; ATimerProc: Pointer = nil): Cardinal;
begin
  if FTimerHandle <> 0 then
    KillTimer(FTimerHandle, AEventID);
  if AEnable then
    FTimerHandle := SetTimer(AHandle, AEventID, AInterval, ATimerProc);
  Result := FTimerHandle;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  FEnable := not FEnable;
  ToggleTimer(FEnable, Handle, 1, 10000, @MyTimerProc);
end;

Nick Mitin

Дата 26.3.2003, 02:39 (ссылка)

(нет голосов)

Загрузка ...

Новичок

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

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

Код


i можно было бы использовать в качестве глобальной переменной, если бы процедура Pro не принимала этого параметра, а в этом случае, если я правильно помню, то глобальная переменная будет проигнорирована, так как совпадают названия переменных (глобальной и для функции).
i Передать в Pro довольно просто:

var
NewI:integer;

begin
NewI:=1;
Pro(NewI);
end;
что бы у этой процедуры был смысл нужно передать переменную по ссылке, то есть Pro(var i:integer)

Я говорил немного не об этом. процедур Pro в представленном виде не имеет смысла.

neutrino

Дата 26.3.2003, 19:24 (ссылка)

(нет голосов)

Загрузка ...

Gothic soul

Профиль
Группа: Модератор
Сообщений: 3041
Регистрация: 25.3.2002
Где: Верхняя Галилея, Кармиэль

Репутация: нет
Всего: 62

procedure Pro(var I: Integer);

--------------------

The truth comes from within ...

Покойся с миром, Vit

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »