Read - Vermisse Fehlermeldung des Compilers

[jear]

Eine Kleinigkeit zwar, die sich aber zur Falle entwickeln kann.
Read liest über Label hinweg und frisst die nächsten Daten.
Erst wenn nichts mehr da ist, dann kommt die Fehlermeldung.

Wäre es nicht sauberer, wenn Read automatisch am nächsten Label stoppen und die Fehlermeldung bringen würde?

Code: Alles auswählen

EnableExplicit

Define.l idx : Dim txt1.s(5) : Dim txt2.s(5)

Restore Label_1
For idx = 0 To 4 : Read txt1(idx) : Debug txt1(idx) : Next

Debug "****"

Restore Label_2
For idx = 0 To 4 : Read txt2(idx) : Debug txt2(idx) : Next

Debug "****"

Restore Label_3
For idx = 0 To 4 : Read txt3(idx) : Debug txt3(idx) : Next

DataSection
Label_1:
Data.s "1Eins" , "1Zwei", "1Drei"
Label_2:
Data.s "2Eins" , "2Zwei", "2Drei"
Label3_:
Data.s "3Eins" , "3Zwei", "3Drei"
EndDataSection

[Kaeru Gaman]

ist leider so einfach nicht machbar, da read eine reine pointer-geschichte ist.

auch Data ist ein reines direkt-im-speicher-zur-verfügung-stehen.

du musst also normalerweise selber kontrollieren, wie viele daten du per read einliest...

[ts-soft]

>> Wäre es nicht sauberer, wenn Read automatisch am nächsten Label stoppen und die Fehlermeldung bringen würde?
Nein, wer sagt denn, das ich den Label nicht überlesen möchte, weil ich den
dortigen start für etwas anderes brauche.
Das wäre schlimm, wenn es so wäre, wie du wünscht

// Nachtrag: ein kleines Beispiel

Code: Alles auswählen

DataSection
  Person:
  Man:
  Data.s "Jens", "Uwe", "Kaeru", ""
  Woman:
  Data.s "Jutta", "Sybille", "Gaby", "Petra", "Sylvia", "-"
EndDataSection

Restore Person
Repeat
  Read temp.s
  If temp <> "" And temp <> "-"
    Debug temp
  EndIf
Until temp = "-"
Debug "------------------------"

Restore Man
Repeat
  Read temp.s
  If temp <> ""
    Debug temp
  EndIf
Until temp = ""

// Beispiel modifiziert

[Sylvia]

Woman:
Data.s "Jutta", "Sybille", "Gaby", "Petra", "-"

HÄÄÄ ? Und wo bleibt "Sylvia" ??!

[Kaeru Gaman]

HUCH

...wer meldet sich denn da mal wieder...?