программа с файлами

[aleksskay]

почему данная программа выдает сообщение об ошибке

 procedure TForm1.Button1Click(Sender: TObject);
var
  f2,f:TextFile ;
 Fname2,Fname, s:string;

begin
  Fname := edit1.Text;
  Fname2 := edit2.Text;

  AssignFile(f, 'fname');
  AssignFile(f2, 'Fname2');
  {$I-}
  Reset(f);

  {$I+}
  Rewrite(f2);
  While not Eof(f) do
  begin
    readln(f, s);
    Memo1.lines.Add(s);
    writeln(f2,s);
  end;
  CloseFile(f);
  CloseFile(f2);



end;

[execom]

Существует такая переменная FileMode она управляет режимом доступа к файлу.. возможно как-т о так будет гуд

procedure TForm1.Button1Click(Sender: TObject);
var
f2,f:TextFile ;
Fname2,Fname, s:string;

begin
Fname := edit1.Text;
Fname2 := edit2.Text;

AssignFile(f, 'fname');
AssignFile(f2, 'Fname2');
{$I-}
FileMode:=0;//только чтение
Reset(f);
{$I+}
FileMode:=2;//только запись
Rewrite(f2);
While not Eof(f) do
begin
FileMode:=0;//только чтение
readln(f, s);
Memo1.lines.Add(s);
FileMode:=2;//только чтение
writeln(f2,s);
end;
CloseFile(f);
CloseFile(f2);
end;

[Serge_Bliznykov]

ну и где текст/скриншот ошибки?!

я думаю, что проблема совсем в другом.
пробуйте так:

procedure TForm1.Button1Click(Sender: TObject);
var
f2,f:TextFile ;
Fname2,Fname, s:string;

begin
Fname := edit1.Text;
Fname2 := edit2.Text;

AssignFile(f, fname);
AssignFile(f2, Fname2);

а ещё, добавьте проверку на существование файла и выдачу сообщения, в случае, если файл не найден.

procedure TForm1.Button1Click(Sender: TObject);
var
f2,f:TextFile ;
Fname2,Fname, s:string;

begin
Fname := edit1.Text;
Fname2 := edit2.Text;

if not FileExists(FName) then begin
   ShowMessage('Файл ёк! Нет файла '+FName);
   Exit;
end;

AssignFile(f, fname);
AssignFile(f2, Fname2);
....