Запись класса в файл :?:

[Sukkub]

есть свой класс, нужно его скинуть в файл, чтобы потом загрузить можно было.
мои действия:
  Tmyc = class (tobject)
    I:integer;
    S:String;
  end;
var
  qq: Tmyc;
***
procedure TForm1.Button1Click(Sender: TObject);
var
fff: file of Tmyc;
begin
    qq :=Tmyc.Create;
    qq.S:='1wwe';
    qq.I:=936;

  assignfile(fff,'tt');
  reset(fff);
  rewrite(fff);
  write(fff,qq);
  closefile(fff);

  assignfile(fff,'tt');
  reset(fff);
  read(fff,qq);
  closefile(fff);
end;

оказалось, что в файл кидает только указательна класс, и соответственно читает по этому указателю - т.е. то что сейчас в этом классе.

как мне запихнуть в файл именно данные из класса и потом их загрузить?

[Mouse]

Обрати внимание на закомментированный Reset!  :!:  Убери - и глюк исчезнет  
И еще, при проверке считывания данных отведи под это дело другую переменную. Так можно сразу определить, читает прога или нет, и что она читает.

type
  Tmyc = class (tobject)
    i: integer;
    s: string;
  end;

procedure TForm1.Button1Click(Sender: TObject);
var
  src, dst: TMyClass;
  my_file: file of TMyClass;
begin
  src := Tmyc.Create;
  src.s := '1wwe';
  src.i := 936;

  AssignFile(my_file, 'tmp.dat');
//  Reset(my_file);
  Rewrite(my_file);
  Write(my_file, src);
  CloseFile(my_file);

  AssignFile(my_file, 'tmp.dat');
  Reset(my_file);
  Read(my_file, src);
  CloseFile(my_file);
end;

оказалось, что в файл кидает только указательна класс, и соответственно читает по этому указателю - т.е. то что сейчас в этом классе.

Ну, не знаю, где там указатели...   Что-то ты, похоже, напутал...

[Sukkub]

Спасибо, но это сдесь ошибка - копировать не умею нормально:) В любом случае - не работает. Я вот думаю, а вообще такое возможно ли в - классе могут быть и процедуры, а их как в файл зикидывать? так что наверно врядли.

[Mouse]

Насчет методов мысля интересная, я об этом не подумал. ИМХО в файл записываются только значения переменных класса.

В любом случае - не работает.

Ну, не знаю... У меня все6 работает отлично. Я на Delphi тестировал, мож в этом дело?

[crazy]

Дело в том, что в переменной типа TObject (или от него наследованной) хранится только указатель на объект. Чтобы записать это дело в фал нужно писать все, что находится по этому указателю, а при считывании

var
  o: TObject;
...
o := TObject.CReate;
...
read(f,^o);

[sss]

Код:

TClass1 = class
x{ integer;
constructor LoadFromFile)var f{ file:; virtual;
procedure SaveToFile)var f{ file:; virtual;
end;

TClass2 = class)TClass1:
y{ integer;
constructor LoadFromFile)var f{ file:; overload;
procedure SaveToFile)var f{ file:; overload;
end;

procedure TClass1.SaveToFile)....
begin
  BlockWrite)f, x, sizeof)x::;
end;

procedure TClass2.SaveToFile)....
begin
  inherited;
  BlockWrite)f, y, sizeof)y::;
end;

constructor  TClass1.LoadFromFile)...
begin
 BlockRead)f, x, sizeof)x::;
end;

constructor  TClass2.LoadFromFile)...
begin
 inherited;
 BlockRead)f, y, sizeof)y::;
end;
 

Я надеюсь далее понятно...
Посмотрите внимательно на классы в Delphi !

[sss]

Прошу прощения там override конечно а не overload...