|
Вопрос # 836/ вопрос открыт / |
|
Здравствуйте!
Как скопировать поля из существующего MemTableEh1 (EhLib) во вновь созданный
MemTableEh2 := TMemTableEh.Create(Self); ???
 |
Вопрос задал: Сидаровский Георгий (статус: Посетитель)
Вопрос отправлен: 7 августа 2007, 12:10
Состояние вопроса: открыт, ответов: 1.
|
Ответ #1. Отвечает эксперт: Градов Ю.М.
Здравствуйте, Сидаровский Георгий!
Посмотрите пример части листинга в приложении:
Приложение: Переключить в обычный режим- uses
- Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
- Dialogs, StdCtrls, DB, DBTables;
-
- type
- TForm1 = class(TForm)
- Button1: TButton;
- DataSource1: TDataSource;
- tbSource: TTable;
- procedure Button1Click(Sender: TObject);
- private
- { Private declarations }
- public
- { Public declarations }
- end;
-
- var
- Form1: TForm1;
-
- {$R *.dfm}
-
- implementation
-
- procedure TForm1.Button1Click(Sender: TObject);
- var tbTarget: TTable;
-
- begin
- tbSource.TableName := 'Source.DB';
- tbTarget := TTable.Create(Self);
- tbTarget.TableName := 'Target.DB';
- tbSource.StoreDefs := True;
- tbTarget.StoreDefs := True;
- tbSource.FieldDefs.Update;
- tbSource.IndexDefs.Update;
- tbTarget.FieldDefs := tbSource.FieldDefs;
- tbTarget.IndexDefs := tbSource.IndexDefs;
- tbTarget.CreateTable;
- end;
-
- end.
-
 |
Ответ отправил: Градов Ю.М. (статус: 8-ой класс)
Время отправки: 7 августа 2007, 21:41
Оценка за ответ: 5
|
Мини-форум вопроса
Мини-форум пуст.
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
