Question about recursivity and DBF tables...
I have a Combobox with theses item values:
item 1: TABLE001
item 2: TABLE002
...
item 10: TABLE010
also i have 2 Array 10 elements... CHoiceArray and TableArray
Choice Array[0]:= 'TABLE001';
Choice Array[1]:= 'TABLE002';
...
Choice Array[9]:= 'TABLE010';
(This Array is required to build the Combobox item list)
and
TableArray[0]:= 'TABLE001.dbf';
TableArray[1]:= 'TABLE002.dbf';
...
TableArray[9]:= 'TABLE010.dbf';
All these .dbf tables are located in the same path C:\DBFTABLES\ or
(with Linux) /home/username/DBFTABLES/
when i select an item, i got a Combobox.Text equal at... TABLE005(...example)
sel: string;
sel:=trim(Combobox.Text)
After that i have to find wich element(or table name) are corresponding with
the user choice...
n:=0;
RESULT:=0;
for n=1 to 10 do
begin
if sel=trim ChoiceArray[n-1] then
RESULT:=n;
end;
and now i just openning the table
PATHNAM:='C:\DBFTABLES';
TABLENAME:=TableArray[RESULT-1];
Dbf1.FilePathFull := PATHNAM;
Dbf1.Tablename := TABLENAME;
Dbf1.TableLevel := 7;
Dbf1.Exclusive := False;
Dbf1.Open;
...
doing what we want to do... with TABLE005.dbf(example)
Dbf1.Close;
and now we want to let the user make another choice ...
resetting the ComboBox.Text with
Combobox.Text:= ChoiceArray[0]...
If the user choose another table... TABLE004.dbf (example)
we will get an error... an access error...
the Only way i found to solve the problem was the following...
re-lauchn the same program another time... and
close the actual program
Is it possible to have a DataAccess object Dbf1: TDbf;
with a variable name DbfXXX: Tdbf;?
Recent
