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

[Des80]

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

это Вы о чём?..

О программировании. Это настоящее волшебство!

[Serge_Bliznykov]

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

О программировании. Это настоящее волшебство!

согласен!


Задачу вашу Вам, надеюсь, удалось решить? Всё получилось?

[Des80]

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

согласен!


Задачу вашу Вам, надеюсь, удалось решить? Всё получилось?

Нет, что то не выходит.

Вот запись файла:

procedure TForm1.BitBtn1Click(Sender: TObject);
var
f:file;
i:integer;
n,size:longint;
s:Tstats;
begin
s:=Tstats.Create;
s.AddPm('1',3,'34/55vbbcvbcbcv',32,2,54,7,3);
s.AddPm('1',3,'88/38888888888888',32,2,54,7,3);
assignfile(f,'D:/13.stats');
rewrite(f);
n:=s.pmcount;
blockwrite(f,n,sizeof(longint));
for I := 0 to n-1 do
begin
  BlockWrite(f,s.Pm[i].id,sizeof(integer));
  BlockWrite(f,s.Pm[i].id,sizeof(integer));

  size:=length(s.pm[i].name);
  BlockWrite(f,size,sizeof(longint));
  BlockWrite(f,s.Pm[i].Name,length(s.Pm[i].name));

  BlockWrite(f,s.Pm[i].games,sizeof(integer));

  size:=length(s.pm[i].score);
  BlockWrite(f,size,sizeof(longint));
  BlockWrite(f,s.Pm[i].Score,length(s.Pm[i].Score));

  BlockWrite(f,s.Pm[i].ratio,sizeof(real));
  BlockWrite(f,s.Pm[i].frags,sizeof(real));
  BlockWrite(f,s.Pm[i].deaths,sizeof(real));
  BlockWrite(f,s.Pm[i].suicides,sizeof(real));
  BlockWrite(f,s.Pm[i].teamkills,sizeof(real));
end;
closefile(f);
end;

Вот чтение:

procedure TForm1.BitBtn2Click(Sender: TObject);
var
f:file;
i:integer;
n,size:longint;
s:Tstats;
begin
s:=Tstats.Create;
assignfile(f,'D:/13.stats');
reset(f);
seek(f,0);
n:=0;
//showmessage(inttostr(sizeof(longint)));
Blockread(f,n,sizeof(longint));
 for i := 0 to n - 1 do
 begin
 //
 end;
closefile(f);
//showmessage(s.Score);
end;

На строке Blockread возникает ошибка Read beyond end of file.
Подскажите что делать?

[BDA]

Подпрограмма Reset по умолчанию открывает файл с размером записи равной 128 байт.

rewrite(f, 1);
reset(f, 1);

Кое-что можно написать проще.

procedure TStats.AddPm(FName: string; Fgames: integer; Fscore: string;
  Fratio: real; Ffrags, Fdeaths, FSuicides, Fteamkills: integer);
var
  k: integer;
begin
  k := length(Pm);
  setlength(Pm, k + 1);
  with Pm[k] do
  begin
    id := k + 2;
    Name := FName;
    games := Fgames;
    score := Fscore;
    ratio := Fratio;
    frags := Ffrags;
    deaths := Fdeaths;
    Suicides := FSuicides;
    teamkills := Fteamkills;
  end;
end;

Не забудьте, что в новых версиях Дельфи строки юникодовые (на символ 2 байта).

[Des80]

Уже сам решил проблему, изменив размер блока записи rewrite(f,1);

Теперь проблема в другом.

В файл нормально записывает и читает только если в Tstats записать константы. Если же я закидываю в Tstats значение переменой ( в данном случае u) то читает корректно опять же только не закрывая прогу. Если закрыть то в читаются совершенно левые значения. Например, у меня несколько раз читал из файла строку 'BitBtn1' .
Такое заметил, только со строками. Real,Integer нормально читает.

Объясните пожалуйста почему так происходит и как это исправить?

procedure TForm1.BitBtn1Click(Sender: TObject);
var
f:file;
i:integer;
n,size:longint;
s:Tstats;
u:string;
begin
s:=Tstats.Create;
u:='143423w';
s.AddPm('1',3,u,32,2,54,7,3);
u:='0994';
s.AddPm('1',3,u,32,2,54,7,3);
assignfile(f,'D:/13.stats');
rewrite(f,1);
n:=s.pmcount;
blockwrite(f,n,sizeof(longint));
for I := 0 to n-1 do
begin
  BlockWrite(f,s.Pm[i].id,sizeof(integer));

  size:=sizeof(s.Pm[i].Name);
  BlockWrite(f,size,sizeof(longint));
  BlockWrite(f,s.Pm[i].Name,size);

  BlockWrite(f,s.Pm[i].games,sizeof(integer));

  size:=sizeof(s.pm[i].score);
  BlockWrite(f,size,sizeof(longint));
  BlockWrite(f,s.Pm[i].Score,size);

  BlockWrite(f,s.Pm[i].ratio,sizeof(real));
  BlockWrite(f,s.Pm[i].frags,sizeof(real));
  BlockWrite(f,s.Pm[i].deaths,sizeof(real));
  BlockWrite(f,s.Pm[i].suicides,sizeof(real));
  BlockWrite(f,s.Pm[i].teamkills,sizeof(real));
end;
closefile(f);
end;

[Stilet]

почему так происходит

Потому что современные строки это указатели, а не массивы символов.
Со строкой нужно поступать по другому:

BlockWrite(f,Строка[1],Length(Строка));

И учитывать что строки могут быть обьявлены как юникодные.

[Des80]

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

учитывать что строки могут быть обьявлены как юникодные.

Каким образом?

[Serge_Bliznykov]

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

Каким образом?

например, так:

BlockWrite(f,Строка[1],Length(Строка)*SizeOf(Char));

[Stilet]

Каким образом?

Ну а как ты их описал? String? Это юникод AnsiString? это однобайтовая ANSI строка.

[Des80]

Извините заранее за тупой вопрос, но чем тогда pchar отличается от string, если string это тоже указатель на начало строки?