Преобразование из одного типа в другой

← →
SuperMagic © (2003-05-06 10:49) [0]

Ребята проблема в следующем:
Есть у меня клас CFigure-абстрактный
СLine=class(CFigure)
CSpline=class(CFigure)
Как преобразовать объект класса CLine в объект класса CSpline

← →
Digitman © (2003-05-06 11:03) [1]

никак

← →
Digitman © (2003-05-06 11:06) [2]

Золото = class(Металл)
Медь = class(Металл)

Как преобразовать Медь в Золото ?) И наоборот ?)
Сиди и осмысливай) .. Удастся - станешь алхимиком)

← →
Крот © (2003-05-06 11:07) [3]

Насколько я понимаю, классы CLine и CSplin не связаны отношением "Базовый класс->Производный класс", поэтому их нельзя привести друг к другу. Можно базовый класс привести к производному или наоборот. Как это пишется на Builder не знаю.

← →
Anatoly Podgoretsky © (2003-05-06 11:19) [4]

Привести можно к чему угодно, вот только он не просит приводить, а просит преобразовать (свинец в золото)

← →
Palladin © (2003-05-06 11:25) [5]

в ручную можно... как метод объекта например...

CLine.AsCSpline:CSpline;

и писать функцию-преобразователь

← →
vuk © (2003-05-06 11:39) [6]

В vcl подобные проблемы решает метод Assign.

← →
Polevi © (2003-05-06 15:59) [7]

2vuk © (06.05.03 11:39)
?

Например:

procedure TBlobField.Assign(Source: TPersistent); var StreamPersist: IStreamPersist; begin if Source is TBlobField then begin LoadFromBlob(TBlobField(Source)); Exit; end; if Source is TStrings then begin LoadFromStrings(TStrings(Source)); Exit; end; if SupportsStreamPersist(Source, StreamPersist) then begin LoadFromStreamPersist(StreamPersist); Exit; end; inherited Assign(Source); end;

ну и где здесь преобразование

Класс сам решает, каким образом и на основе какого типа данных он может присвоить значения своим свойствам.

Преобразование из одного типа в другой Найти похожие ветки