Mehrdimensionales, dynamisches Array speichern

[Maik81ftl]

Was gegen, wenn ich den hier mal ein Anstoß einwerfe???

Delphi-Quellcode:

procedure TRegel.SetYear(AValue: TYear);
var
  d, m: integer;
  s: string;
begin
  FYear := AValue;
  FFilename := Format('%s%d.%s', [FPath, FYear.Yaer, FExt+FYear.Benutzer.Name+' '+FYear.Benutzer.Lastname]);
  if FileExists(FFilename) then begin
    // Daten laden
     with TIniFile.Create(FFilename) do try
       for m := 1 to 12 do begin
         for d := 1 to 31 do begin
           s := Format('%.2d-%.2d', [m, d]);
           Items[d, m].HasRegel := ReadString(s, 'HasRegel', 'false');
         end;
       end;
     finally
       Free;
     end;
  end;
end;

sollte sich eigendlich von selbst erklären. must nur die variablen an deines anpassen.
zur not bitte via PN nachfragen.
würde denne in tewa so aussehen.

Code:

[01-05]
HasRegel=1
Stärke=Normal
Schmerz=Keine

[01-06]
HasRegel=1
Stärke=Normal
Schmerz=Keine

[01-07]
HasRegel=1
Stärke=Normal
Schmerz=Keine

[01-08]
HasRegel=1
Stärke=Leicht
Schmerz=Keine

zugegeben. ist ein Programmausschnitt aus meinem Aktuellen Projekt "Mestruationskalender"