Экспорт объектов в текстовый формат

[dmites]

rObject - record Объект (или Jbject в англ.версии)
ExportObject(TypeObject : Text[30];ObjectID : Integer;FileName : Text[100])


CASE UPPERCASE(TypeObject) OF
'TABLE': IntType:=1;
'FORM': IntType:=2;
'REPORT': IntType:=3;
'DATAPORT': IntType:=4;
'CODEUNIT': IntType:=5;
END;


rObject.SETRANGE(rObject.Type, IntType);
rObject.SETRANGE(rObject.ID,ObjectID);
IF rObject.FIND('-') THEN
BEGIN
rObject.CALCFIELDS("BLOB Reference");
rObject."BLOB Reference".EXPORT(FileName);
END;

импорт аналогично, не работает для таблиц (во всяком случае в SQL)
проблем с объектом типа TableData. Вероятно можно решить, до конца не разбирался.....

импорт аналогично, не работает для таблиц (во всяком случае в SQL)
проблем с объектом типа TableData. Вероятно можно решить, до конца не разбирался.....