Dynamic array in delphi

Question

I have created an packaged object (TMyComponent) of TLabel and TCombobox in delphi 7. I have created an dynamic array(MyArray) of TMyComponent. Now on Add button click I have increamented length of MyArray and create object of TLabel and TCombobox and displayed on screen. If I have added 5 components, How we can get current selected component of Myaaray means if i selected 3rd component from screen then how can i get value 3 in return? thanks for help

David Heffernan · Accepted Answer · 2011-09-30 07:14:10Z

3

I think you are looking for a function like this:

function FindMyComponentIndex(
  Selected: TMyComponent; 
  const Components: array of TMyComponent
): Integer;
begin
  for Result := low(Components) to high(Components) do 
    if Components[Result]=Selected then
      exit;
  Result := -1;
end;

I trust it will be obvious how to call this function.

edited Sep 30, 2011 at 7:14

answered Sep 30, 2011 at 6:38

David Heffernan

616k46 gold badges1.1k silver badges1.5k bronze badges

Sign up to request clarification or add additional context in comments.

5 Comments

Nalu Over a year ago

thanks david. i will try it. Can we pass integer value in OnSelect event of TComboBox?

David Heffernan Over a year ago

I don't understand that question

Nalu Over a year ago

Onselect event of TCombobox have parameters (Sender:TObject). can we pass any other parameter along with Sender?

David Heffernan Over a year ago

You can't change parameter lists for built in events. You could read information out of sender perhaps.

user497849 Over a year ago

@naren you should post another question, however you could do a cast on the sender and use Tag property to store an integer value, i.e. TComboBox(Sender).Tag

Collectives™ on Stack Overflow

Dynamic array in delphi

1 Answer 1

5 Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

5 Comments

Your Answer

Sign up or log in

Post as a guest

Related