Считывание данных из файла

[AVer]

ReWrite(F) - открывает файл для перезаписи. Если он не существует, то создает.

[PAVEL315]

Если не затруднит, можно написать полный код, а то я чёт не понял, что куда тыкать...

[AVer]

Пример кода:

var F:MyFile;
...
ReWrite(F);
F.Fam:=Edit1.Text;
F.Nam:=Edit2.Text;
...
CloseFile(F); // Сохранение и закрытие файла

[PAVEL315]

Я про первый код со вторым вместе. И ещё, укажите пожалуйста файл, откудасчитывается - Users.psc.

[AVer]

Type MyFile = record
  Fam:string[20];
  Nam:string[20];
  PNum:integer;
  LNum:integer;
  Nick:string[15];
  Pass:string[10];
  end;

var F:file of MyFile;
    Z:MyFile;

procedure TForm1.Button1Click(Sender: TObject);
Begin
Reset(F);
Read(F,Z);
if (Z.Nick=Edit1.Text) and (Z.Pass=Edit2.Text) then
begin
...
end else
ShowMessage('Неверный ввод!');
CloseFile(F);
end;

procedure TForm1.Button2Click(Sender: TObject);
Begin
ReWrite(F);
Z.Nick:=Edit1.Text;
Z.Pass:=Edit2.Text;
...
Write(F,Z);
CloseFile(F); // Сохранение и закрытие файла
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
AssignFile(F,'Users.psc');
end;

Button1 - Проверка логина и пароля.
Button2 - Забивка в фал новой информации.

[PAVEL315]

Спасибо огромное!!! А как теперь можно создать запаролированную программу для редактирования файла users.psc, ведь изначально в ней ничего нет!!! А значит программа, которую мы писали недействительна...

[AVer]

Пусть Edit1 - Пароль. Все остальные Edit для данных находятся на панели. Button1 - проверка пароля. Button2 (находится на панели) - Сохранение и закрытие.

Type MyFile = record
  Fam:string[20];
  Nam:string[20];
  PNum:integer;
  LNum:integer;
  Nick:string[15];
  Pass:string[10];
  end;

var F:file of MyFile;
    Z:MyFile;
    S:String;  //Пароль

procedure TForm1.FormShow(Sender: TObject);
begin
Panel1.Visible:=False;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
if Edit1.Text =  S then Panel1.Show else ShowMessage('Неверный пароль!');
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
AssignFile(F,Users.psc);
ReWrite(F);
Z.Nick:=Edit2.Text;
Z.Pass:=Edit3Text;
...
Write(F,Z);
CloseFile(F);
Close;
end;