Dump af array-indhold til en fil

Hvad indeholder dit array?

integers. Kom forresten til at skrive at det var 3-dimensionelt, arrayet er kun i 2 dimensioner

private
  Hest: array [1..10, 1..10] of Integer;

procedure SaveToFile(FileName: String);
var
  F: File of Integer;
  I, J: Integer;
begin
  AssignFile(F, FileName);
  Rewrite(F);
  for I := 1 to 10 do
    for J := 1 to 10 do
      Write(F, Hest[I, J]);
  CloseFile(F);
end;

procedure LoadFromFile(FileName: String);
var
  F: File of Integer;
  I, J: Integer;
begin
  AssignFile(F, FileName);
  FileMode := fmOpenRead;
  Reset(F);
  for I := 1 to 10 do
    for J := 1 to 10 do
      Read(F, Hest[I, J]);
  CloseFile(F);
end;

Noget i den retning...
Hvis du bruger et dynamisk array bør du smide en count-værdi ind før du skriver tallene...

//hermandsen

Ok, jamen pointene ser ud til at være dine, men hvordan mener du jeg skal smide en count i mit dynamiske array? skal jeg reservere en plads i arrayet til en counter?

Nej du skal bare skrive den ned i filen, så du ved hvor mange poster du skal læse næste gang du åbner filen! ;)

Du kan bruge High(array) til at få antallet af poster i et array! ;)

//hermandsen