CSV --> Stringlist --> Stringlist zerlegen --> in DB auft.

[mkinzler]

Delphi-Quellcode:

var
   sl: TStringList;
   zeilennr: integer;
   DateiName, S: String;
   F: TextFile;

begin
   OpenDialog1.Execute;                 // Das Ergebnis steht in FileName
//   ShowMessage(OpenDialog1.FileName);
   DateiName := OpenDialog1.FileName;   //Der Pfad wird in die Datei gestellt
//   ShowMessage(DateiName);
   sl:=TStringList.Create; //Objekt erzeugen
   sl.Delimiter := ';';
   try
      //sl.LoadFromFile(DateiName);       //Datei in Stringliste laden
      AssignFile(F, OpenDialog1.FileName);
      Reset(F);
      Readln(F, S); //Erste Zeile laden
      sl.DelimitedText := s; //Zeile der StringListe zuweisen, nun kann man mit der Eigenschaft Count die Anzal der           Spalten auslesen, die Spaltenname sthen dann in der Stringliste 
      //sl.Strings[0] enthält Namen erste Spalte usw. 
      While not Eof(F) do //Daten laden
      begin
         Readln(F, S);
         Edit1.Text := S;
          sl.DelimitedText := s; // Datenzeile wird in Stringliste geschrieben -< Auslesen wie Kopfspalte
      end;

   finally
      sl.free; //Objekt wieder freigeben
end;