Hallo Dominik.
Fehler entstehen bei der gezeigten Vorgehensweise zwangsläufig, wenn der Inhalt der Dateien mehrzeilig ist. Das aufnehmende Tabellenfeld ist doch bestimmt ein TMemoField? Dann würde ich es so probieren:
Delphi-Quellcode:
begin
// ...
error := FindFirst(pfad + '*.txt', faAnyfile, sr);
while error = 0 do
begin
Inc(anzahl);
dateiname := pfad + sr.name;
id := ...; // damit du nicht immer den gleichen Datensatz änderst
// label1.Caption := IntToStr(anzahl);
// Memo1.Lines.LoadFromFile(dateiname);
with command do
begin
CommandText := 'UPDATE Tabelle SET Daten = :text WHERE Id = :id';
Parameters.ParamByName('text').LoadFromFile(dateiname);
// Parameters.ParamByName().AsInteger := id; // ohne Parametername geht es nicht
Parameters.ParamByName('id').AsInteger := id;
Execute;
end;
error := FindNext(sr);
end;
FindClose(sr);
end;
Getippt und nicht getestet.
Grüße vom marabu