ProgressBar bei LoadFromFile in TListBox

[calculon]

Hi bodenheim,

ListBox1.Items.count gibt die dir die Anzahl der Listboxeinträge zurück und ist kein "Zaehler". Überhaupt ist deine Datei, wenn dein Code bei ProgressBar1.position:=ListBox1.Items.count; ankommt bereits geladen. Die einzige Möglichkeit, die ich wüsste, ist das über AssignFile zu machen:

ungetestet:

Delphi-Quellcode:

var
  myFile : TextFile;
  text   : string;
  FileName: string;
  max, i: integer;
begin
  Filename := // dei Datei halt
  max := ZeilenZählen(FileName);
  AssignFile(myFile, FileName);
  Reset(myFile);
  progressbar1.position := 0;
  ProgressBar1.max := 100;
  i := 0;
    while not Eof(myFile) do
      begin
        ReadLn(myFile, text);
        listbox1.items.add(test);
        progressbar1.position := round((i/max) * 100);
        inc(i);
      end;
  CloseFile(myFile);
end;

alternativ: BeginUpdate und EndUpdate => Listbox wird viel schneller fertig als mit ohne

Gruß

Calculon
--