any way to enumerate component names? 2

[CADTenchy]

Hi,

In my app I have a whole bunch of comboboxes.
When the user has put some text in all of these I want to run some validation on the combobox text, and depending on the results, process it.
In each case the same validation procedure could be used.

If I had
ComboBox0
ComboBox1
ComboBox2
ComboBox3
to
ComboBox25

what I would like to do is something like

for count = 0 to 25 do
begin
   validate(ComboBox[count].text);  [COLOR=green]//where validate() is my validation procedure that needs the text of each combobox passing to it[/color]
   If result then Strings[count] := ComboxBox[count].Text
end;

Is this possible in any way?



Steve (Delphi 2007 & XP)

 

[Glenn9999]

Yes. With TComponent.

This throws a string up on every TMemo in the form.

procedure TForm1.FormCreate(Sender: TObject);
var
  i: integer;
  Temp: TComponent;
  TempMemo: TMemo;
begin
  for i := 0 to Form1.ComponentCount-1 do
    begin
      Temp := Form1.Components[i];
      if (Temp is TMemo) then
        begin
          TempMemo := TMemo(Temp);
          TempMemo.Lines.Add(Temp.name + ' is added.');
        end;
    end;
end;

 

[DelphiAaron]

you can also put them into an array.

MyCombos: array [0..3] of TComboBox;

form create

MyCombos[0] := ComboBox1;
MyCombos[1] := ComboBox2;
MyCombos[2] := ComboBox3;
MyCombos[3] := ComboBox4;

for i := 0 to 3 do MyCombos[i].property := yada;

Aaron

 

[CADTenchy]

Thanks guys, both of those methods are extremely useful!


Steve (Delphi 2007 & XP)