как работать с Assignfile

[larissia]

как работать с assignfile
вот программка почему при вставке её в делфи ошибка идёт

unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
type
  TForm1 = class(TForm)
    btn1: TButton;
    procedure btn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.btn1Click(Sender: TObject);
var
  f, g: TextFile;
  a: array of string; i: Integer;
begin
  AssignFile(f, 'f.txt');
  Reset(f);
  i := 0;
  while not Eof(f) do
  begin
    Readln(f);
    i := i + 1;
  end;
  SetLength(a, i);
  CloseFile(f);
  AssignFile(f, 'f.txt');
  Reset(f);
  i := 0;
  while not Eof(f) do
  begin
    readln(f, a[i]);
    i := i + 1;
  end;
  AssignFile(g, 'g.txt');
  Rewrite(g);
  for i := Length(a) - 1 downto 0 do
    Writeln(g, a[i]);
  CloseFile(f);
  CloseFile(g);
end;
end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Serge_Bliznykov]

неправда ваша. код не только компилируется, но и даже как-то работает.
Может быть, у Вас файла f.txt нет в каталоге с вашей программой?
да и вообще, рекомендую указывать ПОЛНЫЙ путь к файлам (особенно, если не знаете, где лежит (и откуда запускается) exe-шник вашего проекта).