Temporary Internet Files: Größe u. Anzahl Files herausfinden

[Go2EITS]

Hi, marabu.

Ganz herzlichen Dank für Deinen Aufwand!
Sizelabel.caption kenne ich zwar nicht, aber das ändere ich in Label2.caption.
Die ListBox2 war nur ein Behelf fürs Debuggen.

Label2.Caption := Format('%.n', [1.0 * CacheSizeEx(Form1.ListBox2.Items)]);

Beim Aufruf stimmen die Parameter nicht. Die eckigen Klammern sind wohl für die
Formatanweisung notwendig. Sorry, wenn ich Dich nochmals behelligen muss.
Mit dem Parameter scount habe ich auch Probleme.

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject);
Var s:TStrings;
begin
s:=s.Create;
Label2.Caption := Format('%.n', [1.0 * CacheSizeEx(s,s.count]); //Geändert, da fehlt ein Parameter?
s.Free;
end;

Da stecke ich fest...
Ein s.count oder s.items.count gibt es nicht. :pale:

[marabu]

Oje ...

Zitat:

Zitat von Go2EITS

Sizelabel.caption kenne ich zwar nicht, aber das ändere ich in Label2.caption.

genau so solltest du es machen.

Zitat:

Zitat von Go2EITS

Beim Aufruf stimmen die Parameter nicht.

Du darfst CacheSize() und CacheSizeEx() nicht verwechseln, die Signaturen unterscheiden sich in der Zahl der Parameter.

Zitat:

Zitat von Go2EITS

Mit dem Parameter scount habe ich auch Probleme.

Ich merke es - schaue dir mal die angehängte Demo genau an.

Freundliche Grüße

marabu

[Go2EITS]

Vielen Dank für Deine Mühe, marabu. Prima, dass Du das Beispiel beigefügt hast. Ich habe die unterschiedlichen Parameter gesehen, kam aber nicht zurecht. Ich sehe mir das Beispiel später genau an, ich bin schon zu lang am PC. :cyclops:

//Nachtrag:
Dein Beispiel ist prima. Ohne dem hätte ich die Initialisiungen nicht geschaft. Es gibt noch Differenzen, aber das ist egal. Ich/wir werden mit der Annäherung leben müssen.

Ganz großes Dankeschön!

Beste Grüße! :hi:
Go2EITS