Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Странности... 
:(
    Опции темы
Pakshin A. S.
  Дата 21.12.2003, 19:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

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



Случай из практики:
Код


...

procedure ReadBool(N1,N2:boolean);
var
f:file of boolean;
begin
AssignFile(f, 'Somefile.xxx');
reset(f);
read(f, N1);
read(f, N2);
CloseFile(f)
end;

...

procedure TForm1.Button1Click(Sender: TObject);
var
N1,N2:boolean;
begin
ReadBool(N1, N2);
if N1 and N2
 then
  ShowMessage('true')
 else
  ShowMessage('false');
...
end;

...


Что бы я ни писал в файле, вадавалось сообщение "false".

Поменял в процедуре Button1... названия переменных на Na1 и Na2... заработало!

Но в чём проблемка, ведь и нигде эти переменные более не использовал!?

Это сообщение отредактировал(а) Pakshin A. S. - 21.12.2003, 19:57
PM   Вверх
p0s0l
Дата 21.12.2003, 20:03 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Г-н Посол
****


Профиль
Группа: Экс. модератор
Сообщений: 3668
Регистрация: 13.7.2003
Где: 58°38' с.ш. 4 9°41' в.д.

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



а почему у тебя так
procedure ReadBool(N1,N2:boolean);
а не так:
procedure ReadBool(var N1,N2:boolean);

или это описка ?


--------------------
С уважением, г-н Посол.
PM   Вверх
Pakshin A. S.
Дата 21.12.2003, 20:07 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

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



А по-моему эти записи равносильныconfused.gif Ведь потом это заработало и тем более я писал и с VAR...
PM   Вверх
Vit
Дата 21.12.2003, 20:27 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Vitaly Nevzorov
****


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

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



Цитата
А по-моему эти записи равносильны


Ну ты блин даёшь! Конечно не равносильны!


--------------------
With the best wishes, Vit
I have done so much with so little for so long that I am now qualified to do anything with nothing
Самый большой Delphi FAQ на русском языке здесь: www.drkb.ru
PM MAIL WWW ICQ   Вверх
Полудненко Олег
Дата 21.12.2003, 22:51 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Українець
**


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

Репутация: 1
Всего: -11



Pakshin A. S. при первой передаётся значение переменной, а при второй адрес переменной (или чё-то такое)
PM MAIL   Вверх
December
Дата 22.12.2003, 04:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Antitheorist
****


Профиль
Группа: Участник
Сообщений: 4423
Регистрация: 14.8.2002
Где: Харьков

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



То же, по-человечески: с var ты можешь изменять значение параметра в самой процедуре, без var - изменения не отобразятся вне её.


--------------------
Для друзей с винграда - скидки на разработку сайтов
PM MAIL WWW ICQ   Вверх
Vit
Дата 22.12.2003, 06:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Vitaly Nevzorov
****


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

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



Вот здесь объяснения типов параметров:

http://forum.vingrad.ru/index.php?act=ST&f...2&t=9845&hl=out


--------------------
With the best wishes, Vit
I have done so much with so little for so long that I am now qualified to do anything with nothing
Самый большой Delphi FAQ на русском языке здесь: www.drkb.ru
PM MAIL WWW ICQ   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.

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


 




[ Время генерации скрипта: 0.0492 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.