Daten behalten in Delphi

[Amateurprofi]

Zitat von Arathok:

es ist standart mäßig nach

array[1..12] of array[1..31] of string; aufgebaut jo.

jetzt brauch ich nur noch hilfe wie genau ich den record abspeicherer oder ob es nicht vielleicht noch anders geht...

Vielleicht so :

Delphi-Quellcode:

var data:array[1..12] of array[1..31] of string;

PROCEDURE SaveData;
var f:File; m,d,len:integer;
begin
   AssignFile(f,'data.bin');
   Rewrite(f,1);
   for m:=1 to 12 do
      for d:=1 to 31 do begin
         len:=Length(data[m,d]);
         BlockWrite(f,len,SizeOf(Len));
         if len>0 then BlockWrite(f,data[m,d,1],len);
      end;
   CloseFile(f);
end;

PROCEDURE LoadData;
var f:File; m,d,len:integer;
begin
   AssignFile(f,'data.bin');
   Reset(f,1);
   for m:=1 to 12 do
      for d:=1 to 31 do begin
         BlockRead(f,len,SizeOf(Len));
         SetLength(data[m,d],len);
         if len>0 then BlockRead(f,data[m,d,1],len);
      end;
   CloseFile(f);
end;