Using D4 C/S and Paradox Tables...

I am currently doing the following in a function which works ok:

          case Photo1Combo.ItemIndex of
               0 : begin
DM.AssessmentsPhoto01.LoadFromFile(openDialog1.filename);
                   end;
               1 : begin
DM.AssessmentsPhoto02.LoadFromFile(openDialog1.filename);
                   end;
               2 : begin
DM.AssessmentsPhoto03.LoadFromFile(openDialog1.filename);
                   end;
.
.
.

              29 : begin
DM.AssessmentsPhoto30.LoadFromFile(openDialog1.filename);
                   end;
          end;

I want to be able to do this in one statement if possible. The
following compiles but gets an exception error when executed:

TBlobField(FindComponent('DM.AssessmentsPhoto0'+IntToStr(Photo1Combo.ItemIndex+1))).LoadFromFile(openDialog1.filename);

Can someone explain why and/or how to make this work please...

Thanks in advance,

var    bf    : tBlobField;

An example with 30 images:

var Images:array[1..30]of integer;

eg.by FormCreate:
var i, counter: integer;
begin  
   counter:=1;
   for i:=0 to ComponentCount-1 do
       if TObject(Form1.Components[i]) is TImage then begin
          Images[counter]:=i;
          inc(counter);
       end;
...

TImage(components(Images[Photo1Combo.ItemIndex])).LoadFromFile(OpenDia...);

You can do the same for all kind of components.

Cheers,
Rudy
============================
Robbie schreef: