Скачать: CL | DM;

Invalid class typecast.   Найти похожие ветки 

← →
Drowsy   (2008-09-17 09:13) [0]

(FibPlus 1.5)
В модуле данных таблица AnyTable: tpFIBDataSet
На форме Grid
Grid.DataSource.DataSet := Anytable

Почему класс
dmDataModul.AnyTable.ClassName = tpFIBDataSet,
а
Grid.Datasource.Dataset.ClassName = TTable ?

var
   s : string;
begin

if (ActiveControl is TDBGrid) then
 with TDBGrid(ActiveControl) do begin
   s:= dmDataModul.AnyTable.ClassName; // s = "tpFIBDataSet";
   s:= Datasource.Dataset.ClassName;   // s = "TTable"

   if (Datasource.Dataset is tpFIBDataSet) then // FALSE
.......    

---

← →
Поросенок Винни-Пух ©   (2008-09-17 09:24) [1]

потому что грид у тебя наточен на TTable

---

← →
Drowsy   (2008-09-17 09:28) [2]

А его можно переточить на другой тип - tpFIBDataSet?

---

← →
Поросенок Винни-Пух ©   (2008-09-17 09:29) [3]

Можно.
Grid.DataSource.DataSet := pFibDataSet1;

---

← →
Drowsy   (2008-09-17 09:33) [4]

Так у меня так и есть:
var AnyTable: tpFIBDataSet;
.......
Grid.DataSource.DataSet := AnyTable;

---

← →
Поросенок Винни-Пух ©   (2008-09-17 09:34) [5]

И чего?
В области видимости есть еще одна anytable и это TTable

---

← →
Drowsy   (2008-09-17 09:37) [6]

Непонятно.

---

← →
Drowsy   (2008-09-17 09:37) [7]

У меня все Set-ы типа tpFIBDataSet

---

← →
Поросенок Винни-Пух ©   (2008-09-17 09:38) [8]

s:= Datasource.Dataset.ClassName + " " + Datasource.Dataset.Name;

---

← →
Поросенок Винни-Пух ©   (2008-09-17 09:39) [9]

У меня все Set-ы типа tpFIBDataSet

И один TTable. Я даже отсюда вижу.

---

← →
Drowsy   (2008-09-17 09:42) [10]

:))

---

← →
Drowsy   (2008-09-17 09:43) [11]

Удалено модератором

---

← →
Drowsy   (2008-09-17 10:00) [12]

Спасибо, Винни, ты прав!
У тебя отличное зрение!!! :)

---

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

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.011 c