Mehrdimensionales, dynamisches Array speichern

[ASM]

Zitat von Bummi:

@ASM
IMHO sind meine die korrekten.

Nein sind sie definitiv nicht!!

Du kannst nicht die Fehlerfreiheit einer Codierung dadurch korrekt prüfen und angeblich nachweisen, wenn Du - wie Du es gemacht hast - die relativ komplizierte Struktur eines 2-dimensionalen Arrays an gerade mal einer einzigen Elementposition des Arrays testest.
Das ist nicht eine Frage rein theoretischer Interpretation, sondern vor allem eine der praktischen Prüfung.

Auf den Fehler in Deinem Code bin ich nämlich gerade dadurch aufmerksam geworden, nachdem ich das komplette 2D-Array mit unterschiedlichen Werten gefüllt hatte und dann folgendermaßen vorgegangen bin: zum einen nach programminternem Austausch per Memorystream zwischen zwei formal gleichen Arrayvariablen (A und B), zum anderen nach Abspeicherung des ersten Arrays (A) per Filestream in einem File und anschließenden Einlesen dieses Files per Filestream in das zweite Array (B), wobei sich ergänzend mit einem Hexeditor die im File gespeicherte Information exakt nachprüfen ließ.

Ergebnis:
Mit Deinem originalen Code wurde in beiden Verfahren nur Garbage sichtbar, und außerdem führte es zufallsbedingt an unregelmäßigen Arraypositionen zu Crash wegen Access violation.

Wie Du also zu Deiner jetzigen Verteidigung und Behauptung kommen kannst, ist mir rätselhaft. Vielleicht solltest Du es einmal kontrollieren mit meiner folgenden Erweiterung Deines Beispielcodes zur Anwendung:

Code:

procedure TForm1.Button2Click(Sender: TObject);
var
  a,b:T2DStringArray;
  i:Integer;
  ms:TMemoryStream;
begin
   ms:=TMemoryStream.Create;
   try
   SetLength(a,100,0);
   for I := Low(a) to High(a) do
    begin
       // hier ist im Original (SetLength(a[i],i) schon einmal ein Fehler:
       // bei i=0 wäre das Array a[0,0] an dieser Stelle sonst nur 1-dimensional!,
       // der Versuch einer Belegung führt unweigerlich zum Crash
       // also muss entweder die Länge der zweiten Dimension auf mindestens 1
       // gesetzt werden oder es müsste eine Sicherheitsabfrage auf das Element A[i,0]
       // erfolgen
       SetLength(a[i],i+1);
       a[i][random(i)]:=char(32+1);
   end;
   a[19,5] := 'Haus';
   a[59,2] := 'Dies ist ein Test';
   Save2DArray(a,ms);
   // hierdurch wird unmissverständlich sichtbar,
   // wie verheerend der originale Code sich auswirkt!
   // Da das Array A ja ab hier nicht mehr benötigt wird,
   // darf seine Eliminierung in der folgenden Anzeige der Elemente des Array B
   // keinerlei Folgen haben;  ist das so bei Deinem Code ?
   setlength(a,0,0);
   ms.Position := 0;
   Load2DArray(b,ms);
   Showmessage(format('%s'#13#10'%s',[b[19,5], b[59,2]]));
   finally
     ms.Free;
   end;
end;

Was passiert wohl, wenn Du das Ergebnis der entsprechende Anwendung unter Verwendung Deiner Originalunit vergleichst mit der von mir korrigierten Version der Unit ?

Ach ja, und im übrigen stammt der von Dir gepostete Code in seinem Kern eigentlich nicht von Dir (bzw. von einem Thomas Wassermann ?), sondern von einem P.Below aus dem Jahre 2003, der den Code unter dem Titel "Save and load a 2-dimensional dynamic array" in Torry's Delphi Pages veröffentlicht hatte (http://www.swissdelphicenter.ch/torr....php?id=1971); leider ist diese Urheberschaft in Deiner Unit nirgendwo erwähnt. Bei diesem Code ist der von Dir eingebrachte Fehler allerdings nicht relevant, da der Autor das 2D-Array nicht mit einem T2DStringArray, sondern mit einem T2DBooleanArray entworfen hat. Dieser Code wurde in Deiner Unit uReadWrite_2D_Arrays.pas exakt übernommen und allein der Typ des Arrays ohne jede Rücksicht auf notwendige weitere Anpassung ausgetauscht.

[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