[Mrak]

Здравствуйте!
Есть код, который будет повторяться много раз. В нем изменяется только имя таблицы adotable. Как оформить его в процедуру с параметром имени таблицы?

[Yurk@]

Код:

1 2 3 4 5 6 7

procedure TableOperations(FTableName : string); begin   ADOTable.Close;   ADOTable.TableName := FTableName;   // и т.д.   // и т.п. end;

[Aristarh Dark]

Ну если реально "имя таблицы", то:

Код:

1 2 3 4

procedure SomeProc(ATableName:string) begin ... end;

а если объект-таблица, то:

Код:

1 2 3 4

procedure SomeProc(ADOTable:TADOTable) begin ... end;

[Mrak]

вот с кодом понятней будет
впервые пользую процедуры, вроде все верно по объявлению-описанию-вызову

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

type // объявляю   TForm8 = class(TForm)     // .....     procedure af8(table_name: string); // ну явно не стринг, TADOTable нет var   Form8: TForm8;   implementation {$R *.dfm}   uses Unit1, Unit_DM;   procedure af8(table_name: ??string); // описываю begin    if dm.table_name.fieldbyname('zayavka').asstring = 'Заявка' then    btn1.visible:=true; end;   procedure TForm8.Button1Click(Sender: TObject); // вызываю begin   af8(adotable_klient); end;

[Aristarh Dark]

Если использовать именно в таком контексте, то:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

type // объявляю   TForm8 = class(TForm)     // .....     procedure af8(table: TDataSet); // ну явно не стринг, TADOTable нет var   Form8: TForm8;    implementation {$R *.dfm}    uses Unit1, Unit_DM;    procedure af8(table: TDataSet); // описываю begin    if table.fieldbyname('zayavka').asstring = 'Заявка' then    btn1.visible:=true; end;    procedure TForm8.Button1Click(Sender: TObject); // вызываю begin   af8(dm.table_name); end;

[Mrak]

Aristarh Dark, нет такого типа tdataset

[Aristarh Dark]

Да ну, а я то как лох им пользуюсь с прошлого века:

Сообщение от Delphi Help

Show: Delphi C++
Display PreferencesDB.TDataSetFrom RAD Studio VCL Reference
Up to Parent: DB Constructors & Destructors Functions Properties Events Inherited Members

Delphi

TDataSet = class(TComponent, IProviderSupport)C++

class PASCALIMPLEMENTATION TDataSet : public Classes::TComponent[edit] Properties
Type Visibility Source Unit Parent
class public DB.pas
DB.hpp DB DB

[edit] Description

TDataSet is the base class for all dataset components that represent data in rows and columns.




TDataSet introduces the basic properties, events, and methods for working with data.

Many of these properties, events, and methods are abstract (Delphi) or pure virtual (C++) in TDataSet. Abstract or pure virtual declarations are declarations without implementations. At the TDataSet level they cannot be used or accessed. Developers must use or derive descendants of TDataSet that redeclare and implement these abstract or pure virtual methods. Many of the other TDataSet methods are declared and implemented in TDataSet as virtual methods, but the implementations are merely stubs that are reimplemented in descendants.

TDataSet has two several descendants: TCustomADODataSet, TIBCustomDataSet, TCustomSQLDataSet, TCustomClientDataSet and TWideDataSet.

TBDEDataSet is the base class for datasets that access their data using the Borland Database Engine (BDE). TBDEDataSet descendants include TTable, TQuery, and TStoredProc. Developers who create custom dataset components that use the BDE derive them from TBDEDataSet, TDBDataSet, TQuery, TStoredProc, or TTable.

TCustomADODataSet is the base class for datasets that access their data using ActiveX Data Objects (ADO). TCustomADODataSet descendants include TADODataSet, TADOTable, TADOQuery, and TADOStoredProc. Developers who create custom dataset components that use ADO derive them from CustomADODataSet.

TIBCustomDataSet is the base class for datasets that directly access the data in InterBase tables. TIBCustomDataSet descendants include TIBDataSet, TIBTable, TIBQuery, and TIBStoredProc. Developers who create custom dataset components that directly access data in an InterBase database derive from TIBCustomDataSet.

TCustomSQLDataSet is the base class for unidirectional datasets. Unidirectional datasets are read-only datasets that permit only forward navigation. TCustomSQLDataSet descendants include the dbExpress datasets TSQLDataSet, TSQLQuery, TSQLTable, and TSQLStoredProc. Developers who create custom dataset components that use dbExpress to access their data derive from TCustomSQLDataSet.

TCustomClientDataSet is the base class for in-memory datasets. Client datasets can work with data from files on disk or with data provided by another component via a provider. They cache that data in memory, maintain a record of any changes in a change log, and apply cached updates at a later point back to the source of the data. Developers who create custom datasets that store their data in an in-memory cache derive from TCustomClientDataSet.

TWideDataSet provides dataset support for wide strings.

Developer's can also derive custom dataset components directly from TDataSet, providing their own mechanisms for accessing and manipulating the data.

[edit] See Also
TClientDataSet
TWideDataSet
TSQLTable
TSQLQuery
TSQLStoredProc
TSQLDataSet
TBDEDataSet
TDBDataSet
TQuery
TStoredProc
TTable
TADODataSet
TADOTable
TADOQuery
Marking and Returning to Records
Understanding Datasets: Overview
Distributing Database Applications
Connecting to Databases with TDatabase
DBExpress Controls
WebSnap Controls
Retrieved from "http://localhost/VCL/XE/e/index.php/DB.TDataSet"
Categories: API Documentation | Missing SourceCode
Help Feedback Copyright(C) 2010 Embarcadero Technologies, Inc. All Rights Reserved.

[Mrak]

Aristarh Dark,
да в смысле ошибку выдает [DCC Error] Unit8.pas(31): E2003 Undeclared identifier: 'TDataSet'

[M.A.D.M.A.N.]

Сообщение от Mrak

Aristarh Dark,
да в смысле ошибку выдает [DCC Error] Unit8.pas(31): E2003 Undeclared identifier: 'TDataSet'

Ошибка тебе о чем-то говорит?

Как я понял, товарищч Аристархус Даркус дал тебе в качестве примера тот код. Ясен перец, что под TDataSet он подразумевал конкретный контейнер, например ADOQuery.

[Mrak]

Сообщение от M.A.D.M.A.N.

Ошибка тебе о чем-то говорит?

Как я понял, товарищч Аристархус Даркус дал тебе в качестве примера тот код. Ясен перец, что под TDataSet он подразумевал конкретный контейнер, например ADOQuery.

тот код дал я, а товарищ модератор в нем исправил.
вы вообще тему видели??? у меня контейнер ADOTable - неужели по коду не видно?
если ставить TADOTable - ошибка тоже и под Ttable тоже самое

может какой-то связи не хватает?
я думал это элементарный вопрос

[Yurk@]

Код:

1 2	uses   DB, ADODB, DBTables;

[Страдалецъ]

А что-же вы процедуру af8 обидели? Она же у вас в контексте класса TForm8 объявлена, а вы ее выдернули оттуда. Ей скучно будет без своего класса.

[M.A.D.M.A.N.]

Сообщение от Mrak

вы вообще тему видели???

Читал, создалось впечатление, что вы не умеете самостоятельно принимать решения.

[Mrak]

Yurk@, Страдалецъ, спасибо, помогло)