I am trying to get the names of all the fields in a VirtualTable, I am doing something like:
Code: Select all
for i := 0 to VirtualTable.FieldCount - 1 do
begin
field_names := field_names + ',' + VirtualTable.?[i]
end
Thank you
Code: Select all
for i := 0 to VirtualTable.FieldCount - 1 do
begin
field_names := field_names + ',' + VirtualTable.?[i]
end
Code: Select all
var
i : Integer;
begin
VirtualTable1.Open;
for I := 0 to VirtualTable1.FieldCount - 1 do
ShowMessage(VirtualTable1.Fields[i].FieldName);
end;