| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Не создает экземпляр класса TCollection [D6]

MsGuns ©   (2002-09-22 17:01:00) 

unit TSearch;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, DBTables;

type
TMyItem = class(TCollectionItem)
public
FldName: string;
Fld: TField;
FldType: TFieldType;
FldKind: TFieldKind;
Template: string;
end;

type
TTblDefs = class (TCollectionItem)
public
TblName: string;
TblDS: TDataSet;
TblCollect: TCollection;
TblActive: boolean;
end;
type
TForm1 = class(TForm)
Table1: TTable;
Table2: TTable;
Table3: TTable;
Database1: TDatabase;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
TblSpis: TCollection;
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
i: integer;
tbldef: TTblDefs;
begin
self.TblSpis.Create(TTblDefs);
tbldef := (TblSpis.Add as TTblDefs);
end;

end.



self.TblSpis.Create(TTblDefs); - здесь вылетает по "FFF.."

---

MsGuns   (2002-09-22 17:17:00) [1]

>Старый паскалист (22.09.02 17:12)
Большое спасибо !!! 8)))

---

Старый паскалист   (2002-09-22 17:12:00) [2]

>self.TblSpis.Create(TTblDefs); - здесь вылетает по "FFF.."
self.TblSpis := TCollection.Create(TTblDefs);

---

Наверх