procedure ProcessTable(Table: TTable);
begin
with Table do
begin
FieldByName('FIELD1').Value := ...
...
end;
end;
...
// в коде программы
...
ProcessTable(Table1);
ProcessTable(Table2);
...
работа с функциями или процедурами
нужно в функцию передать имя (описание) таблицы к которой обращаются с поиском
а в самой функции идет уже поиск конкретной записи
натолкните на мысль как передавать в функцию имя таблицы, чтобы не писать несколько функций под каждую таблицу в отдельности
а в самой функции идет уже поиск конкретной записи
натолкните на мысль как передавать в функцию имя таблицы, чтобы не писать несколько функций под каждую таблицу в отдельности
Цитата:
Originally posted by Pert
натолкните на мысль как передавать в функцию имя таблицы, чтобы не писать несколько функций под каждую таблицу в отдельности
натолкните на мысль как передавать в функцию имя таблицы, чтобы не писать несколько функций под каждую таблицу в отдельности
Передавать имя таблицы в виде строки, присваивать его в соответствующее поле компонента.
Передавать ссылку на компонент таблицы, использовать ее для прямого обращения через точечную нотацию.
Использовать макросы, или динамическое формирование SQL (используя функцию Format), если компоненты не поддерживают макросы, а вместо таблиц используются запросы.
Цитата:
Originally posted by smartsoft
Передавать ссылку на компонент таблицы, использовать ее для прямого обращения через точечную нотацию.
Передавать ссылку на компонент таблицы, использовать ее для прямого обращения через точечную нотацию.
Если не сложно, небольшой пример по ссылкам можно продемонстрировать
;-)
Цитата:
Originally posted by Pert
Если не сложно, небольшой пример по ссылкам можно продемонстрировать
;-)
Если не сложно, небольшой пример по ссылкам можно продемонстрировать
;-)
Код: