Показать сообщение отдельно
  #11  
Старый 22.09.2011, 07:54
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 8,101
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

Ну, в принципе, по данному xml можно сваять кекоторый читатель-писатель файла. Фактически у нас есть некоторый набор структур:

Код:
type
  TData_Point = packed record
    X                  : Single;
    Altitude           : Single;
    Z                  : Single;
    Direction_X        : Single;
    Direction_Altitude : Single;
    Direction_Z        : Single;
  end;

  TData_Segment = packed record
    Waypoint_1_X        : Single;
    Waypoint_1_Altitude : Single;
    Waypoint_1_Z        : Single;
    Waypoint_2_X        : Single;
    Waypoint_2_Altitude : Single;
    Waypoint_2_Z        : Single;
    Start_Point         : Integer;
    End_Point           : Integer;
    Segment_Length      : Single;
  end;

  TData_Path = packed record
    Stub1          : Integer;
    ID             : Integer;
    Stub2          : Integer;
    Stub3          : Integer;
    Count_Points   : Integer;
    Point          : Array Of TData_Point;
    Count_Segments : Integer;
    Segment        : Array Of TData_Segment;
  end;

  TData_File = packed record
    Version : Integer;
    Count   : Integer;
    Path    : Array Of TData_Path;
  end;

Как-то так.
Хотя может имеет смысл сделать их классами с соотв. методами чтения/записи.
Ответить с цитированием