Logo Questions Linux Laravel Mysql Ubuntu Git Menu
 

How do I associate a record with a TListBox item?

Tags:

listbox

delphi

I have one record type. I want to add the variable of that record type in TListbox and retrieve it on click event of TListbox. Is it possible? If yes then how?

I added it using

lstbox.AddItem(data,myrec);

It shows error of incompatible types. data is string and myrec is variable of MyRecord which I have created.

For adding:

New(fptr1);
ZeroMemory(fptr1,sizeof(fptr1^));
fptr1^ := fptr^;
lstboxLeft.AddItem(path,TObject(fptr1));

For retrieve:

fptr := PData(lstboxLeft.Items[lstboxLeft.ItemIndex]);
like image 292
Himadri Avatar asked Dec 06 '22 01:12

Himadri


2 Answers

AddItem takes a TObject as the second parameter and a record is not an object. You could either make your record a TObject instead (usually the best solution) or cast the record to an object.

Here is a working example using records:

type
  PMyRec = ^TMyRec;
  TMyRec = record
    I : integer;
  end;

procedure TForm1.FormCreate(Sender: TObject);
var
  P : PMyRec;
begin
  New(P);
  P.I := 42;
  ListBox1.AddItem('One',TObject(P));
end;

procedure TForm1.FormDestroy(Sender: TObject);
var
  I : integer;
begin
  //Free memory
  for I := 0 to ListBox1.Items.Count - 1 do
    Dispose(PMyRec(ListBox1.Items.Objects[I]));
end;

procedure TForm1.ListBox1Click(Sender: TObject);
var
  P : PMyRec;
begin
  P := PMyRec(ListBox1.Items.Objects[ ListBox1.ItemIndex ]);
  ShowMessage( IntToStr(P.I) );
end;
like image 147
Ville Krumlinde Avatar answered Jan 06 '23 22:01

Ville Krumlinde


Type    
  PMyrec = ^MyRecord;
var
  MyRec : PMyRec;  
begin
  new(MyRec);
  //fill MyRec 
  lstbox.AddItem(data, TObject(myrec));

  //Dispose
like image 20
SimaWB Avatar answered Jan 06 '23 20:01

SimaWB