TStringlist splitten, neues problem

[Michael80]

danke, werd ich sofort probieren!

---------------------------------------------------------------------

wunderbar, funktioniert einwandfrei

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  mastersl : TStringList;
  detailsl : TStringList;
  ndx     : Integer;  // Laufvariable für Master 
begin 
  mastersl := TStringList.Create; // Master StringList 
  detailsl := TStringList.Create; // Detail StringList 
  try
    detailsl.Delimiter := ',';   // Trennzeichen der Einträge pro Zeile
    mastersl.LoadFromFile('C:\KUNDE.txt');
    for ndx := 0 to Pred (mastersl.Count) do
    begin
      detailsl.Clear;
      detailsl.DelimitedText := mastersl.Strings[0];
      detailsl.savetofile('c:\test.txt');
      {with IBQuery1 do
      begin
        Close;
        SQL.Text := 'INSERT INTO KUNDENSTAMM(KDNR, ANREDE, VORNAME, NACHNAME, ZUSATZ, STRASSE,ORTSTEIL,PLZ,ORT,TELEFON,TELEFAX) VALUES (:wert1,:wert2,:wert3,:wert4,:wert5,:wert6,:wert7,:wert8,:wert9,:wert10,:wert11)';
        ParamCheck := True;
        ParamByName('wert1').AsString := detailsl.Strings[0];
        ParamByName('wert2').AsString := detailsl.Strings[1];
        ParamByName('wert3').AsString := detailsl.Strings[2];
        ParamByName('wert4').AsString := detailsl.Strings[3];
        ParamByName('wert5').AsString := detailsl.Strings[4];
        ParamByName('wert6').AsString := detailsl.Strings[5];
        ParamByName('wert7').AsString := detailsl.Strings[6];
        ParamByName('wert8').AsString := detailsl.Strings[7];
        ParamByName('wert9').AsString := detailsl.Strings[8];
        ParamByName('wert10').AsString := detailsl.Strings[9];
        ParamByName('wert11').AsString := detailsl.Strings[10];
        ExecSQL;
        end;
        IBTransaction1.Commit;}
    end;
  finally
    FreeAndNil (mastersl);
    FreeAndNil (detailsl); 
  end; 
end;