TClientDataSet füllen

[DelTurbo]

Hi,
ich habe es vergessen. Und ich finde nichts dazu. Vielleicht bin ich auch zu dumm.

Zur Sache:
Ich habe diverse CSV Dateien. In jeder CSV steht eine ID und dazu diverse Daten. Nun müsste ich die Daten anhand der ID in eine CSV packen.

Beispiel:
Datei 1: ID,Name,Alter
Datei 2: ID,Geschlecht,Groesse

Rauskommen soll eine Datei die so aussehen müsste:
ID,Name,Alter,Geschlecht,Groesse

Nun dachte ich, da ich nichts finde womit ich eine CSV bearbeiten kann (ich müsste die ID in Datei1 finden und die Daten von Datei2 natürlich anhand der ID erweitern), ich lese die CSV (sowas habe ich gefunden) und packe die in ein TClientDataSet. Ich bekomme es einfach nicht hin. Ich hoffe doch das man wenn das DataSet mit der ersten Datei gefüllt ich, man Spalten erweitern kann.

Da ich nicht über die IDE die Felder erstellen kann, habe ich folgendes gemacht. Und das klappt sogar.

Delphi-Quellcode:

   CSVDataSet:=TClientDataSet.Create(nil);
    CSVDataSet.Active:=False;
    CSVDataSet.FieldDefs.Clear;
    for i:=0 to FieldNames.Count-1 do begin
      CSVDataSet.FieldDefs.Add(FieldNames.Strings[i],ftWideString,0,False);
    end;
    CSVDataSet.CreateDataSet;
    CSVDataSet.Active:=True;

Dann wollte ich eine Schleife durchlaufen die das DataSet füllt. Ich habe nur nullen drin.

Die Schleife:

Delphi-Quellcode:

    while ( not CSVFile.Eof ) do begin
      for i:=0 to Fieldnames.Count-1 do begin
        CSVDataSet.Append;
        CSVDataSet.FieldByName(Fieldnames.Strings[i]).AsString:=CSVFile.FieldByName[Fieldnames.Strings[i]];
        CSVDataSet.Post;
      end;
      CSVFile.Next;
    end;

Es dauert sehr lange und es klappt halt nicht. Sind über 120.000 CSV-Zeilen und 29 Spalten.

Vielleicht hat jemand eine Idee was ich nun schon wieder falsch mache. Ich sehe im Taskmanager wie das Programm immer mehr Speicher braucht. Aber bei TClientDataSet.SavetoFile sehe ich nur die Spaltennamen. Der Rest ist "schrott".

Vielen Dank im voraus