DataSet: Speicherverbrauch berechnen

[himitsu]

Du gehst alle Fields des DataSets durch.

Da jeweils TField.DataSize nehmen und zusammenrechnen.
Das mit der Anzahl der Records multiplizieren (RecordCount + 2 für sowas wie TField.OldValue).
Dann nochmal alle Felder/Records mit TBlobField durchgehn und von jedem Blob einzeln die Größe dazu addieren.

Und am Ende noch bissl Offset für ungenutzte Anteile der reservierten Speicherblöcke auch noch draufrechnen (für jeden einzelnen Record und Blob) ... Speicherfragmentierung


PS: Bei CHAR(x) und VARCHAR(x) mit UTF-8 sind das oftmals 5 Byte pro Char, zuzüglich der Längenangabe für VARCHAR und einem Bit für NULL.
Und TBlob (BLOB, TEXT, usw.) sind das ein Pointer + der Speicher in Form eines TData (per Default, falls die TDataSet-Ableitung nicht was anderes/eigenes implementiert)

Längenangabe und NULL einfach ignorieren (das ist bei DataSize schon drin) und der Rest ist eh schon ausreichend ungenau genug.