13.02.2013, 15:04
|
 |
Специалист
|
|
Регистрация: 07.09.2007
Адрес: Украина, г. Днепропетровск
Сообщения: 892
Версия Delphi: 7 + ОгнеПтица
Репутация: выкл
|
|
Код:
procedure TableOperations(FTableName : string);
begin
ADOTable.Close;
ADOTable.TableName := FTableName;
// и т.д.
// и т.п.
end; |