Hi,
Und für noch größere Dateien:
Zitat von
Lösung1 - bigg:
while (NewSize >= 1024) do
Daraus einfach das machen:
while (NewSize >= 1024) and (i < 4) do
Dann kann das Else raus und es gibt keine Probleme in der Zeile:
Result := Result + #32 + Measure[i];
Mfg
FAlter