переопределение Reset для typedfile

[Vlad04]

Добрый день. Переопределение процедуры reset для типизированных файлов выдаёт RunError(2). Для бестиповых и текстовых файлов такой ошибки нет. Как решить?

Код: Выделить всё

procedure Reset(var F : typedfile);
begin
  system.Reset(F);
end;

procedure TMyApplication.DoRun;
var
  F : file of char;
begin
  assignfile(F, 'testreset.lpr');
  reset(F);
  closefile(F);
  Terminate;
end;


[DYUMON]

Возвращает ошибку , что файл не найден?

[iskander]

А что такое typedfile?

Вот в таком виде работает

Код: Выделить всё

program testreset;

{$mode objfpc}{$H+}

uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Classes, SysUtils, CustApp
  { you can add units after this };

type

  { TMyApplication }

  TMyApplication = class(TCustomApplication)
  protected
    procedure DoRun; override;
  public
    constructor Create(TheOwner: TComponent); override;
  end;

  FileOfChar = file of Char;

{ TMyApplication }

procedure Reset(var F : FileOfChar);
begin
  system.Reset(F);
end;

procedure TMyApplication.DoRun;
var
  F : file of Char;
begin
  assignfile(F, 'testreset.lpr');
  reset(F);
  closefile(F);
  Terminate;
end;

constructor TMyApplication.Create(TheOwner: TComponent);
begin
  inherited Create(TheOwner);
  StopOnException:=True;
end;

var
  Application: TMyApplication;
begin
  Application:=TMyApplication.Create(nil);
  Application.Title:='My Application';
  Application.Run;
  Application.Free;
end.


[Vlad04]

А что такое typedfile?

Обобщение для file of <type>.
В модуле system определены четыре процедуры Reset

Код: Выделить всё

Procedure Reset(var f:File;l:Longint);
Procedure Reset(var f:File);
Procedure Reset(var f : TypedFile);
Procedure Reset(var t:Text);


procedure Reset(var F : FileOfChar); - хорошо, что это работает, но требуется общее решение, для различных типов.

[iskander]

Обобщение для file of <type>.

А где он объявлен?

[Vlad04]

А где он объявлен?

наверное там же, где и file, и text

[iskander]

наверное там же, где и file, и text

Беглый поиск в документации и исходниках rtl ничего не дал.
Внутренний псевдотип компилятора?
Код, который fpc генерит (x86) для вашего Reset:

Код: Выделить всё

  xor    edx,edx
  call   fpc_reset_typed
  call   fpc_iocheck 


fpc_reset_typed описана в compproc.inc как

Код: Выделить всё

Procedure fpc_reset_typed(var f : TypedFile;Size : Longint); compilerproc;


т.е. она вызывается как fpc_reset_typed(F, 0), информация о размере записи игнорируется.
Мне кажется, что все это похоже на глюк компилятора, т.е. либо на строке

Код: Выделить всё

  procedure Reset(var F : typedfile);


он должен был сгенерировать ошибку Error: Identifier not found "typedfile", либо корректно использовать информацию о размере записи файла.