I/O error 103

[Klaus01]

Delphi-Quellcode:

procedure TfmLogin.btUserClick(Sender: TObject);
begin
  a:= EdUser2.Text;   // Das sind die beiden
  b:= EdPw2.Text;     // Variablen...


  AssignFile (f, 'C:\User.txt');    
  ReWrite (f);                      
  Write (f, a);                     
  CloseFile (f);                    // f wird geschlossen
  AssignFile (g, 'C:\Passwort.txt');
  ReWrite (g);                      // öffnen oder erstetzen
  Write (f, b);                     // hier wird b:= edpw2.text in die textdatei g geschrieben
                                    // nö, hier schreibst Du in f und f ist geschlossen
  CloseFile(g);                     // g wird geschlossen
end;

Grüße
Klaus