Du bräuchtest einen Stream
Decorator.
Hier die schrittweise Erklärung.
Im Moment rufst du ja folgende Methode auf:
stringliste.LoadFromFile(dateiname);
Im nächsten Schritt erzeugst du Dir einen eigenen FileStream:
Delphi-Quellcode:
var
fs : TFileStream;
begin
fs := TFileStream.Create(dateiname, ...);
stringliste.LoadFromStream(fs);
fs.Free;
Damit ist aber noch nichts gewonnen.
Ein Stream Decorator ist ein Klasse, die von TStream abgeleitet ist und die Aufrufe and Read() und Write() einfach nur an einen anderen Stream durchreicht.
Und hier kann man eingreifen und jeden einzelnen Read() mitbekommen:
Delphi-Quellcode:
var
fs : TFileStream;
decorator : TStreamDecorator;
begin
fs := TFileStream.Create(dateiname, ...);
decorator := TStreamDecorator.Create(fs);
Progressbar1.Max := fs.size;
decorator.OnRead := OnReadHandler;
stringliste.LoadFromStream(decorator);
decorator.Free;
fs.Free;
Jetzt fehlt natürlich noch die Klasse TStreamDecorator.
Irgendwo in den Tiefen der
DP liegt der Code zu so einer Klasse (find' ich nur im Moment nicht).
In der JCL gibt es auch schon fertige Stream Decorator Klassen, die du verwenden könntest. (
Unit JclStream, Klasse TJclEventStream)
Oder einer der Mitleser schüttelt die Klasse aus dem Ärmel...