Записать в файл g компоненты файла f в обратном порядке

[tane]

Организовать текстовый файл f, что состоит из N строк. После этого создать текстовый файл g, что содержит строки текстового файла f в обратном порядке.

Я правильно понял задание?Можно ли упростить код?

procedure TForm1.f1Click(Sender: TObject);
var f,g:TextFile;

begin
AssignFile(f,'f.txt');  
{$I-}  
append(f); 
if IOResult<>0 then  
begin
Rewrite(f);
{$I+}  
if IOResult<>0 then  
begin
ShowMessage('Ошибка созд файла');
Exit;
end;
end;

Memo1.Lines.SaveToFile('c:\f.txt');
CloseFile(f);
end;

procedure TForm1.N2Click(Sender: TObject);
var f:TextFile; i:Integer;
begin
AssignFile(f,'c:\g.txt');
{$I-}  
append(f); 
if IOResult<>0 then 
begin
Rewrite(f); 
{$I+}  
if IOResult<>0 then  
begin
ShowMessage('Ошибка созд файла');
Exit;
end;
end;
for i:=Memo1.Lines.Count - 1 downto 0 do
Writeln(f,reversestring(memo1.lines[i]));
CloseFile(f);
MessageDlg('данные добавлены ',mtInformation,[mbOK],0);
end;

end.

[Serge_Bliznykov]

По моему мнению, Вы сделали неверно.
Вы смешали всё в кучу. Если Вы используете компоненты Delphi (и не факт, что это вообще допустимо в рамках решения данной задачи, это надо у преподавателя уточнять!), то используйте их корректно.

например, код на кнопку f1Click должен сохранять содержимое Memo в файл.
для этого достаточно написать так:

procedure TForm1.f1Click(Sender: TObject);
begin
  Memo1.Lines.SaveToFile('c:\f.txt');
end;

всё остальное я выкинул, это в данном случае - ересь, мусор и ерунда!
И Вы уверены, что файл f Вам вообще нужно создавать?!
По условию задачи он Вам ДАН!

теперь, что касается задания.

что содержит строки текстового файла f в обратном порядке.

на мой взгляд, это означает, что, если в файл f
есть строки:
строка1
строка2
....
строкаN-1
строкаN

то в файле g мы должны получить
строкаN
строкаN-1
...
строка2
строка1

и ни каких reversestring

т.е. если Вы уж используете компоненты, то код на кнопке N2Click может выглядеть так:

procedure TForm1.N2Click(Sender: TObject);
var 
   i : Integer;
   TS : TStringList;
   g : TextFile;
begin
   if Not FileExists('c:\f.txt') then begin
       ShowMessage('Нет исходного файла f.txt');
       Exit
   end;

   TS := TStringList.Create;
   TS.LoadFromFile('c:\f.txt');
  
   AssignFile(g,'c:\g.txt');
   Rewrite(g); 
   for i:=TS.Count - 1 downto 0 do
            Writeln(g, TS.Strings[i]);
   CloseFile(g);
   TS.Free;
end;

[tane]

Я думаю,вы правы по поводу обратной записи. Вот мой конечный вариант.

procedure TForm1.f1Click(Sender: TObject);


begin
Memo1.Lines.SaveToFile('c:\f.txt');

end;

procedure TForm1.N2Click(Sender: TObject);
var
   i : Integer;
   TS : TStringList;
   g : TextFile;
begin
   if Not FileExists('c:\f.txt') then begin
       ShowMessage('Нет исходного файла f.txt');
       Exit
   end;

   TS := TStringList.Create;
   TS.LoadFromFile('c:\f.txt');

   AssignFile(g,'c:\g.txt');
   Rewrite(g);
   for i:=TS.Count - 1 downto 0 do    
            Writeln(g, TS.Strings[i]);
   CloseFile(g);
   TS.Free;            
end;

[Serge_Bliznykov]

угу.
извините, я в процедуре сохранения лишнюю строчку оставил от вашего кода. уже подправил. И Вы правильно её выкинули.

Ну, остальное, вроде бы всё как у меня

Имена файлов лучше в константах хранить. Чтобы в одном месте было написано:

const 
   inputFileName = 'c:\f.txt';
   outFileName = 'c:\g.txt';
....


Memo1.Lines.SaveToFile(inputFileName);

...
   if Not FileExists(inputFileName) then begin
       ShowMessage('Нет исходного файла ' + inputFileName);
       Exit
   end;
...
   TS.LoadFromFile(inputFileName);
....
    AssignFile(g,outFileName);
....

[tane]

Спасибо большое!