Dateizugriff: Typisierte datei öffnen problem

[rossinie00]

Source:
http://coder.cycnus.de/entry.php?id=813

In Zeile 97 fliegt er raus und meint sie müsse erst geöffnet werden (hab ich ja).
Also IOResult 103... weiss aber nciht warum

[edit=alcaeus]Link "clickable" gemacht ;) Mfg, alcaeus[/edit]

[Phistev]

Nach filecreate würde ich noch ein fileclose setzen, damit die Datei nicht mehr gesperrt ist. Evtl. ist das das Problem...

/edit: Nutz mal try...except statt I- und IOResult.

[alcaeus]

Hallo rossinie00,

beim Reset(F) können immer Fehler auftreten. Diese musst du abfangen, dann crasht das Programm wenigstens nicht:

Delphi-Quellcode:

{$I-}
Reset(F);
{$I+}
if IOResult <> 0 then
begin
  ShowMessage('Fehler');
  exit;
end;

Guck dir evtl. mal die Hilfe zu den I/O-Fehlern an dort steht was Fehler 103 bedeutet (ich hab eben grad kein Delphi und keine Hilfe zur Hand).

Greetz
alcaeus

[rossinie00]

103 sagt die datei sei bereits geöffnet...
naja ein try,except bringt ja nicht viel, denn dann laeuft das programm zwar macht aber nicht was es soll

[Phistev]

Zum Fehler: siehe meinen ersten Beitrag
Zu try...except: Exceptions geben normalerweise bessere Fehlermeldungen und man kann das Problem abfangen

[rossinie00]

ändert beides nichts

[Phistev]

Wie hast du es realisiert?

[rossinie00]

ja es kommt kommt keine exception ausser IO-Fehler 103 oder sowas...

[Phistev]

fileclose schon eingebaut?

[rossinie00]

einfach
fileclose(irgendeineintegerVar);
hinter mein
test := filecreate(telebuch);