Einlesen von alten Datensätze (Textdatei) in Datenbank

[DeddyH]

Wenn Du auch jedesmal VST.Clear aufrufst.

[Jens Hartmann]

Danke schön DeddyH.

Das war das Problem. Habe ich total übersehen. Jetzt funktioniert das ganz auch.

Besten Dank nochmal.

MFG

Jens

[DeddyH]

Beim Debuggen wäre Dir das wahrscheinlich selbst aufgefallen

[Jens Hartmann]

Ist es leider nicht,

ich habe das ganze im Debug mehrmals laufen lassen. Ich habe es einfach übersehen.

MFG

Jens

[Jens Hartmann]

Hallo nochmal zusammen,

habe die ganze Sache jetzt wunderbar am laufen. Dank auch an Lucki für die gute Ausarbeitung und Beschreibung.

FINDALLFILES

Jetzt aber mal noch eine Frage dazu. Die Progressbar, die in der Demo genutzt wird, wird durch die Ordnerebenen errechnet.

Delphi-Quellcode:

    FFM_MAXFOLDERS:
      begin
        ProgBarGesamt.Max := Msg.WParam;

und dann über den aktuellen Ordner zum laufen gebracht.

Delphi-Quellcode:

    FFM_PROGRESS:
      begin
        ProgBarGesamt.Position := Msg.WParam;
        Caption := IntToStr(Msg.WParam * 100 div ProgBarGesamt.Max) + '%';

Gibt es eine Möglichkeit PorgBarGesamt.Max auf die Anzahl der TXT Dateien zu setzten, die sich in all den Ordner befinden und die ProgBarPosition darüber laufen zu lassen.

Danke schon mal

MFG

Jens

[DeddyH]

Prinzipiell schon. Dazu musst Du in einem ersten Durchlauf die Gesamtanzahl der *.txt-Dateien ermitteln und Progressbar.Max entsprechend setzen. In einem 2. Durchlauf wird dann bei jeder *.txt Progressbar.Position erhöht.