Zitat von
Muetze1:
Joa, vergessen die Datei zu öffnen, würde ich mal sagen. AssignFile() + Reset(). Letzteres fehlt...
AssignFile() legt nur die Dateizuordnung fest - Öffnen ist immer extra. Beim Schreiben hast du es ja auch entsprechend gemacht (ReWrite()).
dann würde das jetzt so aussehen. kommt aber immer noch der fehler.
Delphi-Quellcode:
AssignFile(MyFile, 'Kla.dat');
Reset(MyFile);
while not EoF(MyFile) do
begin
Read(MyFile, SingleSatz);
case SingleSatz.Zensur of
1: MarkCount[1] := MarkCount[1] + 1;
2: MarkCount[2] := MarkCount[2] + 1;
3: MarkCount[3] := MarkCount[3] + 1;
4: MarkCount[4] := MarkCount[4] + 1;
5: MarkCount[5] := MarkCount[5] + 1;
end;
MarkCount[6] := MarkCount[6];
end;
CloseFile(MyFile);