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

[Leon de Bar]

Ääähhh jaaa... )

Okay. ich schreib mal was mein prog bis her macht und dann weiß ich nicht mehr weiter wie ich es schreiben soll...

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
   try
      sl.LoadFromFile(DateiName);       //Datei in Stringliste laden
      AssignFile(F, OpenDialog1.FileName);
      Reset(F);
         Readln(F, S);
         Edit1.Text := S;

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

Sicher fehlen hier noch schleifen das ist klar. Kannst du damit was anfangen?