[DELPHI] ... [/DELPHI] um deine Codes ... PS: das ist der Knopf mit dem Delphi-Helm
Nicht
0:
, sondern
else
.
Bei einer
XML oder INI steht Result sonst auf einem Zufallswert. (ja, es ist "zufall", dass Result hier so aussieht, als sei mit '' initialisiert, was aber nicht immer so sein muß)
Ist der Stream nur 0 oder 1 Byte groß, dann stehen Zufallswerte in der Buffer-Variable.
Entweder diese Variable vorher mit einem festen Wert initialisieren (z.B. 0 oder $FFFF)
oder die Rückgabe des Read auswerten, also z.B.
if PictureData.Read(Buffer, 2) <> 2 then Fehler;
oder die selbstprüfende Funktion
PictureData.ReadBuffer(Buffer, 2);
nutzen (wirft eine
Exception, wenn nicht vollständig gelesen werden konnte)