- var koords array[....] of ...
- procedure LeseDateiAus;
- var f : File; // Für Binärdatei
- f : TextFile; // Für TextDatei;
- begin
- assignfile(f,'dateiname');
- reset(f);
- for i ....
- begin
- read[ln](f,koords[i]);
- end;
- closefile(f);
- end;
Dateien AuslesenModerator: DGL-Team
|