Delphi-Quellcode:
procedure FunktionenLesen(FileName: String; var f :TFunktionenArray);
var
Datei: TFunktionenDatei;
i, count: integer;
begin
AssignFile(Datei, FileName); // Datei zuweisen
Reset(Datei); // Datei öffnen
count:= FileSize(Datei);
setlength(f, count);
for i:=0 to count -1 do begin
Read(Datei, f[i]); // die aktuellen Werte lesen
end;
CloseFile(Datei); // Datei schließen
end;
Nachgeschoben noch einige Erklärungen:
seek(datei,i) brauch man nur wenn man sich frei in der Datei bewegen will.
Du wolltest die Datei von vorne bis hinten lesen.
Mit
reset hast Du Dich bereits an den Dateianfang bewegt.
Ein
read bewegt Dich immer einen einen Datensatz weiter.
FileSize liefert bei einer typisierten Datei die Anzahl der Datensätze und
nicht die Größe der Datei in Bytes.
Grüße
Klaus