Проблема с чтением типизированного файла.

[Вадим Буренков]

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

Проблема в том, что если в программе занести в поля данные, сохранить их и не выходя из программы загрузить, то все нормально, но если сохранить данные и выйти из программы, то они уже не загружаются.
Помогите разобраться в чем дело.

[beemoto]

Вадим Буренков, может покажите как вы делаете или мы екстрасенсы!?
как я понял серез инифайл

[Вадим Буренков]

Упс, я забыл файл прикрепить

[beemoto]

Вадим Буренков, а не легче ли для этого использовать инифайл!?

[Вадим Буренков]

Нет. Дело в том, что это просто тест. В реальной программе(игре) файл должен использоваться для хранения множества параметров уровня и игровых обьектов.
Я умею работать с ini и знаю что тут он не подойдет.Мне нужно разобраться с типизированными файлами. Ты не знаешь в чем дело?

[Terran]

Подправил Ваш исходник: File.rar
Теперь всё работает.

[Вадим Буренков]

А можно сделать так, чтобы в типизированный файл записывались данные и record'a, и class'a?

Type
TTestClass = class
ClassNumber:integer;
end;


TInform = record
Texts: String[100];
Number: Integer;
Test:TTestClass;
End;

Я хочу чтобы также записывались данные TTestClass, который в TInform. Это реально?

[Stilet]

файл записывались данные и record'a,

Запросто. Обьяви тип файла File of TInform
Тогда Write(f,r) где r - имеет тип TInform пихнет в файл все что в этой записи.

и class'a?

Скажем так пугать не хочу но советую про это забыть...

[ArtInt]

Кстати записать класс в файл можно и все будет работать, правдо это действительно какое то извращение будет. Но как говорят и можно то чего нельзя когда уж очень хочется.

Type
//TInform = Record
TInform = class
  Texts: String[100];
  Number: Integer;
End;

var
  Form1: TForm1;
  Inf: tinform;
  F: File Of TInform;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
reset(f);
//read(f,Inf);
inf:=TINform.Create;
BlockRead(f ,pointer(cardinal(inf) + sizeof(pointer))^, inf.InstanceSize - 4);
closeFile(f);
Form1.Edit1.Text:=Inf.Texts;
Form1.Edit2.Text:=IntToStr(Inf.Number);
inf.Free;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
rewrite(f);

inf:=TINform.Create;
Inf.Texts:=Form1.Edit1.Text;
Inf.Number:=StrToInt(Form1.Edit2.Text);
BlockWrite(f, pointer(cardinal(inf) + sizeof(pointer))^, inf.InstanceSize - 4);
//write(f,Inf);
closeFile(f);
inf.Free;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
Form1.Edit1.Text:='';
Form1.Edit2.Text:='';
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 AssignFile(f,'C:\Test.bin');
end;

Проблема состоит в том, что первые 4 байта содержат метакласс и они разные при каждой компиляции, смысла нет сохранять в файл. Поэтому и записываем

inf.InstanceSize - 4