Hola.
Tenes que leer el archivo csv en un
TStringList y sabiendo que la primer linea corresponde a la cabecera de columnas, operar en consecuencia.
Ejemplo simplificado usando la tabla Customers.csv (que viene con Delphi)
Código Delphi
[-]
...
var
T1,T2: TStrings;
i,j: Integer;
begin
T1 := TStringList.Create;
try
T1.LoadFromFile('Customers.csv');
for i := 1 to T1.Count-1 do
begin
T2 := TStringList.Create;
ExtractStrings([';'], [' '], PChar(T1[i]), T2);
try
DataSet.Insert;
for j := 0 to DataSet.FieldCount-1 do
DataSet.Fields[j].AsString := StringReplace(T2[j],'"','',[rfReplaceAll]);
DataSet.Post;
finally
T2.Free;
end;
end;
finally
T1.Free;
end;
end;
Saludos