Forum: Algorithmen, Datenstrukturen und Klassendesign
by bernhard_LA,
3. Jun 2013
beim hochzählen während einer Ordneranalyse tauchen bei mir plötzlich negative Zahlen im Byte-Str auf , ich sehe den Fehler aber nicht :shock: ... , kann jemand helfen ?
Forum: Algorithmen, Datenstrukturen und Klassendesign
by bernhard_LA,
3. Jun 2013
etwa so ....
function FormatByteStr(aFilesize: LongInt): String;
begin
if (aFilesize > 1E12) then
begin
result := FloatToStrF(aFilesize / 1024 / 1024 / 1024 / 1024, ffFixed, 12, 2)
Forum: Algorithmen, Datenstrukturen und Klassendesign
by bernhard_LA,
3. Jun 2013
ich möchte die Größe von Ordnern ... nett formatiert ausgeben.
leider scheint die case Anweisung kein LongInt zu mögen und somit ist dieser Algorithmus verbesserungsbedürftig
function FormatByteStr(aFilesize: LongInt): String;
begin
case aFilesize of
0 .. 1000: