- Код: Выделить всё
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;
Модератор: Модераторы
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;
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.
iskander писал(а):А что такое typedfile?
Procedure Reset(var f:File;l:Longint);
Procedure Reset(var f:File);
Procedure Reset(var f : TypedFile);
Procedure Reset(var t:Text);
Vlad04 писал(а):Обобщение для file of <type>.
iskander писал(а):А где он объявлен?
Vlad04 писал(а):наверное там же, где и file, и text
xor edx,edx
call fpc_reset_typed
call fpc_iocheck
Procedure fpc_reset_typed(var f : TypedFile;Size : Longint); compilerproc;
procedure Reset(var F : typedfile);
Вернуться в Free Pascal Compiler
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 52