C++ Builder
| Главная | Уроки | Статьи | FAQ | Форум | Downloads | Литература | Ссылки | RXLib | Диски |

 
Приведение типов 2
full_lamer
Отправлено: 21.01.2005, 09:49


Машинист паровоза

Группа: Участник
Сообщений: 225



в продолжение темы приведение типов. подскажите пожалуйста как можно приводить типы в Delphi, по образу Builder
CODE
<varname> = (<type> [*]) (<expression>)

?
спасибо.

Отредактировано full_lamer — 21/01/2005, 10:51
xim
Отправлено: 21.01.2005, 10:08


Станционный диспетчер

Группа: Участник
Сообщений: 143



Для компиляторя Object Pascal существует инструкция:
CODE

<variable, derived from TObject> [b]as[/b] <type>


А так — существует тупой способ:

CODE

var
 var1:Type1,
 var2:Pointer,
 var3:Type2;
...
var2:=Pointer(var1); // Pointer(@var1)
var3:=Type2(var2);
...


Если делать напрямую — Type2(var1)
будет ошибка компилятора — cannot cast from Type1 to Type2
AVC
Отправлено: 21.01.2005, 10:32


Ветеран

Группа: Модератор
Сообщений: 1583



Почти как в C
Пример
CODE

TSparseList = class(TObject)

var
ssl: TStringSparseList;
begin
ssl := TStringSparseList(TSparseList(FData)[ARow]);
if ssl = nil then Result := '' else Result := ssl[ACol];

Коталог Source — источник знаний smile.gif

Отвлекли — ответ устарел.

Отредактировано AVC — 21/01/2005, 10:35

Вернуться в Вопросы программирования в C++Builder