ich habe eine textdatei, wo ich
SQL-Befehle drin stehen hab.
diese lese ich in eine stringlist ein und sende jeden eintrag in eine
DB.
das klappt auch alles soweit.
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;
sql.SQL.Add(sql_query);
sql.ExecQuery;
end;
finally
begin
zeilen.Free;
richedit1.Lines.Add('
Daten OK');
trans.Commit;
sql.Close;
end;
richedit1.Lines.Add('
================================================================');
richedit1.Lines.Add(IntToStr(zeilen.count)+'
Datensätze in Datenbank geschrieben!');
richedit1.Lines.Add('
================================================================');
end;
end;