Das ist ja kaum was :
Delphi-Quellcode:
// Memo1.Lines.add (TimeToStr (time));
DS.Prepare;
DS.open;
WHILE NOT Eof (t) DO BEGIN
i := i + 1;
// Memo1.Lines.Add(IntToStr (i));
DS.Insert;
NR := LeseIntFeld5; // Nr. aus Textzeile lesen
DS.FindField ('NR').AsInteger := NR;
Prepare wirkt sich nicht aus. Zumindest so nicht.
