progressbar in einleseroutine läuft zu schnell

[Michael80]

So hab folgende Einleseroutine und will da nun die progressbar integrieren die da
über ndx gesteuert wird.

ich weiß warum sie zu schnell läuft, kanns aber net ändern ... sobald ndx bei 100 is, is die
die pg voll aber es läuft noch weiter.

was kann ich jetzt machen, das sich das an die dateigröße anpasst?

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  masterSL : TStringList;
  detailSL : TStringList;
  ndx      : Integer;  // Laufvariable für Master
  begin
  masterSL := TStringList.Create; // Master StringList
  detailSL := TStringList.Create; // Detail StringList
  try
    detailSL.Delimiter := ';';   // Trennzeichen der Einträge pro Zeile
    detailSL.QuoteChar := '"';   // Quoting Zeichen.
    masterSL.LoadFromFile('C:\KUNDENSTAMM.txt');
    for ndx := 0 to Pred (mastersl.Count) do
    begin
      progressbar1.Position := ndx; //<------------------------------------------
      detailsl.Clear;
      detailsl.DelimitedText := '"' + StringReplace(mastersl.Strings[ndx],';','";"',[rfReplaceAll]);
      //detailsl.savetofile('c:\test.txt');
      while detailsl.Count < 11 do detailsl.Add('');
      with IBQuery1 do
      begin
        Close;
        SQL.Text := 'INSERT INTO KUNDENSTAMM(KDNR, ANREDE, VORNAME, NACHNAME, ZUSATZ, STRASSE,ORTSTEIL,PLZ,ORT,TELEFON,TELEFAX) VALUES (:wert1,:wert2,:wert3,:wert4,:wert5,:wert6,:wert7,:wert8,:wert9,:wert10,:wert11)';
        ParamCheck := True;
        ParamByName('wert1').AsInteger := strtoint(detailsl.Strings[0]);
        ParamByName('wert2').AsString := detailsl.Strings[1];
        ParamByName('wert3').AsString := detailsl.Strings[2];
        ParamByName('wert4').AsString := detailsl.Strings[3];
        ParamByName('wert5').AsString := detailsl.Strings[4];
        ParamByName('wert6').AsString := detailsl.Strings[5];
        ParamByName('wert7').AsString := detailsl.Strings[6];
        ParamByName('wert8').AsString := detailsl.Strings[7];
        ParamByName('wert9').AsString := detailsl.Strings[8];
        ParamByName('wert10').AsString := detailsl.Strings[9];
        ParamByName('wert11').AsString := detailsl.Strings[10];
        ExecSQL;
        end;
        IBTransaction1.Commit;
    end;
  finally
    FreeAndNil (mastersl);
    FreeAndNil (detailsl);
  end;
end;

[theomega]

ich glaube du solltest progressbar1.max auf die anzahl der Linien setzten!

[SirThornberry]

einfach:

Delphi-Quellcode:

[...]
Progressbar.Max := masters.Count; //<------------------------------------------
for ndx := 0 to Pred (mastersl.Count) do
begin
  progressbar1.Position := ndx;
[...]

[Michael80]

perfekt