Mehrdimensionales, dynamisches Array speichern

[Bummi]

Ja, ich war wohl recht müde ....
[delphi]
writer.Write(A[i, x][1], SizeOf(Char) * Length(A[i,x]));

//bzw.

reader.Read(A[i, x][1],SizeOf(Char) * slen);
[delphi]

ist der richtige Code.

[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"

[himitsu]

Nein, TIniFile ist nicht für viele Daten gedacht, welche sich auch noch oft ändern.

(Begründung siehe anderer Thread)

PS: "HasRegel" schreibt man mit Doppel-S oder mit T.

[haentschman]

@himi:

Zitat:

PS: "HasRegel" schreibt man mit Doppel-S oder mit T.

... im Denglisch nicht.

[Maik81ftl]

Zitat von himitsu:

Nein, TIniFile ist nicht für viele Daten gedacht, welche sich auch noch oft ändern.

(Begründung siehe anderer Thread)

PS: "HasRegel" schreibt man mit Doppel-S oder mit T.

Deine Begründung in genanten Thread gelesen. und da hab ich mal eine Frage??? Wen zum Teufel kratzen denne Laufzeiten, wenn es auf die nicht in Geringsten ankommt???

wenn ich 'nen Programm schreibe, wo je ns Zählt, denne würde ich auch auf ein anderen Format umsteigen.

Zitat von haentschman:

@himi:

Zitat:

PS: "HasRegel" schreibt man mit Doppel-S oder mit T.

... im Denglisch nicht.

Jopp da hast du recht.

[Dunkelbunt27]

Hallo,

könnte mir vielleicht jemand mal eine Speichern und Laden-Prozedur für meine Variablen schreiben?
So komme ich momentan nicht voran...

Delphi-Quellcode:

type
  TBuchstabe = record
                      Zeichen : char;
                      attribut : byte;
                    end;
buchstabe : array of array of TBuchstabe;

Man kann folgendes verwenden:

Delphi-Quellcode:

SetLength(buchstabe,AnzahlZeilen+1,AnzahlSpalten+1);

for i := 1 to AnzahlZeilen do              // von 1 starten - nicht ändern!
    for n := 1 to AnzahlSpalten do
    begin
      buchstabe[i,n].Zeichen := ' ';
      buchstabe[i,n].attribut := 0;
    end;
  end;

Diesen Datensatz möchte ich möglichst unkompliziert in eine Datei packen UND auch wieder laden können, also aus den gespeicherten Daten der Datei das buchstaben-Array wieder befüllen.

Ich hoffe jemand kann helfen.

FG Dunkelbunt

[Bummi]

Delphi-Quellcode:

type
  TBuchstabe = record
                      Zeichen : char;
                      attribut : byte;
                    end;


TbuchstabenArray = array of array of TBuchstabe;

Procedure SaveTBuchstabenArray(b:TbuchstabenArray;const fn:String);
var
  fs:TFileStream;
  i,x,y:Integer;
begin
  fs:=TFileStream.Create(fn, fmCreate or fmShareDenyWrite);
  try
    x := High(b) + 1;
    y := High(b[0]) + 1;
    fs.Write(x,SizeOf(x));
    fs.Write(y,SizeOf(y));
    for i := low(b) to high(b) do
    fs.Write(b[i][0].Zeichen, y*SizeOf(TBuchstabe));
  finally
    fs.Free;
  end;
end;

Procedure LoadTBuchstabenArray(var b:TbuchstabenArray;const fn:String);
var
  fs:TFileStream;
  i,x,y:Integer;
begin
  fs:=TFileStream.Create(fn, fmOpenRead);
  try
    fs.Read(x,SizeOf(x));
    fs.Read(y,SizeOf(y));
    SetLength(b,x,y);
    for i := low(b) to high(b) do
    fs.Read(b[i][0].Zeichen, y*SizeOf(TBuchstabe));
  finally
    fs.Free;
  end;
end;