| 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 — источник знаний 
Отвлекли — ответ устарел.
Отредактировано AVC — 21/01/2005, 10:35 |
|
