Программа, реализующая создание текстового файла (Delphi)

[Luchfan12]

Создайте программу,реализующее создание текстового файла.Если файл уже существует,то нужно реализовать его открытие,дозапись в этот файл введенных строк текста,чтение из этого файла всех строк текста,перезапись этого файла после редактирования,а также закрытие этого файла.

[ZX Spectrum-128]

Assign(file), reset, rewrite, append, fileexists, close(file), readln, writeln.
Вот что вам понадобится.

[Stilet]

А по-моему достаточно одного TStringList.

[Luchfan12]

unit U8_2;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Memo1: TMemo;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  f:text;
  s:string;
 
  implementation
 
{$R *.dfm}
 
 
 
 
procedure TForm1.Button1Click(Sender: TObject);
begin
 AssignFile(f, 'Pogrebnyak.txt');
 Rewrite(f);
 Reset(f);
 Writeln(f,s);
 CloseFile(f);
end;
 
end.

Функцию создания уже написал,но когда я пишу название файла в первое текстовое поле(Edit1.Text) и нажимаю на кнопку "Создание",то мне выдает ошибку I/O Error 105.Где здесь ошибка?

[ZX Spectrum-128]

Пытаетесь одновременно открыть текстовый файл и для записи, и для чтения. Нужно или, или.

[Luchfan12]

procedure TForm1.Button1Click(Sender: TObject);
begin
 AssignFile(f, Edit1.Text);
 Rewrite(f);
 Write(f,s);
 CloseFile(f);
end;

Все таки разобрался с созданием файла,надо было прописать для AssignFile атрибут Edit1.Text и убрать ненужный Reset(f)