Wieder E/A-Fehler...aber ich finde ihn nicht

[Kasch]

Hallo Leute,

sollte eigentlich recht einfach sein, aber scheinbar doch nicht:

Delphi-Quellcode:

procedure TForm1.btn_ladeClick(Sender: TObject);
var

    daten1: array[1..100]  of string;
    s: string [64];
    datei: textfile;

begin
  AssignFile(datei,'e:\aaa.txt');
    Reset(datei);

  if IOResult <> 0 then begin // Fehler beim Öffnen
      Rewrite(datei);  // Erzeuge Datei
      if IOResult <> 0 then begin
        ShowMessage('Datei konnte nicht angelegt werden');
        exit;
      end;
    end;

for y:=1 to 100 do
  begin
   daten1[y]:=inttostr(y); //Fülle das Array einfach sinnlos mit einem String
   s:= daten1[y];          // Sicher ist sicher, ein einfacher Pufferstring nimmt den Array-String auf
   writeln(datei,s);       // Hier steigt er aus
  end;

 closefile(datei);

end;

Es bricht sofort nach dem Drücken ab, mit Fehlermeldung E/A 103, obwohl ich einen Abfangzweig mit Message eingebaut habe, wird es ignoriert... was kann das sein? Bin extremst ratlos, weil im Forum ja alle Beispiele ähnlich sind..

[Hawkeye219]

Hallo Kasch,

du öffnest eine Datei mit Reset zum Lesen und möchtest etwas hineinschreiben? Das kann nicht funktionieren.

Gruß Hawkeye

[Kasch]

dafür war eigentlich die nachfolgende IO-result-anweisung gedacht...

aber selbst wenn ich reset durch rewrite ersetze, klappt es nicht. Oder ist rewrite nicht der richtige Befehl?

[fkerber]

Hi!

Bis zu welcher Stelle kommst du denn beim Ausführen?


Ciao Frederic

[Kasch]

 writeln(datei,s); // Hier steigt er aus das steht zumindest der Cursor nach dem Abbruch

[mkinzler]

Handelt es sich um eine TextFile?

[Kasch]

 datei: textfile; wenn du das meinst ja - oder was meinst du? Habe 'datei' als textfile deklariert.
So wie ich es eigentlich hier an einigen Beispielen gesehen habe.

[turboPASCAL]

Was kommt denn für ein Fehler E/A 105 ...?

Mach doch mal

Delphi-Quellcode:

{$I-}
reset(f);
{$I+}
...

[Kasch]

habe ich gerade probiert,allerdings mit rewrite *g
geht auch nicht...Fehlercode 103....und immer beim writeln bleibt erhängen..
achso, Festplatte hat noch Platz, habe ich auch schon überprüft

edit: habe bissel probiert

Delphi-Quellcode:

{$I-} 
reset(f); 
{$I+} 
...

kommt E/A 1005

Delphi-Quellcode:

{$I-} 
rewrite(f); 
{$I+} 
...

kommt E/A 103

Was ist das nur?

[Sharky]

Also bei mir geht der Code (mit der Erweiterung von Matti) ohne Probleme.