¿Cómo solucionar el error 32 de Delphi 7 i\o? (urgente)

En realidad, solo le falta una línea: después de asignarfile(passwordfile, 'f:\merchandising system\source code\password.txt');; debe haber Reset(passwordfile); de lo contrario, se producirá un error en rewrite(passwordfile); Texto;

assignfile(archivo de contraseñas,'f:/contraseña.txt');

Restablecer(archivo de contraseñas);

rrewrite(archivo de contraseñas);

write(passwordfile, maskedit2.Text);

closefile(passwordfile);

end;

No hay nada malo con este programa, y No hay nada malo con su programa, ¡experimenta correctamente en mi computadora! Debe ingresar la contraseña en contraseña.txt de antemano, y la contraseña ingresada en maskedit2 y maskedit3 debe ser la misma.

El siguiente es el programa con el que experimenté correctamente en delphi7:

Unit Unit1

Interfaz

Propósito

Windows, Mensajes, SysUtils, Variantes, Clases, Controles, Formularios,

Cuadros de diálogo, StdCtrls

Tipos

TForm1 = class(TForm)

<; p > Botón3: TButton;

Maskedit1: TEdit;

Maskedit2: TEdit;

Maskedit3: TEdit; : TObject);

privado

{ declaraciones privadas }

público

{ declaraciones públicas }

fin

var

Form1: TForm1

Implementación

{$R *.dfm}

Proceso TForm1 .Button3Click(Remitente: TObject);

var

contraseña: cadena;

archivo de contraseña: archivo de texto;

comenzar

asignar archivo(archivo de contraseñas,'f:\contraseña.txt');

restablecer(archivo de contraseñas);

leer(archivo de contraseñas, contraseña);

cerrar archivo(archivo de contraseñas);

si (maskedit1.Text=contraseña) y (maskedit2.Text=maskedit3.Text)

entonces

comenzar

contraseña ：=maskedit2.Text;

asignararchivo(archivo de contraseñas, 'f:\contraseña.txt');

reset(archivo de contraseñas

escribir(archivo de contraseñas); ) ;

escribir(archivo de contraseñas, contraseña);

closefile(archivo de contraseñas);

messagelg('Contraseña cambiada correctamente', mbinformation, [mbok], 0 ) ;

end

else

begin

messagedlg('Contraseña cambiada correctamente', mtinformation, [mbok], 0);

fin

else

comenzar

messagedlg('error de entrada', mterror, [mbok], 0);

maskedit1.Text:='';

maskedit2.Text:='';

maskedit3.Text:='';

fin ;