ПРОЛОГ

[s2dentishe]

компилирую исходник на ПРОЛОГе , адаптированный под свою тему, мне выдает ошибку:512 Type error: Wrong object type., в таком месте программы:
assert_database:-
ship(class, type, board_number, name, /*ВОТ ЗДЕСЬ ОШИБКУ ПОКАЗЫВАЕТ*/ year_of_commissioning),
assertz(d_ship(class, type, board_number, name, year_of_commissioning)),
fail.
assert_database:-!.
Почему??? year_of_commissioning-ТИП REAL, может кто подскажет....?)

[Smitt&Wesson]

readln(class)?

Что ВЫ этим хотели сказать?
Я Читаю класс из класса?...
Но из класса можно прочитать его имя, и то, что в егно конструктое.(
((TClass)*Class)->ClassName; Не уверен , что правильно, (День аренья у меня.)
Но Узнать имя класса, можно через разыменование. В С++ так, в других не знаю (и знать не хочу).