Delphi-Quellcode:
type
Daten = record
[...]
end;
Felder = Array [1..2600] of Daten;
procedure save(filename : string);
var F : File Of Daten;
dummy : Daten;
i : integer;
begin
AssignFile(F, filename);
rewrite(F);
If IOResult = 0 then
for i:= 1 to 2600 do
begin
dummy:= Felder[i];
write(F, dummy);
end
else "Fehlerausgabe"
CloseFile(F);
end;
Ich würde es aber präferieren, Literale zu vermeiden, damit Du bei einer
eventuellen Längenänderung des Arrays einfach nur 1 Konstante "max"
ändern müsstest und nicht jede Funktion einzeln!!!
Delphi-Quellcode:
const max = 2600;
type
Daten = record
[...]
end;
Felder = Array [0..max-1] of Daten;