[gelöst] records für je einen Monat speichern

[MTB1Leo]

Hallo,

Ich möchte innerhalb eines Programms für jeden Monat vier records erstellen, welche alle samt gespeichert werden sollen.

Ist es möglich, dass man records ähnlich wie Felder ineinander schachtelt, also ein record als record eines anderen definiert?

Weil wenn ich ein Feld mit 12 Plätzen definiere kann ich das ja nicht speichern, oder?


Danke!

MTB1Leo

[theo]

Ist es möglich, dass man records ähnlich wie Felder ineinander schachtelt, also ein record als record eines anderen definiert?

Ich weiss nicht ob ich dich richtig verstehe, aber bei dem was ich verstehe, drängt sich mir die Frage auf: Warum probiertst du es nicht einfach aus?

[Mathias]

Weil wenn ich ein Feld mit 12 Plätzen definiere kann ich das ja nicht speichern, oder?

Das geht.

Beispiel:

Code: Alles auswählen

type
  TSpielstand = record
    s: ShortString;
    s2: string[255];
    Level, Leben, Munition: integer;
    Positon: record  // Verschachtelt
      x, y: integer;
    end;
  end;
 
  TSpielstandArray = array[0..10] of TSpielstand; 
 
 
procedure TForm1.saveClick(Sender: TObject);
var
  farray: file of TSpielstandArray;
begin
  AssignFile(farray, 'spielestandArray.dat');
  Rewrite(farray);
  Write(farray, SpielstandArray); // Der ganze Block wird gespeichert.
  CloseFile(farray);
end;     

[MTB1Leo]

Vielen Dank Mathias!