pascal problem! array schreibn

[flinx]

Lesen vom file als Beispiel (ohne Gewähr und ohne Fehlerüberprüfung):

procedure leserecordvonfile(var Dateiname:String;var indenRecord:tgesamt);
var dat: Text;
    gelesenerDatensatz:array[1..9] of String;
    j,code: Integer;
begin
     assign(dat, Dateiname);
     reset(dat);
     j:=1;
     while ((not eof(dat)) and (j < 10)) do
     begin
     readln(dat,gelesenerDatensatz[j]);
     j:=j+1;
     end;
     close(dat);
     Val(gelesenerDatensatz[1],indenRecord.datum.jahr,code);
     Val(gelesenerDatensatz[2],indenRecord.datum.monat,code);
     Val(gelesenerDatensatz[3],indenRecord.datum.tag,code);
     Val(gelesenerDatensatz[4],indenRecord.zeit.stunde,code);
     Val(gelesenerDatensatz[5],indenRecord.zeit.minute,code);
     Val(gelesenerDatensatz[6],indenRecord.zeit.sekunde,code);
     Val(gelesenerDatensatz[7],indenRecord.kennzahl.raum,code);
     Val(gelesenerDatensatz[8],indenRecord.kennzahl.geraet,code);
     Val(gelesenerDatensatz[9],indenRecord.kennzahl.Zustand,code);
end;

Setzt voraus, dass in dem - zu lesenden - File die Daten untereinander und in der richtigen Reihenfolge geschrieben wurden!

Kannst natürlich auch die Daten in eine Zeile schreiben (mit Delimiter), einen String einlesen und die Daten aus dem String extrahieren.