Форум: "Основная";
Текущий архив: 2003.10.02;
Скачать: [xml.tar.bz2];
ВнизEOF Найти похожие ветки
← →
Centurion (2003-09-19 21:29) [0]Подскажите пожалуста, почему на данный кусок кода
procedure TMAINF.KLSPISFILL;
var
N: integer;
begin
N := 0;
while DBGrid1.Columns[N].FieldName<>"PrhKlient" do
inc (N);
KLSpis.Open;
while not KLspisKlient.EOF do with
DBGrid1.Columns[N].PickList do
begin
ADD(KLspisKlient.AsString);
KLspisKlient.Next;
end;
KLSpis.Close;
end;
delphi 7 при компиляции пишет что не декларированы EOF и NEXT?
ведь вроде модуль system подключается автоматиески :(
← →
Anatoly Podgoretsky (2003-09-19 21:36) [1]В модуле system их нет
← →
Centurion (2003-09-19 21:38) [2]А где есть?
Вроде я в хелпе посмотрел там написано что EOF хранится в system.
Если нет скажите где?
← →
Anatoly Podgoretsky (2003-09-19 21:49) [3]А что такое KLspisKlient
← →
Zacho (2003-09-19 21:49) [4]О, боже !
Что такое "KLspisKlient" ? TTable ? TQuery ? Какой-то другой потомок TDataSet ? Вот и посмотри в каком модуле находится класс TDataSet, и добавь в uses этот модуль.
> EOF хранится в system.
Блин ! Срочно читать любой нормальный учебник c основами Object Pascal. Что бы понимать, что такое EOF в данном случае.
← →
Centurion (2003-09-19 22:07) [5]Модуль DB подключен, однако, Next не работает.
← →
Zacho (2003-09-19 22:11) [6]
> Centurion (19.09.03 22:07) [5]
Как именно не работает ?
И все-таки, что такое "KLspisKlient" ?
← →
Centurion (2003-09-19 22:17) [7]KLspisKlient это просто название процедуры
которая заполняет PickList в сетке DBGrid из sql запроса(KLspis)который выдает список Клиентов.
П.С. запрос работает.
KLspis: TQuery;
KLspisKlient: TStringField;
← →
Романов Р.В. (2003-09-19 22:18) [8]DBTables
← →
Centurion (2003-09-19 22:19) [9]DBTables - подключен
← →
Романов Р.В. (2003-09-19 22:23) [10]
> Centurion (19.09.03 22:17) [7]
Посмотри внимательнее. Что то ты не то нам пишешь.
← →
Zacho (2003-09-19 22:36) [11]
> Centurion (19.09.03 22:17) [7]
А с каких это пор у TStringField есть св-во EOF и метод Next ?
> KLspisKlient это просто название процедуры
.. Skip ..
KLspisKlient: TStringField;
Бред какой-то. Не обижайся, но это так.
Вобщем, еще раз: Срочно читать любой нормальный учебник c основами Object Pascal !
← →
Zacho (2003-09-19 22:42) [12]Чем дальше, тем больше меня одолевает мысль, что все это - пятничная разводка.
← →
Anatoly Podgoretsky (2003-09-19 22:42) [13]Во даже отвечать не надо, все расставили, по всем местам постучали, пока я отдыхал.
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.10.02;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.009 c