Auf Textdatei zugreifen

[Andidreas]

du machst aber bevor du denn ioresult abfragst schon auch ein reset???

deine if abfrage ist glaub auch falsch geschrieben oder???
müsste sie nich so aussehen...

Delphi-Quellcode:

if ioresult <> 32 then
  Reset(txtFile)
else
  exit;

[Klaus01]

Zitat:

Zitat von simjoh

Delphi-Quellcode:

{$I-}
  Reset(Datei[1]);
{$I+}

  if IOResult <> 0 then
  begin
    exit;
  end

Vielleicht ist es besser so herum, denn was sollte denn von IOResult geliefert werden
wenn vorher nicht versucht wurde die Datei zu öffnen.

Grüße
Klaus

[simjoh]

Hallo Klaus,

auch hier ist ein Haltepunkt bei exit grün? Ich probiers mal. Danke.

[simjoh]

Muss ich eigentlich bei Klausns Vorschlag die Datei noch closen, bevor ich mit exit die Proc verlasse?

[Klaus01]

Nein, eigentlich nicht, da ein Öffnen ja fehlgeschlagen ist (IOResult <> 0)

Grüße
Klaus

[simjoh]

Lieber Klaus,

deine Lösung funzt so, ich lasse meine Proc nun schon ziemlich lange laufen und es kommt keine Fehlermeldung mehr. Herzlichen Dank für deine Hilfe.

Nette Grüße
Markus