Форум программистов [Powered by Invision Power Board]

Код

var
    f,f1: TextFile; // файл — база данных
      s,s1,s2,s3,s4,s5,fname,fname1:string;
    i,j:integer;
begin
  fname:='project.txt';
  AssignFile(f, fname);

  fname1:='project1.txt';
  AssignFile(f1, fname1);

  rewrite(f1);

  if fileexists(fname) then
  begin
      Reset(f);

    i:=0;
    j:=1;

      while not Eof(f) do
      begin
          Readln(f, S);
      Readln(f, S1);
      Readln(f, S2);
      Readln(f, S3);
      Readln(f, S4);
      Readln(f, S5);

      If s = label1.Caption then
      begin
        s4:=edit2.text;
        s5:=edit3.text;
      end;

      writeln(f1, s);
      writeln(f1, s1);
      writeln(f1, s2);
      writeln(f1, s3);
      writeln(f1, s4);
      writeln(f1, s5);
      end;

  closefile(f1);
  closefile(f);
  end;

  Rename(f1, fname);
  DeleteFile (fname);