Проблемы с типиз. файлами

[asmboom]

Друзья, помогите! Не могу разабраться почему не работает сохранение/загрузка файла

unit TrCl;

interface
 type
  PBranch = ^ Branch;      //указатель на ветвь
  Way  = record
    probability: real;               //вероятность перехода
    course : PBranch;      // куда
  end;
  Branch  = record         // вершина
    NameBr : string;       //
    MathSt:  real;         // мат. ожидание
    Disp:  real;           // дисперсия
    Next, Prev : array of Way; //следующий и предыдущий эл.;
  end;
  Tree  = class
    NameTr: string;
    Source: Way; //исток с указание следующего эл. и вероятности = 1
(*
  создание и уничтожение дерева из файла
 *)
    constructor CreatTree;
    destructor FreeTree;

    //процедуры работы класса

    procedure print;  // принт грохнуть
    procedure SaveToFile (var NameFile : String);
    procedure LoadFile (var NameFile : String);
  end;

implementation

   constructor Tree.CreatTree;
   var
    Temp :  PBranch;
    realbr: Branch;
  //  s: string;
   begin
    writeln('hello kitty =)');
   // readln (Self.NameTr);
   // self.Source.probability:=1;
    //new(self.Source.course);
    //temp:=self.Source.course;
    //realbr:=temp^;
    //readln(realbr.NameBr);
  //  readln(realbr.MathSt);
   // readln(realbr.Disp);
   // temp^:=realbr;
  {  while s<>'0' do
    begin
    ///
    end;
    *}

   end;

   destructor Tree.FreeTree;
   begin
     inherited;
   end;

   procedure Tree.print;
   var
    temp: PBranch;
   begin
    writeln(self.NameTr);
    writeln(self.Source.probability);
    temp:=self.Source.course;
    writeln(temp^.NameBr);
    writeln(temp^.MathSt);
    writeln(temp^.disp);
   end;

   procedure Tree.SaveToFile (var NameFile : String);
   var
     FileVar: file of Tree;
   begin
     AssignFile(FileVar, NameFile);
     rewrite (FileVar);
     Write(FileVar, Self);
     CloseFile (FileVar);
   end;

   procedure Tree.LoadFile (var NameFile : String);
   var
     FileVar: file of Tree;
    // tr: tree;
   begin
     AssignFile(FileVar, NameFile);
     {$I-}
     Reset(FileVar);
     {$I+}
     if IOResult = 0 then
     begin
        Read(FileVar, self);
        CloseFile(FileVar);
        //self:=tr;
     end;
  
   end;
end.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[asmboom]

прошу прощения за мой английский

[Serge_Bliznykov]

1) все поля String в типе RECORD должны иметь строгий размер (в квадратных скобках указывайте длину, или заведите новый тип type MyStr100 = string[100]; )

2) что это за динамические массивы в записях?!!

Next, Prev : array of Way;

попробуйте так:

type
  PBranch = ^Branch;      //указатель на ветвь
  Way  = record
    probability: real;        //вероятность перехода
    course : PBranch;      // куда
  end;
  Branch  = record         // вершина
    NameBr : string[80];       //
    MathSt:  real;         // мат. ожидание
    Disp:  real;           // дисперсия
    Next, Prev : PBranch; //следующий и предыдущий эл.;
  end;

p.s. остальной Ваш код не смотрел...

[asmboom]

Сообщение от Serge_Bliznykov

1) все поля String в типе RECORD должны иметь строгий размер (в квадратных скобках указывайте длину, или заведите новый тип type MyStr100 = string[100]; )

2) что это за динамические массивы в записях?!!

Next, Prev : array of Way;

попробуйте так:

type
  PBranch = ^Branch;      //указатель на ветвь
  Way  = record
    probability: real;        //вероятность перехода
    course : PBranch;      // куда
  end;
  Branch  = record         // вершина
    NameBr : string[80];       //
    MathSt:  real;         // мат. ожидание
    Disp:  real;           // дисперсия
    Next, Prev : PBranch; //следующий и предыдущий эл.;
  end;

p.s. остальной Ваш код не смотрел...

мне надо много указателей, не в этом дело=)
почему-то не загружается файл (последняя процедура)

[Serge_Bliznykov]

угу. ну всё правильно. и не должно грузиться.
Объект любого класса - это указатель.

поэтому в процедуре SaveToFile вы записываете 4 байта (указатель на класс Tree) (вы сохранённый файл смотрели?! Ну Размер его, хотя бы?!)

разумеется, он потом не загрузится!

[asmboom]

Сообщение от Serge_Bliznykov

угу. ну всё правильно. и не должно грузиться.
Объект любого класса - это указатель.

поэтому в процедуре SaveToFile вы записываете 4 байта (указатель на класс Tree) (вы сохранённый файл смотрели?! Ну Размер его, хотя бы?!)

разумеется, он потом не загрузится!

Спасибо. Он как раз 4 и весит