Record Verwalten - Wie am besten ?

[turboPASCAL]

Hi,

ich mochte einen/mehrere Record(s) verwalten. Ich habe das jetzt mit einem dyn. Array gelöst,
was mir aber nicht so gefällt. Ich habe da an TList gedacht komme aber nicht so recht voran.

Ich möcht in der Liste auf den Record über einen Index, was ja nun eion Problem ist, aber auch
über einen Namen zugreifen können und da fällt mir nix ein...

Pseudocode

Code:

type
  myRecord = record
    Handle: int
    Titel: string
  end;

type
  myRecordList = List of myRecord


begin
  myRecordList.add(Handle1, 'Abc');
  myRecordList.add(Handle2, 'Def');
  myRecordList.add(Handle3, 'Ghi');

  
  // holen per List-Index //
  anyHandle :=  myRecordList[Idx].Handle
  anyTitel  :=  myRecordList[Idx].Titel

  // holen per List-Index //
  anyHandle :=  myRecordList.GetFromTitle('Abc').Handle

  // Löschen
  myRecordList[Idx].Delete;
  myRecordList[ myRecordList.GetFromTitle('Abc').Index ].Delete;
end.

So eine (fasst) fertige oder ähnliche Klasse gibt es nicht in Delphi gelle ?

[BUG]

Klingt irgendwie nach einem Dictionary, besonders wenn du denn Index nur zum Durchlaufen brauchst.

[Elvis]

Zitat von BUG:

Klingt irgendwie nach einem Dictionary, besonders wenn du denn Index nur zum Durchlaufen brauchst.

+1
Alzaimars Klassen sind alles andere als "fett". Wer seine Beiträge kennt, weiß wie wichtig ihm Performance ist.
Und seine kleinen Hashlisten sind mehr zackig genug. Wenn du Zugriff zu neueren Delphis hast, kannsu dir TDictionary<int, String> ankieken.
Bis dahin ist sein TIntegerDictionary so ziemlich das wassu willst.

Zitat von himitsu:

Zum Glück gibt es inzwischen (seit D2009) auch noch die generische TList<>, welche da vieles vereinfacht.
(auch wenn dieses eine kleine und manchmal gemeine Einschränkung besitzt, was das nachträgliche Ändern eines Recordinhaltes betrifft )

Records sind Werte, keine Objekte und erst recht keine "Entitäten". Und in fast jedem Fall sollten Werte unveränderlich sein. Will heißen, dass eine Änderung eine veränderte Kopie liefern sollte. Nur so ist klar was unter der Haube tatsächlich passiert.

Delphi-Quellcode:

var x, y TDeinRecord;
begin
  x.Abc := 1;
  y := x;
  x.Abc := 2
  Assert(y.Abc = 2, 'Ja y.Abc = 1, denn y hat bekam ja auch eine KOPIE, so arbeiten reine *Werte* nunmal.');
end;

http://stackoverflow.com/questions/441309/why-are-mutable-structs-evil
Wer Records als Objekte missbraucht, weil er keinen Bock auf Speicherverwaltung hat, hat die falsche Laufzeitumgebung gewählt.

[patti]

Hm, spontan würde mir da ein Assoziatives Array oder eine Hashtable einfallen, allerdings kenn ich keine Implementierungen dafür in Delphi und ich weiß auch nicht, ob man dann zusätzlich zum Schlüssel auch noch per Index auf die einzelnen Elemente zugreifen kann...

Edit: BUG war mit seinem Dictionary schneller. Das scheint alle Anforderungen zu erfüllen - und baut auf dem Hashtable-Prinzip auf

[turboPASCAL]

Hm, so etwas "fettes" wollt ich ja nun nicht.

Ich muss mal sehen ob man da was von TStringlist o.ä. ableiten kann.

[BUG]

Evtl. ist funktioniert Objects in TStringList.

[brechi]

Für String und Integer kann man wirklich eine TStringList mit Objects missbrauchen
AddObject('test', Pointer(1234));

[BUG]

Zitat von brechi:

Für String und Integer kann man wirklich eine TStringList mit Objects missbrauchen
AddObject('test', Pointer(1234));

Oder eben Zeiger auf Records