Поиск:

Ответ в темуСоздание новой темы Создание опроса
> TTable 
:(
    Опции темы
Alex_G
Дата 4.10.2004, 21:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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



Помогите разобраться.

Пишу процедуру для доступа к БД, вот так:

procedure loaddb();
var s1:string;
...
begin

s1:=EasyTable1.fieldbyname('name1').AsString;

end;

выдает ошибку - незадекларированная переменная EasyTable1.
В чем ошибка?


PM MAIL ICQ   Вверх
Pakshin A. S.
Дата 4.10.2004, 21:07 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

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



smile.gif smile.gif smile.gif
А так:
s1:=<Имя формы>.EasyTable1.fieldbyname('name1').AsString;

Пример:
Код

s1:=Form1.EasyTable1.fieldbyname('name1').AsString;

smile.gif smile.gif smile.gif
PM   Вверх
Alex_G
Дата 4.10.2004, 21:57 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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



А что если процедура в дальнейшем будет использованна в длл?

наверное надо будет записать так:
s1:=DataModule1.EasyTable1.fieldbyname('name1').AsString;

А нет более универсального способа, что бы не надо было менять код процедуры?

PM MAIL ICQ   Вверх
Pakshin A. S.
Дата 4.10.2004, 21:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

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



Засунуть описание процедуры в класс формы и писать
Код

procedure TForm1.MyProc;


А вообще можно Table как параметр передвавать с var...
PM   Вверх
Alex_G
Дата 4.10.2004, 22:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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



Цитата(Pakshin @ 4.10.2004, 21:59)
А вообще можно Table как параметр передвавать с var...

Как? вот так:

procedure loaddb(var EasyTable1:TEasyTable);
var s1:string;
...
begin

s1:=EasyTable1.fieldbyname('name1').AsString;

end;

А почему с var... , может можно и без var... если бд нужна только для чтения
PM MAIL ICQ   Вверх
Alex_G
Дата 4.10.2004, 22:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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



Спасибо Pakshin A. S., я сам проверил все работает:


PM MAIL ICQ   Вверх
Pakshin A. S.
Дата 5.10.2004, 16:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

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



Обращайся, если что...
PM   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Базы данных и репортинг"
Vit
Петрович

Запрещено:

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

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


Обязательно указание:

1. Базы данных (Paradox, Oracle и т.п.)

2. Способа доступа (ADO, BDE и т.д.)


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

FAQ раздела лежит здесь!


Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Vit, Петрович.

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


 




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


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

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