type
CDrec = record
name,pos,komment:shortstring;
maxentry,nr:integer;
entry:array[1..24] of shortstring;
end;
[...]
var
datei:file of CDrec;
dateiMAX:file of integer;
[...]
write(datei,CD[number]);
Hier hängt der Compiler fest und melden einen EinOtError / dateizugriff verweigert! obwohl CD[number] zuvor mit allen record-Daten gefüttern wurde...
CD[number].Nr:=StrToInt(Edit[25].text);
CD[number].name:=Edit[26].text;
CD[number].pos:=Edit[27].text;
CD[number].maxentry:=StrToInt(Edit[28].text);
CD[number].komment:=Edit[29].text;
for i:=1 to CD[number].maxentry do
CD[number].entry[i]:=Edit[i].text;
Wer kann mir helfen?