Fehlertoleranz DELPHI, TEIL #2

[Popov]

Zitat von sx2008:

Mal unabhängig von der Ursachenforschung; die korrekte Funktion sieht so aus:

Mal unabhängig von der Ursachenforschung; die ursprüngliche Funktion aus dem Internet hatte Boolean als Rückgabewert, und die sagte einem ob die Funktion erfolgreich war. Man kann auch String als Rückgabewert nehmen, muss dann aber selbst auf Erfolg prüfen.

[sx2008]

Zitat von Popov:

die ursprüngliche Funktion aus dem Internet hatte Boolean als Rückgabewert, und die sagte einem ob die Funktion erfolgreich war

Das ist eine schlechte Technik (siehe Thread http://www.delphipraxis.net/171901-f...ml#post1193831).
Ich habe oben noch den Aufruf von Read() nach ReadBuffer() geändert.
Somit ist gewährleistet, dass die Funktion entweder mit dem String zurückkehrt oder eine Exception liefert.
Der einzige Schwachpunkt wären Dateien die grösser sind als der String an Daten aufnehmen kann (2/4GB-Limit).

[himitsu]

Dann wirft SetLength eine schöne Exception und man hat ebenfalls ein passendes Ergebnis.

Nja, aber du meinst 1, bzw 1.5 GB (4 GB nicht, denn das ist nicht umsonst eine 3GB-Option), denn dre String braucht einen zusammenhängenden Speicherblock.

[Uwe Raabe]

Laut Dokumentation kann ein String in Delphi maximal 2 GB belegen - unabhängig von eventuell höherem Speicherausbau oder 32/64-Bit Compiler. Die Anzahl der möglichen Zeichen und somit der maximale Wert für SetLength ergibt sich daraus. Dabei muss der benötigte Speicher für String-Verwaltung (Länge, Referenz-Zählung) evtl. noch berücksichtigt werden.