gesucht: Log-Liste mit Schlüssel-Wert und Parent pro Eintrag

[DeddyH]

Nunja, soll ich jetzt eine fertige Lösung präsentieren? In Delphi gibt es ja bereits Serialisierer/Deserialisierer für JSON, die könnte man sich ja einmal anschauen. Sollte einem das nicht genügen, muss man sich halt (ggf. unter Verwendung von jeder Menge RTTI) selbst etwas schreiben. Oder man verzichtet komplett auf ein menschenlesbares Format und baut sich z.B. eine Klassenstruktur auf, bei der jede Klasse in einen (von der obersten Klasse bereitgestellten) Stream schreibt bzw. daraus liest.

[omnibrain]

Intern mit JSON zu arbeiten halte ich für nicht zielführend.
Warum keine Generics-Collections?
Einfach TDictionary<key,value> schachteln.

Eines ist: TArtikellog<Artikelnummer: integer,LogEintraege: TStringlist>
Das andere ist: TKundenlog<Kundennummer: integer,Artikellog: TArtikellog>

Logeinträge kann natürlich auch was komplexeres sein, im Extremfall wieder ein TDictionary)

[himitsu]

XML oder JSON als Liste zur Datenhaltung:
XML vielleicht, aber die JSON-Impementation von Delphi ist grauenhaft und nicht dafür gemacht geändert zu werden.


Da es nur 3 Felder sind
TDictionary<{Key=.Key}Integer,TPair<{Parent=.Value.Key}Integer,{Name=Value.Value}string>>

Ansonsten ein TDictionary<> oder TList<> mit einem Record (wenn man die einzelnen Record-Werte oft ändern, oder nicht jedesmal den ganzen Record tauschen will, dann eben ein Data-Object und eine ObjectList)

Delphi-Quellcode:

TDataRec = record
  //Key:  Integer;
  Parent: Integer;
  Name:   string
  constructor Create(Key, Parent: Integer; Name: string);
end;

List.Add(TDataRec.Create(4711, -1, 'abc'));
List.Add(TDataRec.Create(0815, 4711, 'Bezeichnung fehlt'));
// oder
Dict.Add(4711, TDataRec.Create(-1, 'abc'));
Dict.Add(0815, TDataRec.Create(4711, 'Bezeichnung fehlt'));
// oder
...

[raller09]

Moin,

vielen Dank für eure Antworten. Ich brauchte tatsächlich einfach noch mal Ideen/Hinweise, wie ich das umsetzen soll...

Zitat von omnibrain:

Intern mit JSON zu arbeiten halte ich für nicht zielführend.
Warum keine Generics-Collections?
Einfach TDictionary<key,value> schachteln.

Eines ist: TArtikellog<Artikelnummer: integer,LogEintraege: TStringlist>
Das andere ist: TKundenlog<Kundennummer: integer,Artikellog: TArtikellog>

Logeinträge kann natürlich auch was komplexeres sein, im Extremfall wieder ein TDictionary)

Denke, so werde ich das auch machen. Danke.


@Kas Ob.
Danke für die ausführliche Antwort. Ich werde das aber wohl mit den generischen Klassen umsetzen.

Zitat von mytbo:

Schaue dir mal den Quelltext des Beispiels aus diesem Artikel an. Vielleicht findest du dort eine Idee für die Umsetzung.

sehe ich mir an.


Danke