Question

I need a class similar to TStringList that could manage name & value pairs, but the value part is variant. Or perhaps it has a property like TStringList.Object but holds variants instead of objects.

Could anyone please point me to a free or open source implementation? I use Delphi 7.

Thank you.

Answer 1

PVariantRec = ^TVariantRec;
TVariantRec = record
  Value : Variant;
end;

var
  lItem : PVariantRec;
  lMyStringList : TStringList;

lMyStringList := TStringList.Create;
lMyStringList.Sorted := true;
lMyStringList.OwnObjects := false;

//add
New(lItem);
lItem.Value := 'zzz';
lMyStringList.Add('name', TObject(lItem));

//remove
lItem := PVariantRec( lMyStringList.Objects[0] );
Dispose(lItem);
lMyStringList.Delete(0);