I/O error 103

[Ghostleader]

hey ich bekomme bei meinem programm immer den fehler:
I/O error 103

soweit ich weiß heißt das, dass die datei nicht geöffnet werden kann, ich finde meinen fehler allerdings nicht:
könntet ihr mir dabei mal bitte helfen?:

Delphi-Quellcode:

var
  fmLogin: TfmLogin;
  f: textfile;
  g: textfile;
  a: String;
  b: String;


implementation

{$R *.dfm}

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


  AssignFile (f, 'C:\User.txt');    // f wird bzw soll eine datei zugewiesen werden...
  ReWrite (f);                      // öffnen oder erstetzen
  Write (f, a);                     // hier wird a:= eduser2.text in die textdatei f geschrieben
  CloseFile (f);                    // f wird geschlossen
  AssignFile (g, 'C:\Passwort.txt');// g wird bzw soll eine datei zugewiesen werden...
  ReWrite (g);                      // öffnen oder erstetzen
  Write (f, b);                     // hier wird b:= edpw2.text in die textdatei g geschrieben
  CloseFile(g);                     // g wird geschlossen
end;

mfg ghost

[Chemiker]

Hallo Ghostleader,

schau mal in die Hilfe von IOResult dort steht die Ursache.

Bis bald Chemiker

[oki]

Hi,

mach nach dem AssignFile mal ein Reset(f). Damit öffnest du die Datei.

Gruß oki

[Ghostleader]

die datei ist noch nicht vorhanden deswegen hatte ich rewrite...

mit reset kommt: I/O 105...

bei suche für I/O Result finde ich nur:
http://www.delphipraxis.net/search.p...529373&start=0

kannst du mir nicht einen link geben?

mfg Ghost

[Chemiker]

Hallo Ghostleader,

mit Reset öffnet eine vorhandene Datei. Rewrite ist schon richtig. Mit Hilfe meinte ich die F1-Taste!

Hast Du unter C: schreibrechte?

Bis bald Chemiker

[oki]

Zitat:

Zitat von Chemiker

Hallo Ghostleader,

mit Reset öffnet eine vorhandene Datei. Rewrite ist schon richtig. Mit Hilfe meinte ich die F1-Taste!

Hast Du unter C: schreibrechte?

Bis bald Chemiker

Hi Ghostleader,

sorry, dass hatte ich übersehen. Ist schon eine Weile her als ich das letzte mal Dateien mittels AssignFile geöffnet hab.

Gruß oki

[Ghostleader]

klar hab ich unter C:\ schreibrechte :D ich hab windows und kann da alles machen was ich will

@oki: kein problem

[Tobinator]

hi,

ich glaub du hast da nen tippfehler:
Write (f, b);
Write (g, b); so müsste es sein.
:-D

[Ghostleader]

hmm also wie meinst du das mit F1? in meinem Delphi (CodeGear 2007) passiert da nichts

@tobi:
nein:
in der datei f soll variable a gespeichert werden
in der datei g soll variable b gespeichert werden

trz danke

[Tobinator]

Wenn ich das richtig in Errinerung hab, dann speichert

Delphi-Quellcode:

  Write (f, b);                     // hier wird b:= edpw2.text in die textdatei g geschrieben

den Text, der in b steht in die Datei f und nicht in g, oder hab ich da einen Denkfehler?

[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