Frage zu ENDOFFILE

[WPShadow]

Hi!

Ich bastle gerade mit OPENFILE herum und da tritt ein seltsamer Fehler auf!

Wenn ich die Anwendung mit einer Textfile durch laufen lasse (unten angefügt), dann bricht mir das Programm im ersten Durchlauf ab, obwohl noch 2 weitere Zeilen einzulesen wären.

Hab ich da irgendwo den Fehler drin?

Gruß

W.

Code (glbasic) Select Expand


ok = OPENFILE(1, "test.txt", TRUE)

WHILE TRUE


READLINE 1, a$


ok = ENDOFFILE(1)

DEBUG ok

IF ok = 0 THEN BREAK


WEND

PRINT a$, 0, 0
PRINT x, 0, 20

SHOWSCREEN


KEYWAIT


[attachment deleted by admin]

[D2O]

Kleiner Denkfehler!

Endoffile() gibt solange 0 zurück wie es was zum auslesen gibt

Code (glbasic) Select Expand

ok = OPENFILE(1, "test.txt", TRUE)

WHILE ENDOFFILE(1) = 0


READLINE 1, a$


PRINT a$, 0, 0

SHOWSCREEN
KEYWAIT

WEND

[WPShadow]

Also liefert es 1 zurück, wenn nix mehr da ist?

Ok, mein Fehler! Danke!!! 

[Schranz0r]

Sagt doch der name schon ENDOFFILE 

[WPShadow]

Ich hatte es halt so verstanden:

1 --> da kommt noch was
0 --> Aus

Tja, wie bereits geschrieben --> Denkfehler meinerseits...