I/O error 103

[Chemiker]

Hallo Ghostleader,

Delphi-Quellcode:

  ReWrite (g);                      // öffnen oder erstetzen
  Write (f, b);                     // hier muss Write (g, b); stehen
  CloseFile(g);

Bis bald Chemiker

[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

[Luckie]

Jetzt fehlt eigentlich nur noch die Fehlerbehandlung.

[hoika]

Hallo,

und die Variablen sollten lokal sein.


Heiko

[Ghostleader]

danke! der fehler war wirklich ein tipp fehler obwohl ich mir SO sicher war alles genau durchgeguckt zu haben.

Mfg Ghost