THashedStringList - do we have it still?

[Nicole]

This is done
- a method calls a function
- this function does a query with a unknown count of results and returns them at the moment in a THashedStringList.
Each "hit" has naturally a primary key, which is known by the function
- the calling method writes the function's results (=the THasedStringList) into a TListView
- the user clicks one line of the TListView and triggers the ListView's click-Event.

How to get the primary key into the ListView's click-Event?!

My idea was, that it shall be saved in the returned HashStringList.
Unfortunately I neither know, how to key in the primary keys as values.
Nor do I know, how to grab those values, after having added the words to the TListView.

In other words:
I need a way to get the primary key into the click event of the TListView.

I am thankful for any syntax, how to read and write a HasehdStringList.
As well as better ways to do it.


In the meanwhile I found a better documenation.
https://www.freepascal.org/docs-html/fcl/inifiles/thashedstringlist.indexof.html

[cdbc]

Hi
Hmmm, there's always the 'Data' property of 'TListItem', you can use, it's a pointer so you can put anything in it. It's easily accessible when clicked...
Regards Benny

[Nicole]

The pointer won't work stable. The database query result is nothing, which I dare to trust, the pointer will point there after a while still.

[cdbc]

Hi
Where should it run off to...?  It doesn't know anybody... 
Regards Benny

[Martin_fr]

Create your own list from a generic list... Then you can store any data you need, as long as you need.

In the ListView, in the "Data" just store the index of the entry in the created list.  (Or store "index + 1", so you can have zero/nil as detectable "not set")

[Nicole]

How to?

The first step is:
set the pk in the function, this should be:
result.     ????????   :=primaryKey;

second
get it to the ListView1 by
ListView1.???????????  :=HashedStrinList1.???

third
read it in the ListView1ClickEvent
pk:=ListView1.?????????

[Martin_fr]

Without running syntax checks...

Code: Pascal  [Select][+][-]

1. uses fgl;
2. {$modeswitch advancedrecords}
3. type
4.   TMyFooData = record
5.     PKey: TPKeyType; // int / string/ ....
6.     Text: string;
7.     // ... other data
8.  
9.     class operator = (Item1, Item2: TMyFooData): Boolean;
10.   end;
11.  
12.   TMyList = specialize TFPGList<TMyFooData>;
13.  
14. ////// for each item
15. var
16.   Data: TMyFooData;
17.   Lst: TMyList;
18. begin
19.   Data.PKey := ...
20.   Data.Text := the_text;
21.   idx : Lst.Add(Data);
22.   ListView.AddObject(the_text, TObject(PtrUint(idx)));
23.  
24.  

[Martin_fr]

In the click-event you should be able to get the itemindex of the clicked item.

and then (something like).

Code: Pascal  [Select][+][-]

1. idx := ptruint(ListView.items.objects[itemindex])

I am not sure if the property is "items". But afaik/iirc there is an interface to store/retriev objects with each displayed item.

[paule32]

seems that Nicole would like do some documenting stuff ?
is'n it ?

get in touch with me to extend the people on a project of me (us).

[Thaddy]

The items property is default afaik so you can notationally skip it.