TClientDataSet füllen

[Uwe Raabe]

Kannst du nicht die einzelnen CSV-Dateien einmal alle durchlaufen um die Felder anzulegen und dann nochmal separat für den Import?

Delphi-Quellcode:

    CSVDataSet:=TClientDataSet.Create(nil);
    CSVDataSet.Active:=False;
    CSVDataSet.FieldDefs.Clear;
    for <all CSV files> do begin
      <load FieldNames>
      for i:=0 to FieldNames.Count-1 do begin
        if CSVDataSet.FieldDefs.IndexOf(FieldNames.Strings[i]) < 0 then
          CSVDataSet.FieldDefs.Add(FieldNames.Strings[i],ftWideString,255,False);
      end;
    end;
    CSVDataSet.CreateDataSet;
    CSVDataSet.Active:=True;