Форум: "Основная";
Текущий архив: 2002.10.03;
Скачать: [xml.tar.bz2];

Вниз

Не создает экземпляр класса TCollection   Найти похожие ветки 

← →
MsGuns   (2002-09-22 17:01) [0]

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.."

---

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

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

---

← →
MsGuns   (2002-09-22 17:17) [2]

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

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2002.10.03;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.006 c