nach liste.free -> EConvertError

[Die Muhkuh]

aber ich wenn ich zu guter letzt die liste leeren will, dann tritt eine EConvertError Expetion auf.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
i : integer;
zeilen : tstrings;
sql_query : string;

begin
   richedit1.Lines.Add('Start des Verarbeitungsvorgangs!');
   zeilen := tstringlist.Create;
   trans.Active := true;

   try zeilen.LoadFromFile(edit1.Text);
       for i :=0 to zeilen.Count-1 do
               begin
                sql_query := zeilen[i];
                sql.SQL.Clear;  //Hm ist hier der Fehler?
                sql.SQL.Add(sql_query);
                sql.ExecQuery;
                end;
   finally
      begin
         zeilen.Free;
         richedit1.Lines.Add('Daten OK');
         trans.Commit;
         sql.Close;  //Wenn hier der Fehler hier ist dann mach davor noch sql.Free
      end;

      richedit1.Lines.Add('================================================================');
      richedit1.Lines.Add(IntToStr(zeilen.count)+' Datensätze in Datenbank geschrieben!');
      richedit1.Lines.Add('================================================================');
   end;

end;

[/quote]

So oben hab ich die (vielleicht) Lösung hingeschrieben!