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.
