Integer in ListItem eines ListViews speichern

[DeddyH]

Nochmal zum Unterschied: im Beispielcode wurde wie gesagt der Pointer dazu missbraucht, eine 4-Byte-Zahl zu hinterlegen, der Pointer an sich zeigte aber nirgends hin. Du kannst aber natürlich einen echten Pointer dort ablegen, der auch auf echte Daten zeigt, ob da nun 8 oder 2.000.000 Bytes dahinterstecken, spielt keine Rolle. Zum Freigeben dieser Daten dürfte dann das OnDeletion-Ereignis der ListView die richtige Stelle sein, wenn ich nicht irre.

[Schwedenbitter]

Richtiger wäre also so etwas in der Art:

Delphi-Quellcode:

Interface

Type
   TInt64Obj   = Class(TObject)
               Private
                  FValue   : Int64;
               Public
                  Constructor Create(Const Value: Int64);
                  Property Value: Int64 Read FValue Write FValue;
               End;

Implementation

Constructor TInt64Obj.Create(Const Value: Int64);
Begin
   Inherited Create;
   FValue:=Value;
End;

Procedure ErzeugeEintrag(Value: Int64);
Begin
   With MyListView.Items.Add Do
   Begin
      Caption:=FormatFloat('0,', FileSize);
//    Data:=Pointer(FileSize);  // <- reicht nicht aus, wie festgestellt wurde.
//
// Wie bekomme ich mein Int64 in das Item?
//
// Es gibt im Gegensatz zu z.B. TCheckListBox kein Items.AddObject();
// in TCheckListBox hatte ich z.B. mal neben dem Eintrag weitere Strings gespeichert...
      SubItems.Add(FileName);
   End;
End;

Function LiesEintrag(Index: Integer): Int64;
Begin
   Result:=TInt64Obj(MyListView.Items[Index].Data).Value;
End;

[DeddyH]

Delphi-Quellcode:

Procedure ErzeugeEintrag(Value: Int64);
var
  Int64Obj: TInt64Obj;
Begin
   Int64Obj := TInt64Obj.Create(value);
   With MyListView.Items.Add Do
   Begin      
      Caption:=FormatFloat('0,', FileSize);
      Data := Int64Obj;
      SubItems.Add(FileName);
   End;
End;

[Schwedenbitter]

So klappt es - tausend Dank.
Ich habe den Code im Beitrag davor auch noch bereinigt, was das LiesEintrag; anbelangt.

[DeddyH]

Man könnte in LiesEintrag auch noch auf Assigned abfragen, bevor man auf die Properties zugreift Und wie vorher schon gesagt: im OnDeletion der ListView das Objekt in Data wieder freigeben, das sollte IMO passen.