TUniLoader TCRLoaderColumn miss IsAutoIncrement property
Posted: Tue 29 Aug 2017 13:20
Hi Support
I Need use TCRLoaderColumn .can you Add IsAutoIncrement property ??
var
Count, I, J: Integer;
FieldName: string;
begin
Count := TDALoader(Sender).Columns.Count;
largeDataSet.DisableControls;
try
largeDataSet.First;
J := 1;
while not largeDataSet.Eof do
begin
for I := 0 to Count - 1 do
begin
if TDALoader(Sender).Columns.FieldType = ftAutoInc then -- mysql db columns is autoinc ,but TDALoader is ftInteger
Continue;
FieldName := TDALoader(Sender).Columns.Name;
if largeDataSet.FindField(FieldName) <> nil then
begin
if largeDataSet.FieldByName(FieldName).DataType = ftAutoInc then
Continue; ---
Sender.PutColumnData(I, J, largeDataSet.FieldByName(FieldName).Value);
end;
end;
J := J + 1;
largeDataSet.Next;
end;
finally
largeDataSet.EnableControls;
end;
end;
I Need use TCRLoaderColumn .can you Add IsAutoIncrement property ??
var
Count, I, J: Integer;
FieldName: string;
begin
Count := TDALoader(Sender).Columns.Count;
largeDataSet.DisableControls;
try
largeDataSet.First;
J := 1;
while not largeDataSet.Eof do
begin
for I := 0 to Count - 1 do
begin
if TDALoader(Sender).Columns.FieldType = ftAutoInc then -- mysql db columns is autoinc ,but TDALoader is ftInteger
Continue;
FieldName := TDALoader(Sender).Columns.Name;
if largeDataSet.FindField(FieldName) <> nil then
begin
if largeDataSet.FieldByName(FieldName).DataType = ftAutoInc then
Continue; ---
Sender.PutColumnData(I, J, largeDataSet.FieldByName(FieldName).Value);
end;
end;
J := J + 1;
largeDataSet.Next;
end;
finally
largeDataSet.EnableControls;
end;
end;