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;

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

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

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

:))

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

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

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

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

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